از دوستان ایران ویج کمک

[kajin]

باسلام خدمت دوستان ایرن ویج :
یک مشکل برایم پیش اومده که:
- برای اینکه در درون یک textbox که متغیر آن integer باشد فقط اعداد را قبول کند یعنی اگر در درون اون textbox حرف نوشته شود قبول نکند و error نشان دهد و همچنین برای یک متغیر جدا اگر درون textbox رقم نوشته شود برعکس قسمت بالا حرکت کند.

[Hadi_VB]

برای فیلتر عدد این کد رو در روال KeyPress تکست مربوطه وارد کن
Dim strvalid As String
'
strvalid = "0123456789"
'
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
End If

[Hadi_VB]

برای فیلتر حروف هم این یکی:

Dim strvalid As String
'
strvalid = "0123456789"
'
If KeyAscii > 26 Then
If InStr(strvalid, Chr(KeyAscii)) <> 0 Then
KeyAscii = 0
End If
End If
'
موفق باشی

[kajin]

دست شما درد نکن Hadi جون خیلی خیلی ممنون

[kajin]

آقا Hadi ببخشید >> شما می تونید در مورد kayAscii که در این کد های بکار بردید کمی توضیح بدبد خیلی ممنون می شم.

[Soheilvb]

ببين توي روي داد KeyDown براي TextBox يك متغير KeyAscii است . هر دكمه روي كيبورد(به جز چند تا ) KeyAscii دارند براي تبديل KeyAscii به حرف از chr و باري تبديل حرف به keyascii از تابع Asc استفاده مي شه.
حالا اين كد هادي Asci زو به حرف تبديل مي كنه و مي بينه كه تو ليست Valid هست يا نه . همين