تقييم الموضوع :
  • 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
والله الموفق
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: عبد العزيز البسكري , 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
والله الموفق

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

ركز قليلا 

الرسالة  تظهر ولكن بنص مختلف
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
تم الشكر بواسطة: طالب , Ahmed_Mansoor
#6
(11-02-17, 10:45 PM)sendbad100 كتب :
.rar   IDTEXT.rar (الحجم : 1.03 ك ب / التحميلات : 49)
(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 ك ب / التحميلات : 49) في سؤالي لذا ارفقت لك البروجيكت للتعديل عليه وملاحظة ما طلبته 
تحياتي
الرد
تم الشكر بواسطة:
#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  



والله الموفق
  Heart   الرجاء البحث قبل وضع السؤال  Heart

   كل عام وانتم بالف بخير.  
الرد
#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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اجبار المستخدم على ادخال التاريخ hananfathy 2 148 07-04-18, 03:01 PM
آخر رد: hananfathy
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 146 12-03-18, 07:09 AM
آخر رد: Microformt
  عايز اعمل شاشه مبيعات تجاريه مع طريقه ادخال البيانات goodmastar2 4 266 24-11-17, 12:24 AM
آخر رد: goodmastar2
  منع المستخدم من اغلاق الفورم اسلام الكبابى 3 198 04-11-17, 03:24 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 560 01-04-17, 02:18 AM
آخر رد: awidan76
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 457 14-12-16, 03:53 PM
آخر رد: sendbad100
Question [vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ Microformt 2 508 23-10-16, 05:36 PM
آخر رد: Microformt
Question [vb6.0] كيف امنع المستخدم أن إدخل في Text رمز او رقم ؟؟ Microformt 6 756 29-04-16, 08:27 PM
آخر رد: Microformt
Question منع المستخدم للبرنامج من الوصول الى الاكواد والتغيير فيها او نسخها haiderkh 7 738 21-04-16, 10:18 PM
آخر رد: Ahmed_Mansoor
Lightbulb [سؤال] كود يعمل على منع المستخدم من تثبيت البرامج على نظام التشغيل ياسر عبد الكريم 0 431 12-04-16, 09:28 PM
آخر رد: ياسر عبد الكريم

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


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