منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف  اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
نامل من الله  المساعدة والله يحفظكم ويرعاكم

السلام عليكم
استخدم  2 (text)  كما ماموجود بالمرفق الذي عملته لك

أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

(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 


اخي العزيز  احمد
السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم

أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .

(15-12-15, 10:14 PM)Ahmed_Mansoor كتب : [ -> ]أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .

اخي احمد
 السلام عليكم ورحمة وبركاته
 لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي