معومات حول MsgBox

[Aljawal]

مسج بوكس MsgBox = يعني صندوق الرسالة
توجد عدة خيارات للمسج بوكس منها :
رسالة التنبية بالخطأ
ضع Button وضح الحدث التالي


MsgBox("Type what you want here", MsgBoxStyle.Critical, "Title")


ستظهر بالشكل التالي :

http://up.comxa.com/mlfaty/1269902791.png

MsgBoxStyle = استايل أو شكل الرسالة
Critical = خطأ مع اظهار علامة الخطأ في الرسالة
Exclamation = تعجب مع ظهور علامو التعجب في الرسالة
Information = معلومات مع ظهور علامة ( ! ) في الرسالة

OkCancel = رسالة ( موافق - الغاء الامر )

هناك تشترط عند الضغط على موافق يتم اجراء معين ويكون الكود بالشكل التالي :



Dim X As String
X = MsgBox(" Type what you want here", MsgBoxStyle.OkCancel, "Title")
If X = MsgBoxStyle.OkCancel Then
ضع الحدث هنا أو الاجراء المتخذ بعد الضغط على موافق '
End If


http://up.comxa.com/mlfaty/1269934999.png

كما يوجد العديد من الرسائل يمكن اكتشافها ..

---------------------------------------------------


كيف يمكن ان نضع رسالة MsgBox بسطرين نستخدم الجملة


& vbCrLf & _




MsgBox("Type what you want here" & vbCrLf & _
"Other", MsgBoxStyle.Information, "Title")


واذا اردنا ان يكون هناك تباعد في الاسطر بحيث تكون بين الجملة الاولى والثانية سطر فارغ نكتب الكود التالي :



MsgBox("Type what you want here" & vbCrLf & vbCrLf & _
"Other", MsgBoxStyle.Information, "Title")


بحيث نزيد في جملة زيادة الاسطر بالجملة المذكوره اعلاه .

[الشامخه]

شرحْ وآضح آخوي آبو محمد
بآرك الله فيك..وفيمآ تقدمه
وعسآإكمـ علىآ القوهـ يآرب
\