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


الملفات المرفقة
.zip   جاسم الغزي.zip (الحجم : 1.53 ك ب / التحميلات : 41)
الرد
تم الشكر بواسطة: 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 1 ,text2 بطريقةsql هناء صالح 1 82 20-10-18, 09:31 PM
آخر رد: Amir_alzubidy
Question [vb6.0] هل يمكن توزيع التاريخ بحث يكون السنة في Text والشهر في Text اخر واليوم في text ؟؟ Microformt 1 101 03-10-18, 07:29 PM
آخر رد: جاسم عبد
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 149 21-09-18, 05:12 PM
آخر رد: Microformt
  كيف اعرف اسم المستخدم للوندوز ابوثامر الحامد 2 161 03-08-18, 02:29 PM
آخر رد: ابوثامر الحامد
  تعديل على انشاء فورم لادخال ارقام الجلوس للطلاب باختيار الصف والفصل محمد تريكه 5 261 30-07-18, 07:39 AM
آخر رد: elgokr
  [vb6.0] انشاء فورم لادخال ارقام الجلوس للطلاب محمد تريكه 10 415 27-07-18, 06:41 PM
آخر رد: محمد تريكه
  [سؤال] اجبار المستخدم على ادخال التاريخ hananfathy 2 266 07-04-18, 03:01 PM
آخر رد: hananfathy
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 261 12-03-18, 07:09 AM
آخر رد: Microformt
  منع المستخدم من اغلاق الفورم اسلام الكبابى 3 356 04-11-17, 03:24 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف اجعل زر الامر ينتقل امام text عند انتقل موشر الكتابه الى text اخر ؟؟ Microformt 2 311 29-10-17, 07:33 AM
آخر رد: Microformt

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


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