منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تحديد صطر في التكست بوكس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تحديد صطر في التكست بوكس (/showthread.php?tid=10933)



تحديد صطر في التكست بوكس - hassan - 16-12-14

السلام عليكم


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

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


وشكرا

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


RE: تحديد صطر في التكست بوكس - الوليد ☺ - 18-12-14


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

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

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




RE: تحديد صطر في التكست بوكس - hassan - 18-12-14

(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 


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

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