+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ (/showthread.php?tid=14070)
كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - Microformt - 08-12-15
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
RE: كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - جاسم عبد - 14-12-15
السلام عليكم
استخدم 2 (text) كما ماموجود بالمرفق الذي عملته لك
RE: كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - Ahmed_Mansoor - 15-12-15
أهلا أخي الكريم سالم ، هذا كود لعملية الفحص :
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 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.SetFocus
Exit Sub
End If
RE: كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - Microformt - 15-12-15
(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
اخي العزيز احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
RE: كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - Ahmed_Mansoor - 15-12-15
أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .
RE: كيف اشترط على المستخدم ان يدخل حرف والباقي ارقام في Text ؟؟ - Microformt - 16-12-15
(15-12-15, 10:14 PM)Ahmed_Mansoor كتب : أرجو المعذرة أخي سالم , تم تعديل الكود تعديل بسيط لوجود خطأ بسيط وذلك لأني لم أجربه .
اخي احمد
السلام عليكم ورحمة وبركاته
لكم مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم
تحياتي