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



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


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