الدرس 18: الأمر InputBox

يستخدم هذا الأمر من أجل طلب معلومات من المستخدم على الشكل:

متحول =InputBox (“ الرسالة” , “العنوان” , القيمة الافتراضية )

يجب تعريف المتحول بحيث يتطابق مع المعلومات المطلوبة.

 

هذا الأمر سيظهر  الشكل التالي :

بعد كتابة المعلومة المطلوبة والضغط على زر OK يتم إسناد القيمة المدخلة إلى المتحول الموجود في الطرف الأيمن في عبارة InputBox.

 

مثال:

ضع زر أوامر وفي حدث Command1_Click اكتب :

Dim n1 AS Integer

Dim n2 AS Integer

n1=InputBox (“أدخل العدد الأول”)

n1=InputBox (“أدخل العدد الثاني”)

Sum=n1+ n2

MsgBox (sum)

 

عند تنفيذ هذا المثال سيظهر مربع حوار يطلب العدد الأول ثم العدد الثاني وبعدها سيظهر ناتج جمعهما.

Share |

معلومات إضافية