دو سوال ساده درباره متن تکست باکس!

[niksalehi]

سلام دوستان
دو تا سوال ساده دارم:
1- میخوام اگه متن تکست باکس1 ، عدد بود، label1.caption = IN Yek Adade! بشه!
2-چطوری میشه
یک متن رو به یک تکست باکس اضافه کرد جوری که متن جدید اضافه شده بره زیره متن قبلی که توی تکست باکس بوده !
مثلا; متن قدیمی موجود در تکست باکس: سلام! متن جدید: خوبی؟

حالا متن داخل تکست باکس اینطوری باشه:

سلام!
خوبی؟

[shahabbasic]

سلام
برای تشخیص اعداد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 47 And KeyAscii < 58 Then label1.Caption = "in yek adade be ghole shoma"
End Sub
برای اینکه هر تکست در یک خط قرار بگیره باید خاصیت Multiline تکس باکس برابر با ture قرار بدید

[just4froum]

بفرمایید:

Private Sub Text1_Change()
If IsNumeric(Text1.Text) = True Then
lable1.Caption = "In Yek Adad Ast"
Else
lable1.Caption = "In Yek Adad Nist"
End If
End Sub

[سید حمید حق پرست]

سلام
سورس رو برات نوشتم هردو سوالت

موفق باشی


یا علی (ع)