السلام عليكم ورحمة الله

إن شاء الله يكون مثل ما طلبت
طبعاً أداة التكستبكس لازم تكون ممكن تعدد الأسطر 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, 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 


واعذرنا على التأخيريابوعلي