در مورد تکست باکس ها

[miladas]

سلام به تمام دوستان من یک برنامه دارم که داخل اون دو تا تکست باکس و میخواهم هر وقت تو تکست باکس 1 نوشتم مثلا aتو تکست باکس دومی بنویس aواگر تو تکست باکس اولی aرو پاک کردم و به جای اون نوشتم bتکست دومی aسر جاش بمونه و bبه اون اضافه شود :چشمک:

[M_P_1374]

Private Sub Text1_Change()
On Error Resume Next
Text2.Text = Text2.Text & Mid(Text1.Text, Len(Text1.Text), 1)
End Sub




این کد آخرین حرف تکست 1 رو بعد از آخرین حرف تکست 2 نشون میده



Private Sub Text1_Change()
On Error Resume Next
Text2.Text = Text2.Text & Text1.Text
End Sub



و این کد کل تکست 1 رو بعد از آخرین حرف توی تکست 2 نشون میده