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

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

اختيار نص معين من تكست بوكس - ميدو الفنان - 28-01-22

السلام عليكم
لدي في تكست بوكس عدة روابط تحت بعض عاوز كود يخليني اختار الكود التالت مثلا
http://url.com/1
http://url.com/2
http://url.com/3
http://url.com/4
http://url.com/5
هكذا عاوز اني اختار رابط معين انا احدده واحطه في تكست تاني

RE: اختيار نص معين من تكست بوكس - سعود - 28-01-22

PHP كود :
       TextBox2.Text = TextBox1.Lines(1) 
هذا الكود يلبي المطلوب ..جربته الان قبل كتابته هنا
السطر الثاني هو اللذي تم اختياره لان الترقيم يبدأ من 0 الصفر.
PHP كود :
Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
        If e.Button = MouseButtons.Left Then
            Dim charIndex As Integer = TextBox1.GetCharIndexFromPosition(e.Location)
            Dim line As Integer = TextBox1.GetLineFromCharIndex(charIndex)
            TextBox2.Text = TextBox1.Lines(line)
        End If
    End Sub 


RE: اختيار نص معين من تكست بوكس - ميدو الفنان - 28-01-22

(28-01-22, 03:28 AM)سعود كتب :
PHP كود :
       TextBox2.Text = TextBox1.Lines(1) 
هذا الكود يلبي المطلوب ..جربته الان قبل كتابته هنا
السطر الثاني هو اللذي تم اختياره لان الترقيم يبدأ من 0 الصفر.
PHP كود :
Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
        If e.Button = MouseButtons.Left Then
            Dim charIndex As Integer = TextBox1.GetCharIndexFromPosition(e.Location)
            Dim line As Integer = TextBox1.GetLineFromCharIndex(charIndex)
            TextBox2.Text = TextBox1.Lines(line)
        End If
    End Sub 

شكرا لك اخي سعود الله يحفظك