[matrixmas]

السلام عليكم ورحمة الله


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

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

أرجو مساعدتى

[3booody]

السلام عليكم تفضل جرب هذا الكود واعطيني رأيك

كود :

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