منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحديد صطر في التكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم


طلبي بصيط جدا جدا 

اريد كود يحدد لي صطر في التكست بوكس 


وشكرا

معقولة الطلب صعب ؟؟؟؟؟؟

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

إن شاء الله يكون مثل ما طلبت
طبعاً أداة التكستبكس لازم تكون ممكن تعدد الأسطر MultiLine ومعطل التفاف النص WordWrap
PHP كود :
Public Class Form1

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click

        
' طلبنا من الدالة تحديد السطر الثاني في التكستبكس '
        
TextBoxLineSelection(Me.TextBox11)

    
End Sub


    
' دالة تحديد سطر في التكستبكس '
    
Private Sub TextBoxLineSelection(textBox As TextBoxline 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.ObjectAs System.EventArgsHandles Button1.Click

        
' طلبنا من الدالة تحديد السطر الثاني في التكستبكس '
 
       TextBoxLineSelection(Me.TextBox11)

 
   End Sub


    
' دالة تحديد سطر في التكستبكس '
 
   Private Sub TextBoxLineSelection(textBox As TextBoxline 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 


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

الله يعطيك العافيه اخي شكرا