+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ (/showthread.php?tid=39677)
كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ - Microformt - 12-10-21
الأخوة الكرام
السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "Currency")
End Subالسؤال هنا
كيف اظهر رسالة للمستخدم في حال عدم إدخاله عملة في Text ؟
يعني
في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟
تحياتي
RE: كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟ - اسلام الكبابى - 22-11-21
كود :
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) Then MsgBox "", vbCritical, "من فضلك أدخل العملة كبيان رقمى": GoTo 10
If Val(Text1.Text) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم موجب": GoTo 10
AA = Val(Text1.Text)
If AA <> Int(AA) < 0 Then MsgBox "", vbCritical, "من فضلك أدخل العملة رقم صحيح": GoTo 10
Print AA
Rem"واكتب هنا أى كود تريده"
10 End Sub