مکان موس روی rich text box

[Amir_Sharif]

از کجا می تونم بفهمم موس روی چه کلمه ای از rich text box قرار دارد؟

[ghafoori]

دوست عزیز من متد خاصی پیدا نکردم اما کد زیر را نوشتم و جواب می دهد


Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDown
Dim a, b As Integer
Dim s As String = ""
Dim s1 As String = ""
Dim s2 As String = ""
a = RichTextBox1.GetCharIndexFromPosition(e.Location)
If a <> 0 Then
For b = a To 0 Step -1
If RichTextBox1.Text.Chars(b) <> " " Then
s1 = RichTextBox1.Text.Chars(b) + s1
Else : Exit For
End If
Next
For b = a + 1 To RichTextBox1.Text.Length - 1
If RichTextBox1.Text.Chars(b) <> " " Then
s2 = s2 + RichTextBox1.Text.Chars(b)
Else : Exit For
End If
Next
s = s1 + s2
s1 = ""
s2 = ""
Label1.Text = s
Else
Label1.Text = ""
End If

End Sub