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

كا ذكرت فى العنوان لو عندى 2 TextBox اريد ان اكتب فى textbox1 لغاية 11 حرف بعد الحداشر حرف ينقل الحروف او باقى الكلمة الى Textbox2
مثلآ عندى كلمة تتكون من 20 حرف بعد ال 11 حرف يتكتبو فى التكست بو1 و الباقى يتنقل لل تكست 2 وى لو اخذت شيء نسخ و لصق نفس الحكاية

حريف برمجة كتب :

كود :

Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
        If Len(TextBox1.Text) > 10 Then
            TextBox2.Focus()
        End If
    End Sub

جزاك الله خير اخى

السلام عليكم
أخ مبتدئ
الاخ حريف برمجة اعطى جزء الكتابة فقط ولم يعطي جزء النسخ واللصق
لذا هذا هو المشروع تفضل
النقل بين 2 textbox
وايضا هذا هو الكود

إقتباس :Public Class Form1
Dim x As Boolean
rivate Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.Control = True Then
If e.KeyValue = 86 Then
x = True
End If
End If
End Sub


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If Len(TextBox1.Text) >= 11 Then
If x = True Then


xxx:
TextBox1.SelectionStart = 10
TextBox1.SelectionLength = Len(TextBox1.Text) - 10
TextBox1.Cut()
TextBox2.Paste()
Else
If Len(TextBox1.Text) = 11 Then
TextBox2.Focus()
Else
GoTo xxx
End If
End If
End If
x = False
End Sub


End Class

ارجو ان يكون هو المطلوب