تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جعل مربع النص يقبل أرقام فقط
#1
السلام عليكم

أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#2
Ahmed Abdulla كتب :السلام عليكم

أريد كود لجعل مربع النص لا يقبل الا أرقام فقط ولكم جزيل الشكر


تفضل اخي الكريم

يوضع في حدث KeyPress



كود :
Select Case KeyAscii
        'negotive numbers
        'KeyAscii; 45 is "-"
        Case 45
            If Len(TXT.Text) >= 1 Then
                KeyAscii = 0
            End If
        'KeyAscii; 8 is "Backspace", 46 is "." decimal,
        ' 48-57 is "0-9"
        Case 8, 46, 48 To 57
            KeyAscii = KeyAscii
        Case Else
            KeyAscii = 0
    End Select


الملفات المرفقة
.rar   كود لجعل مربع ال&#.rar (الحجم : 1.81 ك ب / التحميلات : 60)
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله كل خير وربنا يجعله في ميزان حسناتك
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم
اقترح عليك هذا الكود
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)
    If Not Chr(KeyAscii) Like "[0123456789.]" Then KeyAscii = 0
    End Sub

ملاحظة: إذا أردت أن تكتب الأرقام السالبة فأضف الإشارة (ـ) إلى الأرقام والفاصلة أو النقطة: -.0123456789 وغيرها مما تسمح باستعماله
الرد }}}}
تم الشكر بواسطة:
#5
شكرا لاهتمامكم وجزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#6
جزيتم خيرا
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 203 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  سؤال عن اداة النص AhmedSamir3 16 1,625 19-08-13, 09:44 PM
آخر رد: AGASHE
  مرحبا؟اريد كود تصوير الفورم ووضع الصورة في اداة مربع النص واظهار حوار لحفظ الصورة بتنسيق bmp وشكرا طارق 2 1,090 13-08-13, 04:32 AM
آخر رد: VB_Coder
  تغير لون النص الكوماند عند مرور المؤشر عليه ويرجع اللون الى اصله عند ابتعاد المؤشر عنه علي عبد الوهاب 2 608 31-07-13, 09:21 PM
آخر رد: عبد الله190
  ازاى اجعل التكست يقبل الرموز مثل "۞" ولا يحولها الى علامات ؟؟ Yasso 13 1,152 29-07-13, 04:50 AM
آخر رد: Yasso
  كيف اعمل text.SetFocus اخر النص ابو بدران 5 636 21-07-13, 09:30 PM
آخر رد: ابو بدران
  التعرف على النص المكتوب asto 2 366 18-07-13, 07:07 PM
آخر رد: asto
  أرجو المساعدة في تغيير النص shafiq 2 367 02-06-13, 12:25 PM
آخر رد: shafiq
  حفظ النص داخل مربع نص الحائطي 6 738 08-05-13, 03:33 AM
آخر رد: VB_Coder
  عدد صناديق النص shamal 2 398 13-04-13, 09:15 PM
آخر رد: shamal

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم