تشخيص اعداد ؟؟؟

[electro-learning]

مي خاستم بدونم تابعي نيست بشه با استفاده از اون تشخيص داد كه داخل يك تكست باكس عدد تايپ ميشه يا كاركتر

با تشكر

[Payman62]

سلام.
در رویداد keypress کد اسکی ها رو چک کن.

[electro-learning]

يعني تابعي براي اين كار نيست

نميشه يك مثال به من نشون بديد تا من بفهمم چه جوري اين كارو ميكنند

[Iron_Fist]

يعني تابعي براي اين كار نيست

چرا هست

کد:

Private Sub Text1_Change()
    If IsNumeric(Text1.Text) = True Then
        Text2.Text = "Adad"
    Else
        Text2.Text = "Gheire Adad"
    End If
End Sub