چیکار کنم در TEXTBOX فقط بشه عدد نوشت ؟

[MBG73]

باید چی کار کنم ؟

[sina26]

باید چی کار کنم ؟
سلام دوست عزیز
این کار خیلی ساده است این نمونه رو ببین

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 48 To 58:
Case Else
KeyAscii = 0
End Select
End Sub

[butterfly8528]

سلام .


Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = Empty
End If
End Sub


سرچ کنی راه های دیگه هم هست .

[MBG73]

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

عبارتی که باید سرچ کنم چیه ؟

من عبارتشو پیدا نمیکنم و گرنه اول می خواستم سرچ کنم .

بازم ممنون

[alirezash]

دوست عزیز برو حالشو ببر

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim Dorost As String
Dorost = "1234567890. "
If InStr(Dorost, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End Sub

[xxxxx_xxxxx]

http://www.barnamenevis.org/forum/showpost.php?p=687847&postcount=14
http://www.barnamenevis.org/forum/showpost.php?p=688697&postcount=29
http://www.barnamenevis.org/forum/showpost.php?p=696312&postcount=43

[powerboy2988]

سلام .


Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = Empty
End If
End Sub
سرچ کنی راه های دیگه هم هست .

اگر شما چند تا عدد وارد كني و بعدش دكمه غير عددي رو بزني كه نوشته هات از بين مي رن كه برادر

[hossein033]

با سلام خدمت دوستان

اینم یه سورس کد که فقط میشه تو textbox عدد وارد کرد :لبخندساده:

امیدوارم موفق باشید :تشویق:

[butterfly8528]

نقل قول:
نوشته شده توسط butterfly8528 http://barnamenevis.org/forum/images/buttons/viewpost.gif (http://barnamenevis.org/forum/showthread.php?p=790832#post790832)
سلام .

کد:
Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
Text1.Text = Empty
End If
End Sub
سرچ کنی راه های دیگه هم هست .

اگر شما چند تا عدد وارد كني و بعدش دكمه غير عددي رو بزني كه نوشته هات از بين مي رن كه برادر

خوب برادر کد رو به صورت زیر تعغیر بده .


Private Sub Text1_Change()
If IsNumeric(Text1.Text) = False Then
SendKeys "{BS}"
End If
End Sub موفق باشید .

[bestsearch]

Private Sub Text5_KeyPress(KeyAscii As Integer)
If (KeyAscii < 47 Or KeyAscii > 57) And KeyAscii
End Sub
اگر كد دكمه فشرده شده برابر كد اعداد نباشه (كوچكتر از 48 يا بزرگتر از 57 باشه) كد دكمه فشرده شده را برابر 0 NULL يا همون قرار ميده

با اضافه شدن تكه دوم به شرط زير دكمه Bacjsace نيز فعال مي‌شود.
Private Sub Text5_KeyPress(KeyAscii As Integer)
If (KeyAscii < 47 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0
End Sub