10-06-15, 03:21 PM
محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox)
او كود لتحديد اخر صف في الاداتين
او كود لتحديد اخر صف في الاداتين
محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox)
|
10-06-15, 03:21 PM
محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox)
او كود لتحديد اخر صف في الاداتين
10-06-15, 09:19 PM
(آخر تعديل لهذه المشاركة : 10-06-15, 09:21 PM {2} بواسطة أحمد النجار.)
بالنسبة ل Listbox
listBox2.SetSelected(index, True) اما بالنسبة ل richtextbox Me.richTextBox1.HideSelection = False SelectLine(2, Me.richTextBox1)
11-06-15, 11:37 AM
تسلم
الكود الخاص باداة listbox تمام لكن الكود الخاص باداة richtextbox مش مظبوط selectline مش عارف اجيبها ولما باكتبها بيجيلي ايرور
11-06-15, 09:00 PM
معذرة على الخطا اكتب الاجراء التالي في الكود
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 |
|