Printable View
با سلام خدمت تمامی برنامه نویسان عزیز
از خدمتتون یه سوال داشتم و اون اینکه
من برای اینکه تو تکست باکس ها فقط عدد نوشته بشه از کد زیر استفاده می کنم:
Private Sub Text6_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
ولی مشکلی که برام پیش اومده اینه که چون اعدادم بیشتر اعشاریه دیگه تکست باکس ممیز یا همون علامت اعشاری رو قبول نمیکنه چیکار کنم که مشکل حل بشه
ممنون میشم راهنماییم کنین
سلام
کد جالبی بود ممنون
کافیه خط اول رو به شکل زیر بنویسید:
در ضمن هر کاراکتر دیگه ای هم که بخواهید با همین روش قابل اضافه شدن هست....کد HTML:If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 And KeyAscii <> 46 Then
ممیز رو علامت "." محسوب کردم
خیلی خیلی ممنون به خاطر جواب سریعتون
منظور من هم همون "." بود که با کد شما مشکل حل شد
با تشکر مجدد
سلام،
ورودتون به جامعه برنامه نویس رو تبریک میگم، لطفا برای تشکر کردن از کاربران، فقط از دکمه ای که به همین منظور قرار داده شده، استفاده کرده و از ارسال پست خودداری کنید؛
چون کاربر جدید هستید پست قبلی رو پاک نکردم...
ضمناً :
درصورتی که نمیخواین برای هر TextBox کد بنویسید، می تویند از کامپوننت IntTextBox استفاده کنید :
https://barnamenevis.org/showthread.p...A7%D9%84%D8%A8
موفق باشید...