Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 8
Case 13
Text3.SetFocus
Case Else
Beep
MsgBox " رقم الهاتف يجب أن يكون رقم ", vbOKOnly, " هناك خطا ما .. ر سالة تحذيرية"
KeyAscii = 0
End Select
End Sub
مثال على جعل مربع النص لا يقبل إلا أرقام
Private Sub Text3_KeyPress(KeyAscii As Integer) Select case KeyAscii case 48 To 57 case 8 case 13 Text3.SetFocus case Else Beep MsgBox " رقم الهاتف يجب أن يكون رقم ", vbOKOnly, " هناك خطا ما .. ر سالة تحذيرية" KeyAscii = 0 End Select End Sub
حاول استخدام تقنيات المنتدى , لفهم أوضح
ولقد قمت بإرفاق ملف توضيحي لاستعمال الكود (مع إنه سهل جدا)
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
معك حق لأن ما فهمت شي من الي كتبه الاخ htmdf