بسم الله الرحمن الرحيم
السلام عليكم
في هذا الموضوع سوف أضع طريقة لمعرفة رقم السطر من خلال موقع المؤشر
نبدأ بسم الله
هذا الـــ Function هو الأساس
On Error Resume Next
Dim I As Integer
Dim a As Integer
For I = 1 To PointerIndex
If Mid(Obj, I, 1) = Chr(10) Then a += 1
Next
CurrentLine = a
End Function
Function CurrentLine(ByVal Obj As String, ByVal PointerIndex As Integer) As Integer
طريقة الإستخدام :
أولاً ننشئ RichTextBox لماذ؟؟؟؟؟
لأنه يحتوي على حدث ( SelectionChanged )
وفي هذا الحدث نضع الكود التالي :
Dim LineNum As Integer
Dim PointerIndex As Integer = Trm1.SelectionStart
'هنا يتم إستدعاء الدالة
LineNum = CurrentLine(Trm1.Text, PointerIndex)
If Trm1.Lines.Length < 1 Then
LineNum = -1
Else
Label1.text = LineNum + 1
End If
End Sub
Private Sub Trm1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Trm1.SelectionChanged
سوف يظهر رقم السطر داخل الليبل الذي عملناه
ويمكنك معرفة النص في سطر معين بإستخدام هذا السطر
Label2.Text = Trm1.Lines(LineNum)
أتمنى أن تحوز على رضاكم
وإذا فيه إضافات أو تعديلات أو انتقاد بناء فذلك يسعدني جداً
وشكراً لكم