[الوليد ☺]

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

تحديد كامل السطر الموجود فيه النص المقصود

PHP كود :

Public Sub SelectLine(ByVal str As String)
    Dim FindIndex As Integer = RichTextBox1.Find(str)
    If FindIndex <> -1 Then
        Dim LineFromCharIndex As Integer = Me.RichTextBox1.GetLineFromCharIndex(FindIndex)
        Dim StartLineFromCharIndex As Integer = Me.RichTextBox1.GetFirstCharIndexFromLine(LineFromCharIndex)
        Dim LineLength As Integer = Me.RichTextBox1.Lines(LineFromCharIndex).Length
        RichTextBox1.Select(StartLineFromCharIndex, LineLength)
        RichTextBox1.Focus()
    End If
End Sub