عدد

اول سلام
دوم سوال : چگونه میشه یک تکست داخل فرم گذاشت که عدد فقط قبول که غیر این صورت (مثلا حروف) پیام ظاهر بشه
سوم : جواب یادتون نره

سلام عليکم

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