تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اشترط على المستخدم ادخال رقم 1 في البداية
#1
احتاج الى هذا الكود في الفيجول بيسك 6



في حقل ID  يشترط على المستخدم ادخال رقم 1 في بداية التكست بوكس



شاكرا لكم تعاونكم
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته 


جرب هذا الكود 

كود :
Private Sub Command1_Click()

If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub
والله الموفق
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , Ahmed_Mansoor
#3
(11-02-17, 10:08 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته 


جرب هذا الكود 

كود :
Private Sub Command1_Click()

If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub
والله الموفق

المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام  مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
الرد }}}
تم الشكر بواسطة:
#4
السّلام عليكم و رحمة الله و بركاته

بارك الله فيك و جزاك خير الجزاء و نفع بك الاسلام و المسلمين أخي و أستاذي الغالي : SENDBAD100 
لا كلام بعد كلامك و حديث بعد حديثك و لا ربع كود بعد أعمالك باسم الله تبارك الله
فقط من باب الاحتياط للشّرط إرتأيت بنظرتي المتواضعة أن أضيف لما تقدّمت به مع إفتراض وجود العديد من التاكسات بوكس :



كود :
Private Sub Command1_Click()

كود :
If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Text2.Enabled = True
Text3.Enabled = True
Else
MsgBox "False"
TxtID.SetFocus
Text2.Enabled = False
Text3.Enabled = False
End If

End Sub
فائق الشكر و الاحترام و التّقدير
الرد }}}
تم الشكر بواسطة: sendbad100 , طالب , طالب , Ahmed_Mansoor , السيد الغالي
#5
(11-02-17, 10:37 PM)طالب كتب :
(11-02-17, 10:08 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته 


جرب هذا الكود 

كود :
Private Sub Command1_Click()

If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub
والله الموفق

المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام  مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله

ركز قليلا 

الرسالة  تظهر ولكن بنص مختلف
الرد }}}
تم الشكر بواسطة: طالب , Ahmed_Mansoor
#6
(11-02-17, 10:45 PM)sendbad100 كتب :
.rar   IDTEXT.rar (الحجم : 1.03 ك ب / التحميلات : 51)
(11-02-17, 10:37 PM)طالب كتب :
(11-02-17, 10:08 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته 


جرب هذا الكود 

كود :
Private Sub Command1_Click()

If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If

End Sub
والله الموفق

المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام  مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله

ركز قليلا 

الرسالة  تظهر ولكن بنص مختلف
طريقة الكود صحيحه  لكن هناك شيء لم اوضحه
.rar   IDTEXT.rar (الحجم : 1.03 ك ب / التحميلات : 51) في سؤالي لذا ارفقت لك البروجيكت للتعديل عليه وملاحظة ما طلبته 
تحياتي
الرد }}}
تم الشكر بواسطة:
#7
جرب هذا الكود

كود :
Private Sub TxtID_KeyUp(KeyCode As Integer, Shift As Integer)
If Trim(Mid(Me.TxtID.Text, 1, 1)) <> Trim(1) Then
Me.TxtID.Text = ""
End If
End Sub

ضعه في الحدث  KeyUp  



والله الموفق
الرد }}}
#8
(12-02-17, 12:03 AM)sendbad100 كتب :
 
رائع
Smile
جزاك الله خير

اشكر مساعدتك والله يحفظك استاذي
الرد }}}
#9
السلام عليكم

جرب التالي

PHP كود :
Private Sub Text1_Change()
If 
Left(Text1.Text1) = "1" Then
Else
Text1.Text ""
End If
End Sub 

بالتوفيق .
الرد }}}
#10
السلام عليكم

يمكن أن تسهل المهمة بأن تجعل الرقم 1 مكتوب في Label ثابت بجوار اداة TextBox المقصودة للإشارة لقيمة ثابتة،
وعند الحفظ يمكن وضع 1 قبل محتوى النص مثل هذا الكود
كود :
"1" & TextBox1.Text
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم ان تتكون كلمة السر من احرف كبيره وارقام ورموز ؟ Microformt 1 313 07-07-23, 08:26 AM
آخر رد: Taha Okla
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 721 04-08-22, 10:21 PM
آخر رد: Microformt
  [vb6.0] ادخال الاعدادات من داخل نافذة البرنامج وليس من محرر الاكواد وادي العوضي 4 940 03-07-22, 02:00 PM
آخر رد: وادي العوضي
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,795 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف يمكن ان اشترط على المستخدم إذخال في Text "ذكر"او "انثى" ؟؟ Microformt 2 1,206 21-03-21, 10:39 PM
آخر رد: Microformt
  [vb6.0] كيف اشترط على المستخدم 14 رقماً في text ؟ Microformt 1 992 23-10-20, 01:18 AM
آخر رد: AL_BRNS
Question [vb6.0] كيف يمكن اجبار المستخدم ادخال صيغة الوقت في تكست بوكس بهذة الصيغة مثلا 08:06 ص؟ Microformt 2 1,441 04-05-20, 11:27 PM
آخر رد: Microformt
Question [vb6.0] كيف اشترط على المستخدم إدخال في التكست إدخال قيمة تحتوي على علامة مئوية.؟؟ Microformt 5 1,943 12-04-20, 12:53 AM
آخر رد: AL_BRNS

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


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