msgbox

هذه هي الصيغة العامة للوظيفة MsgBox

Function MsgBox(Prompt, [buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult

بالنسبة للوسيط فهو يعني ( على ما أعتقد ) القيمة التي نمررها للوظيفة، ولا تجعل أمر الترجمة يهمك كثيراً ..

وهذه القيمة الممررة لا يتم إدخالها عشوائياً، ويمكنك معرفة جميع القيم عن طريق الضغط على F2 ثم اختيار الـ Enum المسمى VbMsgBoxStyle من قائمة الـ Classes وستجد على اليمين الثوابت الموجودة في هذا الـ Enum ، وعند اختيار أي منها ستظهر لك قيمته بالأسفل

مثلاً لظهور رسالة OK و Cancel نستخدم الرقم 1

بالتوفيق :)

السلام عليكم

شكرا لك على الرد

وحاولت اجرب فكتبت الكود التالي

Private Sub Command1_Click()

msgbox("hello", 1) As VbMsgBoxResult

End Sub

ظهرت لي هذه الرسالة اتمنى تساعدوني ولكم جزيل الشكر

compile error:

statement invalid outside type block

السلام عليكم

ممكن تراجع الرابط ادناه به جزء اول من كتاب بعد فك الضغط راجع

الفصل السادس"CH-6" تقريبايتناول مربعات الحوار عامة .

اتمني ان تستفيد منه.

VB-BOOK

:)

شكراً للأخ العزيز إبراهيم

أخي ( بداية البرمجة ) بالنسبة للـ MsgBox فهي وظيفة وبالتالي فهي تعود بقيمة هذه القيمة من نوع VbMsgBoxResult

لكي تستخدم هذا الأمر عليك بوضع متغير لاحتواء هذه القيمة العائدة، ويكون الكود كالتالي:

X = MsgBox("Message",1)

بالتوفيق

شكرااااااااااااااااا

للاساتذه عبدالله فتحي وابراهيم الطيب

فعلا استفدت من الكتاب

وتنفذ معاي صح

بس الي ماقدرت له تغيير لون المسج بوكس

الله يوفق الجميع

لكم جزيل الشكر