رسالة الخطأ

أنا قلت أعمل اضافة صغيرة لو تسمح لي انك ممكن تعمل handling لأي error عن طريق الاتي

on error goto errorhandle
'your code here
'
'
'
'if you found an error 
errorhandle:
msgbox(err.description, vbok + vbcritical, "error")
exit sub

مجهود رائع

اشكرك أخي رومانتيك بوي علي إضافتك :D

أريد أن أضيف أيضا أنه حين تستغني عن الوسيطةBottonClicked فإن الاقواس تحيط بالوسيطة الاولي للرسالة فقط

MsgBox("your message here") , VBOkOnly , " the tittle here"

نلاحظ ان الاقواس تحيط فقط بالوسيطة الاولي

("your message here")

يا سيدي و لا تزعل و اليك الاّتي:

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

using predefined dialog boxes in visual basic

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

creating a message dialog box

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

تركيب مربع حوار الرسالة يكون كالاتي:

msgbox prompt, dlgdef, title

الان نقوم بتشريح مربع حوار الرسالة:

prompt : هو النص الذي يظهر أمامك علي الرسالة و هو الذي يشرح لك ما الذي تريد الرسالة اخبارك به أو ما الذي تريدك أن تفعله.

dialog defintion: يعرف أنواع الأيقونات التي ستظهر أمامك و كذلك نوعية الأزرار حيث يوجد أزرار تعرض ok فقط و في هذه الحالة التفاعل يكون بالموافقة علي نص الرسالة فقط و لكن هناك رسائل تسمح لك باتخاذ قرارات ( أي اختيارات) مثل yes no و ok cancel و ..... الخ و سوف نتناول ذلك بالتفصيل.

انظر الي هذا الشكل و تعال معي نكمل ما بدئناه:

يمكن أن نتعامل مع ال msgbox أثناء تكوينها باحدي طريقتين اما بالثوابت أو بالأرقام كما يلي:

Dim message As String
Dim dlgdef As String
dlgdef = vbOKCancel + vbInformation
message = MsgBox("this is my first messaghe", dlgdef, "hello first msgbox")

message = MsgBox("you can do it by mumbers", 1 + 16, "hi")

طبعا يمكنك التعامل مع الرسائل بكل سهولة لاتخاذ أي قرار بناء علي المستخدم كالتالي

Private Sub Command1_Click()
Dim ahmed As String
ahmed = MsgBox("are you sure you want to quit?", vbMsgBoxRtlReading + vbMsgBoxRight + vbInformation + vbSystemModal + vbOKCancel, "general msgbox")
If ahmed = vbOK Then
MsgBox ("you choosed ok (*_*)")
ElseIf ahmed = vbCancel Then
MsgBox ("you choosed to cancel")
End If
End Sub

أعلم أنكم تريدون شرح الأخيرة :D حسنا اليكم الشرح

أولا انا اثرت ان اجمع لك الكثير من الخصائص في رسالة واحدة و نجد الاتي:

أولا : الكلام الذذي بين علامتي التنصيص اتفقنا علي أنه يعرض الكلام الذي يظهر بجسم الرسالة

ثانيا: vbmsgboxrtlreading +vbmsgbpxright هي لتعريب الرسالة و جعل اتجاهها من اليمين لليسار و لو أننا تعودنا علي

الانجليزية :)

ثالثا:vbinformation هي لعرض أيقونة علامة التعجب

رابعا: vbsystemodal لا تمكنك من التعامل مع البرنامج أو حتي ال system الا بعد أن تتخذ قرار بشأن الرسالة المعروضة

خامسا: vbokcancel لعرض أزرار ok و cancel.

يمكنك أيضا أن تستخدم msgbox كدالة ترجع لك قيم كالاتي:

Private Sub Command1_Click()
Dim ahmed As Integer
ahmed = MsgBox("hi this is a test we are waiting for your value", vbQuestion + vbOKCancel, "test")
Print ahmed
End Sub

الأدهي من ذلك أنك من الممكن أن تظهر رسالة (علي مزاجك) اذا أدخلت لها الأرقام الصحيحة كالاتي:

Private Sub Command1_Click()
Dim ahmed As String
Dim title As String
Dim body As String
Dim dlgdef As Integer
title = "make your own msgbox"
body = "yes you can really make your own msgbox"
dlgdef = InputBox("enter the number to make a message box")
MsgBox body, dlgdef, title
End Sub

و هي طبعا الأرقام 0 & 1 & 2 & 3 & 4 & 5 & 16 & 32 & 48 & 64

ليس هذا كل شيء الموضوع أكبر من ذلك و للحديث بقية ان شاء الله و بالتوفيق

أحمد شلبي

الحمدالله المبدعين في طريقة الشرح والاسلوب الرائع في هذا المنتدى ..في تزايد

فعلا اسلوب رائع اخ romantic_boy واتمنى الكثير من المواضيع

بنفس الاسلوب

حسنًا حسنًا حسنًا

انت جعلت المستخدم هو الذي يحدد نمط الازرار او الايقونة

وأضفت أشياء لم أكن لأفكر فيها أصلاً

هذا رائع يبدوا أني تعلمت كيف أحثك علي الاستمرار :D

أشكرك بشدة أخي رومانتيك علي المجهود الرائع

أشكركم كثيرا ولله دائما اخذ أكثر من حقي في هذا المنتدي الجميل، أشكرك أخي العاشر علي رسالتك الجميلة، طبعا انت صاحب الموضوع و ما وضعته كان مجرد اضافة، و شكرا جزيلا أستاذنا hnhn و ان شاء الله نكمل الموضوع بس انا وقفت عشان عنيا وجعتني :D ، ان لعيني علي حق ولا ايه؟ :)

مجهود أكثر من رائع يا العاشر.....

طريقة شرح جميلة و بسيطة و مفهومة ....طريقة شرحك للموضوع اكثر من رائع

نشكرك على مجهودك العاشر :D :D

و اضافة جميلة روماننيك بوي :) :)

روز