+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : سؤال فى الINPUTBOX (/showthread.php?tid=3026)
سؤال فى الINPUTBOX - اسلام الكبابى - 28-05-14
رسالة ال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]RE: سؤال فى الINPUTBOX - vbnet - 28-05-14
-
منقول
كود :
S1 = 50
S2 = InputBox("أدخل العدد الثانى")
If StrPtr(S2) = 0 Then
MsgBox "Canceled ألغي"
ElseIf IsNumeric(S2) Then
MsgBox "SUM = " & (S1 + S2)
End IfRE: سؤال فى الINPUTBOX - اسلام الكبابى - 28-05-14
جزاك الله خيرآ
ولك ألف شكر