کپی یک متن و قراردادن آن در چند تکست باکس بصورت اتوماتیک

[mobinsaffarpour]

باسلام خدمت همه دوستان

دوستان عزیز یک فرم دارم که اون فرم متشکل از 8 تکست باکس هست و هر تکست باکسی محدود به چند کاراکتر

حالا میخوام وقتی توی تکست باکس اولی متن رو کپی کردم بصورت اتوماتیک توی بقیه تکست باکس ها خودش قرار بگیره . لطفاً با ذکر نمونه راهنمائیم کنید . / باتشکر

[ehsan2589040]

اگر منظورت فوکوس هست که تو رویداد leave تکس باکست بنویس که textbox2.focus
با tab هم میشه اونوقت باید tabindex هات رو ترتیب کنی

[dataking]

سلام
اگه اشتباه نکنم مثل کپی سریال نرم افزارها منظورتونه
باید کدی بنویسی که بعد از تعداد کاراکتر خالص فوکوس به تکس باکس بعدی بره .
اگه نیارز به توضیح بیشتر داری بگو

[xxnagin]

سلام
با اين كد همزمان توي همه تكسباكس ها متن paste ميشه
اول توسط split متن ها جدا ميشه و تكس باكسها اندازه شون(MaxLength ) توسط متن موجود در Clipboard تغيير ميكنن
يعني هر چقدر متن قبل و بعد از خط تيره كه توسط split جدا ميشن تغيير ميكنن


Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim aryTextFile() As String
Dim i As Integer
aryTextFile = My.Computer.Clipboard.GetText.Split("-")
If My.Computer.Clipboard.GetText.Contains("-") = True Then
For i = 0 To aryTextFile.GetUpperBound(0)
TextBox1.MaxLength = aryTextFile(0).Length
TextBox2.MaxLength = aryTextFile(1).Length
TextBox3.MaxLength = aryTextFile(2).Length
TextBox4.MaxLength = aryTextFile(3).Length
Label1.Text = TextBox1.MaxLength
Label2.Text = TextBox2.MaxLength
Label3.Text = TextBox3.MaxLength
Label4.Text = TextBox4.MaxLength
TextBox1.Text = aryTextFile(0)
TextBox2.Text = aryTextFile(1)
TextBox3.Text = aryTextFile(2)
TextBox4.Text = aryTextFile(3)
Next
End If
End Sub