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


الملفات المرفقة
.zip   جاسم الغزي.zip (الحجم : 1.53 ك ب / التحميلات : 29)
الرد }}}}
تم الشكر بواسطة: 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 7 188 13-10-17, 05:40 AM
آخر رد: Mohamad Anan
Question [vb6.0] كيف اجعل في text التاريخ لا يقبل في اليوم اكثر من 30 يوماً وكيف اجعل التاريخ في الشهر Microformt 2 43 09-10-17, 09:17 PM
آخر رد: عبد العزيز البسكري
Question [سؤال] كود لتغيير لون أكثر من text box تنمية المعرفة 4 156 10-09-17, 01:59 AM
آخر رد: تنمية المعرفة
Thumbs Up [سؤال] [vb6.0] مشكل ظهورحرف ݣ على شكل علامة استفهام في text guerciftech 3 132 22-08-17, 10:24 PM
آخر رد: guerciftech
Question [vb6.0] هل يمكن من خلال البرامجة عمل قيمة افتراضية في Text ؟؟ Microformt 2 176 28-05-17, 11:58 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 420 01-04-17, 02:18 AM
آخر رد: awidan76
Question [vb6.0] ماهوا الكود الذي يجعل Text في منصتف الفوم مهما كان حجم الفورم ؟ Microformt 1 197 04-03-17, 11:36 AM
آخر رد: Amir_alzubidy
  اشترط على المستخدم ادخال رقم 1 في البداية طالب 9 439 12-02-17, 02:12 AM
آخر رد: مساعدة
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 287 14-12-16, 03:53 PM
آخر رد: sendbad100
  [سؤال] كيف اجعل الأرقام في Text بهذا الشكل 123.456.99 ( قياسي ) إظهار الفواصل iisys 22 1,267 17-11-16, 11:54 PM
آخر رد: iisys

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


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