المشاركات : 4
المواضيع 1
الإنتساب : Dec 2016
السمعة :
0
الشكر: 6
تم شكره 4 مرات في 1 مشاركات
احتاج الى هذا الكود في الفيجول بيسك 6
في حقل ID يشترط على المستخدم ادخال رقم 1 في بداية التكست بوكس
شاكرا لكم تعاونكم
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود
كود :
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
المواضيع 1
الإنتساب : Dec 2016
السمعة :
0
الشكر: 6
تم شكره 4 مرات في 1 مشاركات
(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
والله الموفق
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
11-02-17, 10:42 PM
(آخر تعديل لهذه المشاركة : 11-02-17, 10:44 PM {2} بواسطة عبد العزيز البسكري.)
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و جزاك خير الجزاء و نفع بك الاسلام و المسلمين أخي و أستاذي الغالي : 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
فائق الشكر و الاحترام و التّقدير
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
(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
والله الموفق
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
المشاركات : 4
المواضيع 1
الإنتساب : Dec 2016
السمعة :
0
الشكر: 6
تم شكره 4 مرات في 1 مشاركات
(11-02-17, 10:45 PM)sendbad100 كتب :
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
والله الموفق
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
طريقة الكود صحيحه لكن هناك شيء لم اوضحه
IDTEXT.rar (الحجم : 1.03 ك ب / التحميلات : 51)
في سؤالي لذا ارفقت لك البروجيكت للتعديل عليه وملاحظة ما طلبته
تحياتي
المشاركات : 1,545
المواضيع 33
الإنتساب : Jul 2016
السمعة :
255
الشكر: 6532
تم شكره 4340 مرات في 1696 مشاركات
جرب هذا الكود
كود :
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
والله الموفق
المشاركات : 4
المواضيع 1
الإنتساب : Dec 2016
السمعة :
0
الشكر: 6
تم شكره 4 مرات في 1 مشاركات
(12-02-17, 12:03 AM)sendbad100 كتب :
رائع
جزاك الله خير
اشكر مساعدتك والله يحفظك استاذي
المشاركات : 84
المواضيع 3
الإنتساب : Oct 2013
السمعة :
15
الشكر: 90
تم شكره 271 مرات في 94 مشاركات
السلام عليكم
جرب التالي
PHP كود :
Private Sub Text1_Change() If Left(Text1.Text, 1) = "1" Then Else Text1.Text = "" End If End Sub
بالتوفيق .
المشاركات : 595
المواضيع 1
الإنتساب : Dec 2016
السمعة :
45
الشكر: 0
تم شكره 544 مرات في 355 مشاركات
السلام عليكم
يمكن أن تسهل المهمة بأن تجعل الرقم 1 مكتوب في Label ثابت بجوار اداة TextBox المقصودة للإشارة لقيمة ثابتة،
وعند الحفظ يمكن وضع 1 قبل محتوى النص مثل هذا الكود
كود :
"1" & TextBox1.Text
|