تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال فى الINPUTBOX
#1
رسالة الINPUTBOX تظهر ومعها زران OK, CANCE
ولكنى حين أضغط على الزرCANCE أجد البرنامج اما يعترض وينهى عملية الRUN واما يعتبر قيمة المتغير المطلوب ادخاله تساوى صفر ، والصواب طبعآ غير ذلك
الصواب أن يعيد الوضع كما كان وكأن جملة الINPUTBOX لم تكن موجودة فى الكود أصلآ
الصواب أنه عند الضغط على هذا الزرCANCE ينفذ أمرآ معينآ (يكون مكتوبآ فى الكود) (كما هو الحال فى الMsgBox)

وهذا كوزد بسيط يوضح سؤالى
كود :
[align=left]Private Sub Command1_Click()
S1 = 50
S2 = InputBox("أدخل العدد الثانى")
SUM = S1 + S2
Print "         SUM = "; SUM
End Sub[/align]
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#2
-
منقول

كود :
S1 = 50

S2 = InputBox("أدخل العدد الثانى")

If StrPtr(S2) = 0 Then
    MsgBox "Canceled ألغي"

ElseIf IsNumeric(S2) Then
    MsgBox "SUM = " & (S1 + S2)

End If
الرد }}}}
تم الشكر بواسطة:
#3
جزاك الله خيرآ
ولك ألف شكر
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال أريد أن أكتب رقم الزبون في التكست بوكس وأعرض فواتير الزبون في التقرير فيصل علي 2 77 08-05-17, 08:57 PM
آخر رد: فيصل علي
  سؤال حوال اداة التاريخ والوقت مع التقارير كنونو 2 77 27-04-17, 05:17 PM
آخر رد: كنونو
  سؤال عن القوائم السريعة كنونو 3 145 20-04-17, 11:25 PM
آخر رد: السيد الغالي
  سؤال حول الأداة datacombo المبرمج العتيق 2 107 03-04-17, 01:23 AM
آخر رد: المبرمج العتيق
  سؤال حول الأداة datareport فى برنامج مرفق المبرمج العتيق 4 166 26-03-17, 04:16 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 5 437 24-03-17, 06:06 PM
آخر رد: المبرمج العتيق
  سؤال بخصوص الحلقات التكرارية / اضافة درجة بشروط haiderkh 13 331 02-03-17, 05:58 PM
آخر رد: السيد الغالي
  سؤال فى التقارير اداة داتا ريبورت محمودالصياد محمود 1 102 25-02-17, 11:39 PM
آخر رد: السيد الغالي
  سؤال عن قاعدة البيانات اكسس مبرمج جديد 5 224 17-02-17, 01:27 PM
آخر رد: مبرمج جديد
  [vb6.0] سؤال في تنسيق الفورم basset87 4 343 02-01-17, 11:43 AM
آخر رد: basset87

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


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