تقييم الموضوع :
  • 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] كيف اجعل المستخدم يكتب في Text انجليزي فقط ؟؟ Microformt 2 77 21-09-18, 05:12 PM
آخر رد: Microformt
  كيف اعرف اسم المستخدم للوندوز ابوثامر الحامد 2 98 03-08-18, 02:29 PM
آخر رد: ابوثامر الحامد
  [سؤال] اجبار المستخدم على ادخال التاريخ hananfathy 2 191 07-04-18, 03:01 PM
آخر رد: hananfathy
Question [vb6.0] هل يمكن تغير اسم المستخدم وكلمة المرور إذا كنت موجودة ضمن الكود ؟؟ Microformt 2 189 12-03-18, 07:09 AM
آخر رد: Microformt
  عايز اعمل شاشه مبيعات تجاريه مع طريقه ادخال البيانات goodmastar2 4 329 24-11-17, 12:24 AM
آخر رد: goodmastar2
  منع المستخدم من اغلاق الفورم اسلام الكبابى 3 278 04-11-17, 03:24 PM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف اشترط على المستخدم ان يحدد السجل الذي اريد حذفه في برنامجي المرفق ؟؟ Microformt 3 603 01-04-17, 02:18 AM
آخر رد: awidan76
Question [vb6.0] كيف يمكن تحديد أسم المستخدم من القائمة وإدخال كلمة المرور ؟؟ Microformt 1 513 14-12-16, 03:53 PM
آخر رد: sendbad100
Question [vb6.0] كيف اشترط على المستخدم إدخال نص في مكان اسم المواظف وفي رقم المواظف إدخال رقم ؟؟ Microformt 2 551 23-10-16, 05:36 PM
آخر رد: Microformt
Question [vb6.0] كيف امنع المستخدم أن إدخل في Text رمز او رقم ؟؟ Microformt 6 825 29-04-16, 08:27 PM
آخر رد: Microformt

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


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