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

نسخة كاملة : كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف  اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
نامل من الله  المساعدة والله يحفظكم ويرعاكم
السلام عليكم
استخدم  2 (text)  كما ماموجود بالمرفق الذي عملته لك
أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :

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 
(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 

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

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