حالا يك ((تكست باكس)) روي فرم بيافزاييد و كد زير را به ((پنجره كد)) بيافزاييد:
[ltr]Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
'Ok to type these keys
Case Else
KeyAscii = 0
End Select
End Sub[/ltr]
نتيجه اين ميشه كه كاربر اگر اعداد را بزند، داخل ((تكست باكس)) تايپ ميشه، ولي اگر غير اعداد را بزنه، چيزي تايپ نمي شه
=====================
مطلب بالا قسمتي از پست 171 تاپيك آموزش ويژوال بيسيك است.
=====================
راه ديگه كه فكر كنم مقرون به صرفه نباشه ....كار با توابع رشته اي است .. كه ابدا قابل اجرا نيست
راه ديگه اي به ذهنم نمي رسه.
نظر خود را بفرماييد تا جلو برويم.
.درود.
.