تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
#1
Question 
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف  اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
نامل من الله  المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
استخدم  2 (text)  كما ماموجود بالمرفق الذي عملته لك


الملفات المرفقة
.zip   جاسم الغزي.zip (الحجم : 1.53 ك ب / التحميلات : 43)
الرد }}}
تم الشكر بواسطة: Microformt , الاصيله , Ahmed_Mansoor
#3
أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

PHP كود :
Dim IsOk As Boolean
Dim I 
As Integer
Dim CharsCount 
As Integer

IsOk 
True

If IsNumeric(Trim$(Text1.Text)) = True Then IsOk False

For 1 To Len(Trim$(Text1.Text))
    If 
IsNumeric(Mid$(Trim$(Text1.Text), I1)) = False Then
       CharsCount 
CharsCount 1
    End 
If
Next

If CharsCount Len(Trim$(Text1.Text)) Or CharsCount 1 Then IsOk False

If IsOk False Then
    MsgBox 
"يرجى إدخال حرف واحد والباقي أرقام"
    
Text1.SetFocus
    
Exit Sub
End 
If 
الرد }}}
تم الشكر بواسطة: Microformt , الاصيله , Sajad , Sajad
#4
(15-12-15, 05:46 AM)Ahmed_Mansoor كتب : أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

PHP كود :
Dim IsOk As Boolean
Dim I 
As Integer
Dim CharsCount 
As Integer

IF IsNumeric(Trim$(Text1.Text)) = True Then  IsOk False

For 1 To Len(Trim$(Text1.Text))
 
      IF IsNumeric(Mid$(Trim$(Text1.Text),I,1)) = False Then 
           CharsCount 
CharsCount 1
       End 
IF
Next

IF CharsCount Len(Trim$(Text1.Text)) Or CharsCount 1 Then IsOk False

IF IsOk False Then
    MsgBox 
"يجب أن تكتب حرف واحد والباقي أرقام"
 
   Text1.SetFoucs
    Exit Sub
End 
IF 

اخي العزيز  احمد
السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#5
أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .
الرد }}}
تم الشكر بواسطة: Microformt
#6
(15-12-15, 10:14 PM)Ahmed_Mansoor كتب : أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .

اخي احمد
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ريد عند النقر على الصف من الجدول المجود على الفورم يظهر رقم الصنف في Text ؟ Microformt 1 327 04-11-23, 10:34 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 312 07-07-23, 08:26 AM
آخر رد: Taha Okla
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
Question [vb6.0] كيف امنع حفظ قناع Text وهوا بشكل التالي ؟؟ Microformt 1 502 30-09-22, 11:53 PM
آخر رد: Taha Okla
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt
  اريد طريقة لتنفيذ امر داخل TEXT بعد ضغط مفتاح ENTER محمد حمد محمد سليمان 2 1,010 25-01-22, 01:00 AM
آخر رد: محمد حمد محمد سليمان
  [vb6.0] انشاء فورم لادخال ارقام الجلوس للطلاب محمد تريكه 13 5,381 04-01-22, 12:39 PM
آخر رد: Taha Okla
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 1,119 02-10-21, 02:39 PM
آخر رد: Microformt
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,795 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  [vb6.0] كيف يمكن إضهار الصوره تحت Text عند النقر على زر الامر ؟؟ Microformt 2 1,352 08-06-21, 04:42 PM
آخر رد: Microformt

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


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