اول سلام
دوم سوال : چگونه میشه یک تکست داخل فرم گذاشت که عدد فقط قبول که غیر این صورت (مثلا حروف) پیام ظاهر بشه
سوم : جواب یادتون نره
اول سلام
دوم سوال : چگونه میشه یک تکست داخل فرم گذاشت که عدد فقط قبول که غیر این صورت (مثلا حروف) پیام ظاهر بشه
سوم : جواب یادتون نره
سلام عليکم
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub
کد بالا فقط عدد قبول ميکنه
و کد زير همراه با پيغام که بايد داخل يک کامند بنويسيد
Private Sub Command1_Click()
If IsNumeric(Text1) = False Then
MsgBox "Only Number"
End If
End Sub
موفق باشيد
متشکرم همون بود که میخواستم
درود دوست عزیز این هم یک تابع که این کارو انجام میده
Public Function Number_Filter(KeyAscii As Integer)
Dim StrValid As String
StrValid = "0123456789"
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii > 26 Then
If InStr(StrValid, Chr(KeyAscii)) = 0 Then
Number_Filter = 0
Exit Function
End If
End If
Number_Filter = KeyAscii
End Function
اینم مثال برای فراخوانیش
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Number_Filter(KeyAscii)
End Sub
Everything that has a beginning has an end. ... The End?