تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن تطوير هذا الكود نامل المساعدة ؟؟
#1
Question 
الأخوة الكرام
 السلام عليكم ورحمة وبركاته
هذا كود إضافة عملة 
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "Currency")
End Sub

السؤال هنا
كيف اظهر رسالة للمستخدم  في حال عدم  إدخاله عملة في Text ؟
 يعني 
 في حال أدخل المستخدم نص اوغيره تظهر رسالة رساله ادخل عمله في text ؟

تحياتي
إذا ضاقت بك الأحوال يوماً     فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
الرد }}
تم الشكر بواسطة:
#2
كود :
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


الرد }}
تم الشكر بواسطة: Microformt


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question كيف يمكن فتح ملف exe من خلال برنامجي ؟؟ Microformt 2 276 02-05-22, 12:21 AM
آخر رد: Microformt
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 619 05-12-21, 12:04 AM
آخر رد: hamada salah90
  ارجو المساعدة فى تكرر كود mhareek 9 838 10-11-21, 02:55 PM
آخر رد: mhareek
Wink هل يمكن تحديث بيانات من استعلام لجدول مصمم هاوي 10 1,020 04-11-21, 01:33 PM
آخر رد: مصمم هاوي
  طلب : أريد المساعدة في الداتا ريبورت hamada salah90 1 500 25-10-21, 06:35 PM
آخر رد: Taha Okla
Question [vb6.0] هل يمكن تغير نوع خط Label من خلال الكود وكيف ذلك ؟؟ Microformt 2 513 10-10-21, 08:58 AM
آخر رد: Microformt
Question [vb6.0] هل يمكن نسخ ما في Text عن طريق زر الامر ؟؟ Microformt 2 603 02-10-21, 02:39 PM
آخر رد: Microformt
  [سؤال] مساعدة في عمل هذا الكود العبادي 2 11 1,934 09-09-21, 01:29 AM
آخر رد: اسلام الكبابى
Question [vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ Microformt 5 1,041 30-08-21, 11:54 PM
آخر رد: اسلام الكبابى
  [سؤال] ارجو المساعدة العبادي 2 1 553 23-08-21, 09:05 AM
آخر رد: Ahmed_Mansoor

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم