سوال در مورد if [بایگانی]

alisaniefar

چهارشنبه 20 شهریور 1387, 13:14 عصر

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text=String then
MsgBox("String")
ElseIf TextBox1.Text=Integer then
MsgBox("Integer")
End Sub

سلام
من و باید ببخشید من خیلی آماتورم اگه امکان داره این رو برام صحیح کنید
میخوام وقتی که حروف زدم بهم یه مسیج بده وقتی یه عدد دادم یه مسیج دیگه
مشکل اصلیم اینه که چه جوری بهش بگم این عدد یا حروفه!
بازم ببخشید

elmira_63

چهارشنبه 20 شهریور 1387, 13:26 عصر

این کد رو تو keypress تکست باکست کپی کن برای این که نتونه حروف وارد کنه

If Not Char.IsNumber(e.KeyChar) And e.KeyChar <> "-"c And e.KeyChar <> Convert.ToChar(Keys.Enter) And e.KeyChar <> Convert.ToChar(Keys.Back) Then
e.Handled = True
MsgBox("در این باکس امکان وارد کردن حروف نمی باشد")
End If

اینم برعکسش

If Char.IsNumber(e.KeyChar) And e.KeyChar <> "-"c And e.KeyChar <> Convert.ToChar(Keys.Enter) And e.KeyChar <> Convert.ToChar(Keys.Back) Then
e.Handled = True
MsgBox("در این باکس امکان وارد کردن عدد نمی باشد")
End If

elmira_63

چهارشنبه 20 شهریور 1387, 13:29 عصر

راستی هر وقت خواستی یه کدی رو بزاری توی تاپیکت علامت # بالای پیام رو بزن و کدت رو بنویس تا خوانا تر بشه
موفق باشی

alisaniefar

چهارشنبه 20 شهریور 1387, 13:48 عصر

مرسی از راهنمایی شما
ولی من فقط یه تکس باکس دارم
میخوام وقتی عدد وارد کردم یه پیغام بده اگه یه حرف وارد کردم یه پیغام دیگه بده

morteza_261

چهارشنبه 20 شهریور 1387, 14:13 عصر

سلام
فکر نمیکنم این کد منطقی باشه:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text=String then
MsgBox("String")
ElseIf TextBox1.Text=Integer then
MsgBox("Integer")
End Sub

چون شما وقتی روی باتن کلیک میکنید میاد شرط رو بررسی میکنه و ممنکه از هر دو نوع باشه.....ومهمتر از اون نحوه تعریف شما اشتباه است TextBox1.Text=String ؟؟؟

ولی اگه میخوای برای اعداد و حروف یه پیغام بدی به این شکل بنویس:(البته راه های دیگه هم هست مثل تابع های IsNumeric و...)

IfNotChar.IsNumber(e.KeyChar) And e.KeyChar <> "-"c And e.KeyChar <> Convert.ToChar(Keys.Enter) And e.KeyChar <> Convert.ToChar(Keys.Back) Then
MsgBox("String")
ElseIfChar.IsNumber(e.KeyChar) And e.KeyChar <> "-"c And e.KeyChar <> Convert.ToChar(Keys.Enter) And e.KeyChar <> Convert.ToChar(Keys.Back) Then
MsgBox("Integer")
EndIf

ولی در کل راه کاربر elmira_63 خیلی بهتره

ایام به کام