تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف يمكن تحريك الكتابة
#1
السلام عليكم ورحمة الله


كيف يمكننى تحريك الكتابة لأعلى واسفل داخل أداة RichTextBox1 عن طريق الماوس

بمعنى أخر عندى RichTextBox1 بداخلة نص ويظهر ال Scroll يمين الأداة فكيف اقوم بتحريك الكتابة داخل ال RichTextBox1 بدلا من التوجة إلى Scroll وتحريكة حيث أننى بعمل على تطبيق يعمل على شاشة باللمس
(مثل أجهزة الهاتف الذكية)

أرجو مساعدتى
الرد
تم الشكر بواسطة:
#2
السلام عليكم تفضل جرب هذا الكود واعطيني رأيك

كود :
Dim WithEvents lbl As New Label
    Dim b As Boolean = False
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lbl.Text = "3booody"
        Me.RichTextBox1.Controls.Add(lbl)
        AddHandler lbl.DoubleClick, AddressOf lbl_DoubleClick
    End Sub
    Private Sub lbl_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs)
        If b Then
            b = False
            lbl.ForeColor = Color.Black
        Else
            b = True
            lbl.ForeColor = Color.Red
        End If
    End Sub
    Private Sub RichTextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseMove
        If b Then
            lbl.Location = New Point(e.X, e.Y)
            lbl.Refresh()
        End If    
    End Sub
الرد
تم الشكر بواسطة: abulayth , سعود , mohammed moh


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] هل يمكن استخدام بديل لاداة WebBrowser mohamedahmed1 3 93 13-08-19, 06:33 PM
آخر رد: mohamedahmed1
  هل يمكن جلب id الفيسبوك bidaya 31 720 06-08-19, 12:55 PM
آخر رد: bidaya
  كيفية جعل الكتابة التلقائية في الداتا قريد adminHN 4 293 29-07-19, 11:54 AM
آخر رد: شوقي محي الدين
  استفسار حول الكتابة على listview fuad_alshujaa 0 73 22-07-19, 09:40 AM
آخر رد: fuad_alshujaa
Information [سؤال] كيف يمكن ان يكون البرنامج دائما في المقدمه black coder 2 188 25-06-19, 04:58 AM
آخر رد: black coder
  اخفاء مؤشر الكتابة من TEXTBOX أبويحيى الجبلاوي 2 168 19-06-19, 03:39 PM
آخر رد: أبويحيى الجبلاوي
  هل يمكن طباعة التقرير في كريستال ريبورت مباشرة دون عرض التقرير abu.hanen4u 4 268 31-05-19, 01:15 AM
آخر رد: sami4
  هل يمكن ان يتشابة ارقام معالج مع اخر makky 13 532 28-05-19, 10:27 AM
آخر رد: ابراهيم ايبو
  كيفة إجبار مربع النص على الكتابة بالفرنسية فقط ahmedfa71 2 205 15-05-19, 03:02 PM
آخر رد: ahmedfa71
  [كود] [تم الحل] تحريك الكائن DK-x 2 207 11-04-19, 04:01 PM
آخر رد: DK-x

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم