• 0
اسلام الكبابى

سؤال فى الINPUTBOX

سؤال

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

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

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

 ولكم ألف شكر

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

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

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

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

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

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

 ولكم ألف شكر

s = InputBox("أدخل العدد الثانى")If StrPtr(s) = 0 ThenMsgBox "Canceled"ضع الكود عند النقر على زر CANCELElseMsgBox "OK"ضع الكود عند النقر على زر OKEnd If
تم تعديل بواسطه code.vip
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .