26-02-16, 10:35 PM
كيفيه التحقق من وجود نص فى التكست بوكس اذا كانت النتيجه ايجابيه بوجود نص يقوم بطباعه الفورم واذا لم يكن هناك نص لا يفعل شىء او يوقف عمليه الطباعه .
[vb6.0] التحقق من وجود نص فى التكست بوكس
|
26-02-16, 10:35 PM
كيفيه التحقق من وجود نص فى التكست بوكس اذا كانت النتيجه ايجابيه بوجود نص يقوم بطباعه الفورم واذا لم يكن هناك نص لا يفعل شىء او يوقف عمليه الطباعه .
26-02-16, 10:43 PM
(26-02-16, 10:35 PM)norhan كتب : كيفيه التحقق من وجود نص فى التكست بوكس اذا كانت النتيجه ايجابيه بوجود نص يقوم بطباعه الفورم واذا لم يكن هناك نص لا يفعل شىء او يوقف عمليه الطباعه . PHP كود : Private Sub Command1_Click() تم الشكر بواسطة: Ahmed_Mansoor , عبد العزيز البسكري
26-02-16, 11:58 PM
شكرا استاذنا ولكن انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = "" لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا
27-02-16, 12:08 AM
(آخر تعديل لهذه المشاركة : 27-02-16, 12:08 AM {2} بواسطة administrator.)
(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا ولكن انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل الكود مثل ما طلبت نشرح الكود خطوه خطوه PHP كود : If Trim$(Text1.Text) = "" Then الكود في الاعلى يتحقق من قيمة (Text1) اذا كانت فارغه ( لا تحتوي على نص ) يظهر المسج التالي PHP كود : MsgBox "لا يوجد نص", vbCritical اذا كان غير فارغ ( يحتوي على نص ) يظهر المسج التالي PHP كود : MsgBox "يوجد نص", vbOKOnly ------------------ انتهى ------------------
بالنسبه للرسائل بامكانك وضع الكود الذي يناسبك مكان كود الرساله تم الشكر بواسطة: عبد العزيز البسكري , السيد الغالي , Ahmed_Mansoor
27-02-16, 08:02 PM
(27-02-16, 12:08 AM)administrator كتب :اعزرنى الكود ليس هو ما اردت ولكن سوف ارسل لك ما اريد(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا ولكن انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل Private Sub Command2_Click() "انتبه انت لم تدخل اسم العميل" If Text1.Text = ""Then MsgBox "WindowsMediaPlayer1.URL = "c:\windows\media\Windows Exclamation.wav (فى هذا المكان اريد التحقق من وجود نص فى التكست بوكس حتى ينفذ عمليه الطباعه فاذا لم يجد نص لا يقوم بالطباعه) Command2.Visible = False Command1.Visible = False Printer.Orientation = vbPRORLandscape ' Returns 2 Printer.Copies = 1 PrintForm End If Command1.Visible = True Command2.Visible = True End Sub
27-02-16, 08:16 PM
ارجو ارفاق المشروع
وسيتم التعديل عليه
27-02-16, 11:06 PM
(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع ارفقت المثال التالى فى المرفقات يارب يكون معبر عن ما اريد لانى اريد اذا وجد نص فى التكست بوكس يقوم بالطباعه
27-02-16, 11:25 PM
(27-02-16, 11:06 PM)norhan كتب :(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع -------------------------------------
المثال معدل بالمرفقات
-------------------------------------
دالة (if)التحق من شرط واحد PHP كود : if "الشرط" then التحقق بشرطين PHP كود : if "الشرط" then التحقق باكثر من شرط PHP كود : if "الشرط الاول" then تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , عبد العزيز البسكري , norhan , السيد الغالي , السيد الغالي
28-02-16, 01:03 AM
(27-02-16, 11:25 PM)administrator كتب :(27-02-16, 11:06 PM)norhan كتب :(27-02-16, 08:16 PM)administrator كتب : ارجو ارفاق المشروع اشكرك جزيلاً على المجهود لقد حققت المطلوب ولكن ماذا لو اردت ان اشير ان التكست بوكس لا يساوى الا قيمه نصيه وشكرا
28-02-16, 01:10 AM
(آخر تعديل لهذه المشاركة : 28-02-16, 06:39 AM {2} بواسطة administrator.)
غداً ان شاء الله نكمل
وارجو توضيح التقطه الأخيره هل المقصود جعل التيكست لا يقبل الا نصوص فقط تم الشكر بواسطة: Ahmed_Mansoor , norhan
|
|