ايران ويج

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

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

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

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

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

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

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