وارد کردن همزمان متن در دو textbox

[leilast]

من دو textbox در فرمم دارم.میخوام هر متنی که در textbox اولی وارد میکنم همزمان در textbox دوم هم وارد بشه.
میشه بگید باید چه کدی باید براش بنویسم؟

[mpmsoft]

این کد رو در رویداد Text1_Change بنویسید


Text2.Text = Mid(Text1.Text,Len(Text1.Text) - 1 ,1)

[xxxxx_xxxxx]

Private Sub Text1_Change()
Text2.Text = Text1.Text
End Sub

[leilast]

مشکل برای یک textbox حل شد
اما اگر بخوام 2 تا textbox داشته باشم بطوریکه وقتی متن رو در text1 وارد میکنم همزمان در text3 وارد بشه و دنباله متن text1 رو در text2 واردکنم و بازهم همزمان از دنباله متن قبلی متن جدید در text3 وارد بشه باید چه کار کنم؟
یعنی تلفیق دو textbox همزمان در text3 وارد بشه
البته از این کد استفاده کردم ولی بطور همزمان نوشته نمیشه و باید روی text3 کلیک کنم تا بشه

(http://www.barnamenevis.org/forum/C#%E2%80%8Eode)
Text3.Text = Text1.Text + Text2.Text
(http://www.barnamenevis.org/forum/C#%E2%80%8Eode)

[xxxxx_xxxxx]

سلام،


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Text3.Text = Left(Text3.Text, Len(Text3) - 1)
Else
Text3.Text = Text3 & Chr(KeyAscii)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
Text3.Text = Left(Text3.Text, Len(Text3) - 1)
Else
Text3.Text = Text3 & Chr(KeyAscii)
End If
End Sub


البته مشکلاتی داره که بسته به کاری که میخواید انجام بدید باید محدودش کنید تا باعث تولید خطا نشه.

رویدادهای Change و KeyPress و KeyDown و KeyUp رو بهتر بشناسید تابتونید به راحتی این کارها رو انجام بدید.

[behroz1992]

سلام دوست عزیز چرا KeyAscii=8 شده

[xxxxx_xxxxx]

سلام دوست عزیز چرا KeyAscii=8 شده

سلام، Keyascii برابر 8 نشده. چک می کنیم اگر برابر 8 بود از آخر تکست باکس یک کاراکتر کم کنه. چون کداسکی 8 کد کلید Backspace هست.