سؤال فى الINPUTBOX

اسلام الكبابى كتب:

رسالة الINPUTBOX تظهر ومعها زران OK, CANCE

ولكنى حين أضغط على الزرCANCE أجد البرنامج اما يعترض وينهى عملية الRUN واما يعتبر قيمة المتغير المطلوب ادخاله تساوى صفر ، والصواب طبعآ غير ذلك

الصواب أن يعيد الوضع كما كان وكأن جملة الINPUTBOX لم تكن موجودة فى الكود أصلآ

الصواب أنه عند الضغط على هذا الزرCANCE ينفذ أمرآ معينآ (يكون مكتوبآ فى الكود) (كما هو الحال فى الMsgBox)

وهذا كوزد بسيط يوضح سؤالى

Private Sub Command1_Click()
S1 = 50
S2 = InputBox("أدخل العدد الثانى")
SUM = S1 + S2
Print "         SUM = "; SUM
End Sub

 ولكم ألف شكر

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

If StrPtr(s) = 0 Then
MsgBox "Canceled"
ضع الكود عند النقر على زر CANCEL

Else

MsgBox "OK"
ضع الكود عند النقر على زر OK

End If

  جزاك الله خيرآ
ولك ألف شكر

السلام عليكم...

الدالة InputBox دائماً تعيد String. إذا ضغط المستخدم على الزر OK فإنها تعيد ما هو مكتوب في مربع النص الخاص بها، و إذا ضغط على الزر Cancel فإنها تعيد نصاً فارغاً (Empty string):

S = InputBox("أدخل العدد اللثاني")
If S = "" Then
    ' تم الإلغاء
Else
    ' كود الجمع
End If

نرجو الاستفادة و السلام.

جزاك الله خيرآ
ولك ألف شكر

exit sub في تعليمة الالغاء