[administrator]

(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا  ولكن  انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = ""
لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا

الكود مثل ما طلبت
نشرح الكود خطوه خطوه

PHP كود :

   If Trim$(Text1.Text) = "" Then 


الكود في الاعلى يتحقق من قيمة (Text1) اذا كانت فارغه ( لا تحتوي على نص )
يظهر المسج التالي

PHP كود :

       MsgBox "لا يوجد نص", vbCritical 


اذا كان غير فارغ ( يحتوي على نص )
يظهر المسج التالي

PHP كود :

       MsgBox "يوجد نص", vbOKOnly 


------------------ انتهى ------------------

بالنسبه للرسائل بامكانك وضع الكود الذي يناسبك مكان كود الرساله