سوال ؟ وارد کردن فقط عدد در تکست باکس همراه با علامت ممیز

[hosein3000]

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

[mr-adler]

سلام
کد جالبی بود ممنون
کافیه خط اول رو به شکل زیر بنویسید:

    If IsNumeric(Chr(KeyAscii)) = False And KeyAscii <> 8 And KeyAscii <> 46 Then

در ضمن هر کاراکتر دیگه ای هم که بخواهید با همین روش قابل اضافه شدن هست....

ممیز رو علامت "." محسوب کردم

[hosein3000]

خیلی خیلی ممنون به خاطر جواب سریعتون
منظور من هم همون "." بود که با کد شما مشکل حل شد
با تشکر مجدد

[Pr0grammer]

سلام،
ورودتون به جامعه برنامه نویس رو تبریک میگم، لطفا برای تشکر کردن از کاربران، فقط از دکمه ای که به همین منظور قرار داده شده، استفاده کرده و از ارسال پست خودداری کنید؛
چون کاربر جدید هستید پست قبلی رو پاک نکردم...

ضمناً :
درصورتی که نمیخواین برای هر TextBox کد بنویسید، می تویند از کامپوننت IntTextBox استفاده کنید :
https://barnamenevis.org/showthread.p...A7%D9%84%D8%A8

موفق باشید...