27-05-13, 06:14 PM
السلام عليكم
أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر
أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر
جعل مربع النص يقبل أرقام فقط
|
27-05-13, 06:14 PM
السلام عليكم
أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر
27-05-13, 06:46 PM
Ahmed Abdulla كتب :السلام عليكم تفضل اخي الكريم يوضع في حدث KeyPress كود : Select Case KeyAscii تم الشكر بواسطة: princeofislam
27-05-13, 11:29 PM
جزاك الله كل خير وربنا يجعله في ميزان حسناتك
السلام عليكم
اقترح عليك هذا الكود Option Explicit
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Const ES_NUMBER As Long = &H2000& Private Const GWL_STYLE As Long = -16 Private Sub MakeNumericOnly(Obj As Object) Dim Style As Long Style = GetWindowLong(Obj.hwnd, GWL_STYLE) Style = Style Or ES_NUMBER SetWindowLong Obj.hwnd, GWL_STYLE, Style End Sub () Private Sub Form_Load MakeNumericOnly Text1 End Sub أو هذا الكود البسيط جدا المكون من سطر واحد كود : Private Sub Text1_KeyPress(KeyAscii As Integer) ملاحظة: إذا أردت أن تكتب الأرقام السالبة فأضف الإشارة (ـ) إلى الأرقام والفاصلة أو النقطة: -.0123456789 وغيرها مما تسمح باستعماله تم الشكر بواسطة: princeofislam , asemshahen5
30-05-13, 10:03 AM
شكرا لاهتمامكم وجزاكم الله خيرا
22-07-13, 05:20 PM
جزيتم خيرا
تم الشكر بواسطة: princeofislam
|
|