تقييم الموضوع :
  • 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
جزاك الله خيرآ
ولك ألف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن اداءة bound list محمد حمد محمد سليمان 0 15 منذ 3 ساعة مضت
آخر رد: محمد حمد محمد سليمان
  سؤال حول طول ال label haider kh 3 154 14-04-19, 05:36 PM
آخر رد: haider kh
  سؤال في قوائم الفيجوال tighrmte 19 612 13-04-19, 06:27 PM
آخر رد: حامد محمد
  سؤال حول التنقل بين ال textbox haider kh 9 308 23-03-19, 06:29 PM
آخر رد: haider kh
  سؤال في listbox tighrmte 1 173 23-03-19, 02:31 AM
آخر رد: أبو أسامة2
  سؤال في شاشة عرض البرنامج tighrmte 3 228 20-02-19, 07:13 PM
آخر رد: tighrmte
  سؤال في تحزيم البرنامج tighrmte 6 236 11-02-19, 09:57 PM
آخر رد: tighrmte
  سؤال في اداة msflixgrid tighrmte 2 160 04-02-19, 11:37 PM
آخر رد: tighrmte
  سؤال حول البحث في combobox tighrmte 3 295 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 232 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي

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


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