استفاده از تکست باکس

[alih110]

سلام دوستان عزیز

من سه تا تکست باکس دارم یکی از این ها 2 خط هستش من میخوام خط اول این تکست باکس توی یک تکست باکس و خط دومش توی یک تکست باکس دیگه باشه . کسی میتونه کمک کنه ؟؟؟؟؟؟؟

[alih110]

یکی کمک کنه !!!!!!!!!!!!!!!!!!!!!!

[aryasoft2872]

اگه تعداد حروفی که ممکنه تو تکسن باکس باشه مشخص باشه می شه از این دستور استفاده کرد :

Private Sub Text1_Change()

If Len(Text1.Text) = 12 Then Text2.SetFocus

End Sub

[quantomquery]

سلام دوستان عزیز

من سه تا تکست باکس دارم یکی از این ها 2 خط هستش من میخوام خط اول این تکست باکس توی یک تکست باکس و خط دومش توی یک تکست باکس دیگه باشه . کسی میتونه کمک کنه ؟؟؟؟؟؟؟

سلام

دوست عزیز شما میتوانید با یک حلقه انقدر از text1 بخوانید تا به vbCrLf (یعنی کد خط بعد ) برسید و تمام حروفی که خوانده شده را در text2 بریزید و بعد حروف بعدی را در تا اینکه به len تکست 1 برسد (یعنی تا اخر بخواند ) را در text 3 بریزید.