+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : اشترط على المستخدم ادخال رقم 1 في البداية (/showthread.php?tid=19195)
اشترط على المستخدم ادخال رقم 1 في البداية - طالب - 11-02-17
احتاج الى هذا الكود في الفيجول بيسك 6
في حقل ID يشترط على المستخدم ادخال رقم 1 في بداية التكست بوكس
شاكرا لكم تعاونكم
RE: اشترط على المستخدم ادخال رقم 1 في البداية - sendbad100 - 11-02-17
وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود
كود :
Private Sub Command1_Click()
If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If
End SubRE: اشترط على المستخدم ادخال رقم 1 في البداية - طالب - 11-02-17
(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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
RE: اشترط على المستخدم ادخال رقم 1 في البداية - عبد العزيز البسكري - 11-02-17
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و جزاك خير الجزاء و نفع بك الاسلام و المسلمين أخي و أستاذي الغالي : 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فائق الشكر و الاحترام و التّقدير
RE: اشترط على المستخدم ادخال رقم 1 في البداية - sendbad100 - 11-02-17
(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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
RE: اشترط على المستخدم ادخال رقم 1 في البداية - طالب - 11-02-17
(11-02-17, 10:45 PM)sendbad100 كتب : [attachment=13121]طريقة الكود صحيحه لكن هناك شيء لم اوضحه[attachment=13121] في سؤالي لذا ارفقت لك البروجيكت للتعديل عليه وملاحظة ما طلبته
(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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
تحياتي
RE: اشترط على المستخدم ادخال رقم 1 في البداية - sendbad100 - 12-02-17
جرب هذا الكود
كود :
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
والله الموفق
RE: اشترط على المستخدم ادخال رقم 1 في البداية - طالب - 12-02-17
(12-02-17, 12:03 AM)sendbad100 كتب :
رائع
جزاك الله خير
اشكر مساعدتك والله يحفظك استاذي
RE: اشترط على المستخدم ادخال رقم 1 في البداية - AL_BRNS - 12-02-17
السلام عليكم
جرب التالي
PHP كود :
Private Sub Text1_Change()
If Left(Text1.Text, 1) = "1" Then
Else
Text1.Text = ""
End If
End Sub
بالتوفيق .
RE: اشترط على المستخدم ادخال رقم 1 في البداية - مساعدة - 12-02-17
السلام عليكم
يمكن أن تسهل المهمة بأن تجعل الرقم 1 مكتوب في Label ثابت بجوار اداة TextBox المقصودة للإشارة لقيمة ثابتة،
وعند الحفظ يمكن وضع 1 قبل محتوى النص مثل هذا الكود
كود :
"1" & TextBox1.Text