سلام به همه برنامه نویسای عزیز
نكته ويژوالي :
در تكست باكس فقط عدد تايپ كنيد:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
نفر بعدی یه برنامه نویس نخبه س
سلام به همه برنامه نویسای عزیز
نكته ويژوالي :
در تكست باكس فقط عدد تايپ كنيد:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Sub
نفر بعدی یه برنامه نویس نخبه س
آخرین ویرایش به وسیله vbhamed : سه شنبه 26 فروردین 1393 در 15:41 عصر