[hatem555]

محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox)

او كود لتحديد اخر صف في الاداتين

[أحمد النجار]

بالنسبة ل Listbox

listBox2.SetSelected(index, True)


اما بالنسبة ل richtextbox


Me.richTextBox1.HideSelection = False

SelectLine(2, Me.richTextBox1)

[hatem555]

تسلم
الكود الخاص باداة listbox تمام

لكن الكود الخاص باداة richtextbox مش مظبوط
selectline مش عارف اجيبها ولما باكتبها بيجيلي ايرور

[أحمد النجار]

معذرة على الخطا اكتب الاجراء التالي في الكود

Private Sub SelectLine(lineNumber As Integer, richTextBox As RichTextBox)
        Dim begin As Integer = 0
       
        ' add the length of the lines
        For i As Integer = 0 To lineNumber - 1
            begin += richTextBox.Lines(i).Length
            ' don't forget to add one more for the Environment.NewLine
            begin += 1
        Next
     
        Dim length As Integer = richTextBox.Lines(lineNumber).Length
        richTextBox.[Select](begin, length)
    End Sub