+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox) (/showthread.php?tid=12459)
محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox) - hatem555 - 10-06-15
محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox)
او كود لتحديد اخر صف في الاداتين
RE: محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox) - أحمد النجار - 10-06-15
بالنسبة ل Listbox
listBox2.SetSelected(index, True)
اما بالنسبة ل richtextbox
Me.richTextBox1.HideSelection = False
SelectLine(2, Me.richTextBox1)
RE: محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox) - hatem555 - 11-06-15
تسلم
الكود الخاص باداة listbox تمام
لكن الكود الخاص باداة richtextbox مش مظبوط
selectline مش عارف اجيبها ولما باكتبها بيجيلي ايرور
RE: محتاج كود لتحديد سطر معين في الاداتين (richtextbox , listbox) - أحمد النجار - 11-06-15
معذرة على الخطا اكتب الاجراء التالي في الكود
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