IBM Lotus Symphony
|
يتم عرض مربع حوار يحتوي على رسالة ويقوم بارجاع قيمة.
MsgBox (Text As String [,Type As Integer [,Dialogtitle As String]])
رقم صحيح
النص : يتم عرض تعبير العبارة كرسالة في مربع الحوار. يمكن ادراج السطور مع Chr$(13).
DialogTitle: تعبير مجموعة حروف يتم عرضه في خط العنوان لمربع الحوار. اذا تم حذفه، سيتم عرض الاسم الخاص بالتطبيق المناظر.
Type: أي تعبير رقمي يحدد نوع مربع الحوار ويعرف عدد ونوع المفاتيح والشارات التي سيتم عرضها. Type يمثل مجموعة من نماذج bit patterns، (عناصر مربع الحوار التي تم تعريفها من خلال اضافة القيم الخاصة بهم):
القيم
0 : يتم عرض مفتاح حسنا فقط.
1 : يتم عرض مفاتيح حسنا والغاء.
2 :عرض الاختيارات ايقاف واعادة المحاولة وتجاهل.
3 : يتم عرض مفاتيح نعم و لا والغاء.
4 : يتم عرض مفاتيح نعم و لا.
5 : يتم عرض مفاتيح اعادة والغاء.
16 : يتم اضافة شارة ايقاف لمربع الحوار.
32 : يتم اضافة شارة السؤال لمربع الحوار.
48 : يتم اضافة شارة علامة التعجب الى مربع الحوار.
64 : يتم اضافة شارة المعلومات الى مربع الحوار.
128 : يكون المفتاح الأول في مربع الحوار هو المفتاح المفترض.
256 : يكون المفتاح الثاني في مربع الحوار هو المفتاح المفترض.
512 : يكون المفتاح الثالث في مربع الحوار هو المفتاح المفترض.
القيمة المرتجعة:
1 : حسنا
2 : الغاء
3 : ايقاف
4 : اعادة
5 : تجاهل
6 : نعم
7 : لا
Sub ExampleMsgBox
Dim sVar as Integer
sVar = MsgBox("Las Vegas")
sVar = MsgBox("Las Vegas",1)
sVar = MsgBox( "Las Vegas",256 + 16 + 2,"Dialog title")
نهاية البرنامج