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


الملفات المرفقة
.zip   جاسم الغزي.zip (الحجم : 1.53 ك ب / التحميلات : 14)
الرد }}}}
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 54 أمس, 11:58 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 302 01-04-17, 02:18 AM
آخر رد: awidan76
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 109 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  اشترط على المستخدم ادخال رقم 1 في البداية طالب 9 309 12-02-17, 02:12 AM
آخر رد: مساعدة
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 189 14-12-16, 03:53 PM
آخر رد: sendbad100
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 920 17-11-16, 11:54 PM
آخر رد: iisys
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 433 07-11-16, 06:16 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ Microformt 2 265 23-10-16, 05:36 PM
آخر رد: Microformt
  [vb6.0] كيف اجعل عند إدارج مسار الصورة في Text تظهر الصوره في برنامج المرفق ؟؟ Microformt 1 220 07-10-16, 12:37 PM
آخر رد: Amir_alzubidy
  [vb6.0] نقل من Combo الي TEXT iisys 10 488 26-09-16, 07:56 AM
آخر رد: iisys

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


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