المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
08-12-15, 11:08 PM
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 78
المواضيع 10
الإنتساب : Jan 2014
السمعة :
14
الشكر: 436
تم شكره 361 مرات في 74 مشاركات
السلام عليكم
استخدم 2 (text) كما ماموجود بالمرفق الذي عملته لك
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(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 I = 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
اخي العزيز احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 2,008
المواضيع 58
الإنتساب : Oct 2014
السمعة :
1,005
الشكر: 31833
تم شكره 22865 مرات في 2187 مشاركات
أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(15-12-15, 10:14 PM)Ahmed_Mansoor كتب : أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .
اخي احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ