19-03-13, 08:51 AM
السلام عليكم
- استخدم هذا الكود الذي سيكون في حدث الكي برس لأداة التكست :-
- تحياتي .
- استخدم هذا الكود الذي سيكون في حدث الكي برس لأداة التكست :-
كود :
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim KeyChar As String
"KeyChar = "MNOPQRSTUVWXYZABCDEFGHIJKL
IF Instr(1, KeyChar,Chr(KeyAscii)) =0 Then
KeyAscii =0
Exit Sub
End IF
End Sub- تحياتي .