16-12-14, 09:24 PM
18-12-14, 04:21 AM
السلام عليكم ورحمة الله
إن شاء الله يكون مثل ما طلبت
طبعاً أداة التكستبكس لازم تكون ممكن تعدد الأسطر MultiLine ومعطل التفاف النص WordWrap
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' طلبنا من الدالة تحديد السطر الثاني في التكستبكس '
TextBoxLineSelection(Me.TextBox1, 1)
End Sub
' دالة تحديد سطر في التكستبكس '
Private Sub TextBoxLineSelection(textBox As TextBox, line As Integer)
' إلغاء أي تحديد سابق '
textBox.DeselectAll()
' التأكد من أن السطر المحدد ضمن مجال أسطر التكستبكس '
If line > textBox.Lines.Count - 1 Then
Exit Sub
End If
' تعطيل إخفاء التحديد '
textBox.HideSelection = False
' معرفة بداية السطر المحدد '
textBox.SelectionStart = textBox.GetFirstCharIndexFromLine(line)
' معرفة طول السطر المحدد '
textBox.SelectionLength = textBox.Lines(line).Length
' وضع التركيز على التكستبكس '
textBox.Focus()
End Sub
End Class
واعذرنا على التأخيريابوعلي
18-12-14, 07:33 AM
(18-12-14, 04:21 AM)الوليد ☺ كتب : [ -> ]الله يعطيك العافيه اخي شكرا
السلام عليكم ورحمة الله
إن شاء الله يكون مثل ما طلبت
طبعاً أداة التكستبكس لازم تكون ممكن تعدد الأسطر MultiLine ومعطل التفاف النص WordWrap
PHP كود :
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
' طلبنا من الدالة تحديد السطر الثاني في التكستبكس '
TextBoxLineSelection(Me.TextBox1, 1)
End Sub
' دالة تحديد سطر في التكستبكس '
Private Sub TextBoxLineSelection(textBox As TextBox, line As Integer)
' إلغاء أي تحديد سابق '
textBox.DeselectAll()
' التأكد من أن السطر المحدد ضمن مجال أسطر التكستبكس '
If line > textBox.Lines.Count - 1 Then
Exit Sub
End If
' تعطيل إخفاء التحديد '
textBox.HideSelection = False
' معرفة بداية السطر المحدد '
textBox.SelectionStart = textBox.GetFirstCharIndexFromLine(line)
' معرفة طول السطر المحدد '
textBox.SelectionLength = textBox.Lines(line).Length
' وضع التركيز على التكستبكس '
textBox.Focus()
End Sub
End Class
واعذرنا على التأخيريابوعلي![]()