hosein3000
شنبه 21 آبان 1390, 20:00 عصر
با سلام خدمت تمامی برنامه نویسان عزیز
از خدمتتون یه سوال داشتم و اون اینکه
من برای اینکه تو تکست باکس ها فقط عدد نوشته بشه از کد زیر استفاده می کنم:
Private Sub Text6_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
ولی مشکلی که برام پیش اومده اینه که چون اعدادم بیشتر اعشاریه دیگه تکست باکس ممیز یا همون علامت اعشاری رو قبول نمیکنه چیکار کنم که مشکل حل بشه
ممنون میشم راهنماییم کنین
از خدمتتون یه سوال داشتم و اون اینکه
من برای اینکه تو تکست باکس ها فقط عدد نوشته بشه از کد زیر استفاده می کنم:
Private Sub Text6_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
ولی مشکلی که برام پیش اومده اینه که چون اعدادم بیشتر اعشاریه دیگه تکست باکس ممیز یا همون علامت اعشاری رو قبول نمیکنه چیکار کنم که مشکل حل بشه
ممنون میشم راهنماییم کنین