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

[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