سؤال مهم جداً في الأكسس

بسم الله الرحمن الرحيم

جرب هاد الكود

Private Const ES_NUMBER = &H2000&

Private Const GWL_STYLE = (-16)

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()

Dim tmp As Long

tmp = SetWindowLong(Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER)

End Sub

حط تكست بوكس واحد وإنسخ الكود على مكان الكود ونفذ مارح تقدر تكتب أي حرف داخل التكست :)

=================================================

تم حذف رابط الموقع لإحتواءة على فايروس (( الحب الأحمر )) ..

=================================================

الكود ما يصلح،،

ممكن تعمل لي مثال؟

تفضل أخي هذا الكود

ضعه في حدث KeyPress

وأن شاء الله راح يعمل

عذا الكود لمنع كتابة الأرقام

 Dim MYFIELD As String
MYFIELD = "0123456789"
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If

If KeyAscii > 26 Then
  If InStr(MYFIELD, Chr(KeyAscii)) = 0 Then
   KeyAscii = KeyAscii
  Else
  KeyAscii = 0
  End If
End If

وهذا لعكس الكود السابق فهو لا يكتب غير الأرقام

Dim MYFIELD As String
MYFIELD = "0123456789"
If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If

If KeyAscii > 26 Then
  If InStr(MYFIELD, Chr(KeyAscii)) = 0 Then
   KeyAscii = 0
  End If
End If

الكود يوضع في حدث KeyPress لمربع النص

شكراً

الكود 10 على 10

شكراً

الكود 10 على 10