+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيفية استخدام جملة if الشرطية (/showthread.php?tid=9181)
الصفحات:
1
2
كيفية استخدام جملة if الشرطية - asto - 06-06-13
السلام عليكم
عندي 8 تكست بوكس مخفيةاي Visible =false
و المطلوب إذا اصبح عدد منها غير مخفي
اضعه بدلا عن ما بين قوسين في الشرط
كود :
if (text1.text="" or text2.text="" or text3.text=""................................ text8.text="") thenيعني مثلا اذا اصبح لدينا التكست1 و التكست2 ظاهرين يكون الشرط
كود :
if text1.text="" or text2.text="" thenو اذا اصبح لدينا التكست1 و التكست2 و التكست3 ظاهرة يكون الشرط
كود :
if text1.text="" or text2.text="" or text3.text="" thenكيفية استخدام جملة if الشرطية - abulayth - 06-06-13
السلام عليكم
اخي الكريم استخدم Visible =True في الشرط مع And لتصبح الجملة كالتالي
كود :
If Text1.Visbile = True And Text2.Visbile = True And Text3.Visbile = true Thenيعطيك العافية
كيفية استخدام جملة if الشرطية - asto - 06-06-13
abulayth كتب :السلام عليكم
اخي الكريم استخدم Visible =True في الشرط مع And لتصبح الجملة كالتالي
كود :
If Text1.Visbile = True And Text2.Visbile = True And Text3.Visbile = true Then
يعطيك العافية
مشكور اخي المشرف
بس انا اريد اظهار رسالة ما اذا ما عدد معين من مثلا 3 تم اظهاره و عدم ادخال اي قيمة في واحدة منها او اثنين او الثلاثة معا
و اذا تم اظهار 4 و لم تتم عملية ادخال اية قيمة في احدها او اثنتين او ثلاثة او كلها
و هكذا
كيفية استخدام جملة if الشرطية - 3booody - 06-06-13
السلام عليكم ورحمة الله وبركاته
يمكنك وضع شرط لكل نص وبهالشكل
كود :
If Text1.Visible = True And Text1.Text = "" Then
MsgBox("Enter text")
End Ifكيفية استخدام جملة if الشرطية - VB_Coder - 06-06-13
السلام عليكم
- إستخدم هذا الكود على حسب مافهمت ، أنك تريد إذا أصبح أي تكست من الثمانية في حالة الظهور يتم وضعه في جملة الشرط أي إذا كان أي تكست ظاهرا يجب فحصه ما إذا كان فارغ أم لا , إذا أعتقد أن هذا هو الكود المناسب :
كود :
Dim Ctrl As Control
For Each Ctrl In Controls
IF TypeOf Ctl Is TextBox And Ctl.Visible = True Then
IF Trim$(Ctl.Text) = "" Then
MsgBox "Write Text"
Ctl.SetFocus
Exit Sub
End If
End IF
Next- تحياتي .
كيفية استخدام جملة if الشرطية - asto - 07-06-13
شكرا للاخوة المجيبين
و خاصة ل 3booody و VB_Coder
على الرغم من ان كوده يظهر لي خطأ
كيفية استخدام جملة if الشرطية - asto - 07-06-13
و طلع اذا بدك تحط else بدك تحط : If Text1.Visible = True And not Text1.Text = "" Then
بدلا عنه
كيفية استخدام جملة if الشرطية - VB_Coder - 07-06-13
السلام عليكم
- ماهو الخطأ ، أعتقد أنه يظهر على كلمة SetFocus إذا كان كذلك فقم بإزالتها .
- تحياتي .
كيفية استخدام جملة if الشرطية - 3booody - 07-06-13
اخي انته مو شرط انك تضع عبارة Else في وسط if حتى تحصل الي تريده يمكنك وضع كما قال الاخ VB_Coder او بهالشكل
كود :
If Text1.Visible = True And Text1.Text = "" Then
'
End If
If Text2.Visible = True And Text2.Text = "" Then
End Ifلاتضع Else الا لتحقيق لشرط ثاني
كيفية استخدام جملة if الشرطية - محمود اكرم - 07-06-13
asto كتب :و طلع اذا بدك تحط else بدك تحط : If Text1.Visible = True And not Text1.Text = "" Then
بدلا عنه
سلام عليكم اخ
هناك طريقة بدل التي وضعتها
not text1.text=""
وهي
Text1.Text<> ""
او
(text1.text)len >0
للمعلومة فقط:o
وهي
Text1.Text<> ""
او
(text1.text)len >0
للمعلومة فقط:o