عدد

[mrs225]

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

[MohammadGh2011]

سلام عليکم

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

موفق باشيد

[mrs225]

متشکرم همون بود که میخواستم

[بهروز عباسی]

درود دوست عزیز این هم یک تابع که این کارو انجام میده

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