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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال في شاشة عرض البرنامج tighrmte 3 89 20-02-19, 07:13 PM
آخر رد: tighrmte
  سؤال في تحزيم البرنامج tighrmte 6 131 11-02-19, 09:57 PM
آخر رد: tighrmte
  سؤال في اداة msflixgrid tighrmte 2 75 04-02-19, 11:37 PM
آخر رد: tighrmte
  سؤال حول البحث في combobox tighrmte 3 175 27-01-19, 11:08 PM
آخر رد: عبدالله الصافي
  سؤال بخصوص النقط والفواصل العشرية وغيرها في قاعدة البيانات hannileo 3 133 24-01-19, 01:58 PM
آخر رد: عبدالله الصافي
  [سؤال] سؤال عن اداءة ActiveReport الخاصة بالتقرير في vb6 محمد حمد محمد 4 162 16-01-19, 01:26 PM
آخر رد: محمد حمد محمد
  سؤال في اداة msflixgrid tighrmte 2 108 16-01-19, 01:22 AM
آخر رد: tighrmte
  [vb6.0] سؤال بخصوص كريستال ريبورت vbahmed_net 0 102 02-01-19, 03:31 AM
آخر رد: vbahmed_net
  سؤال - كيف يتم تحويل المصفوفه الثنائيه الى احاديه اسامه الجبوري 5 214 01-01-19, 04:44 PM
آخر رد: عبدالله الصافي
  سؤال عن ارسال او استقبال صورة في vb6 محمد حمد محمد 1 139 22-12-18, 01:52 AM
آخر رد: elgokr

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


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