منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

بالنسبة ل Listbox

listBox2.SetSelected(index, True)


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


Me.richTextBox1.HideSelection = False

SelectLine(2, Me.richTextBox1)

تسلم
الكود الخاص باداة 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