+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكله بالكود تحتاج حل (/showthread.php?tid=32061)
مشكله بالكود تحتاج حل - m.n.hakami - 10-11-19
كود :
Private Sub EV_SEND1_Click()
If Ev_text1.Value = "" Or Ev_text2.Value = "" Or Ev_text3.Value = "" Or Ev_text6.Value = "" Or Ev_text7.Value = "" Or Ev_text8.Value = "" Or Ev_text9.Value = "" Or Ev_text10.Value = "" Or Ev_text11.Value = "" Or Ev_text12.Value = "" Or Ev_text13.Value = "" Or Ev_text14.Value = "" Or Ev_text15.Value = "" Or Ev_text16.Value = "" Or Ev_text17.Value = "" Or Ev_text18.Value = "" Or Ev_text19.Value = "" Or Ev_text20.Value = "" Or Ev_text21.Value = "" Or Ev_text22.Value = "" Or Ev_text23.Value = "" Then
MsgBox "لا يمكن الاعتماد وبعض الحقول فارغه"
Else
MsgBox "تم الاعتماد"
End Ifكود :
IF Ev_text1.Value = "" AND Ev_text1.Visible=TURL Or Ev_text2.ValueI AND AND Ev_text2.Visible=TURLبيكون الكود طويل مره اتمنى يكون حلقة تكرار ِ
RE: مشكله بالكود تحتاج حل - ابراهيم ايبو - 10-11-19
السلام عليكم اخي الكريم
تفضل هذا مثال وضعت لك عددا من التكست بوكس وبوتن
عند الضغط عليه اي تكست بوكس فارغ سيعطي الرسالة عدم الاعتماد
وان كانت كلها مملوءة ستظهر رسالة تم الاعتماد
RE: مشكله بالكود تحتاج حل - m.n.hakami - 12-11-19
لا عدمناك اخي
RE: مشكله بالكود تحتاج حل - ابراهيم ايبو - 12-11-19
الحمد لله والشكر لله
ولك اخي الكريم