[دانيال]

ااناا عضو جديد في هذا المنتدى :
فضلا وليس امرا .. الدكتور طلب مننا مشروع وهو اننا نصمم برامج بالفييجول بيسك عن msgbox+dialogbox واناا لسه مبتدئه بالفيجول بيسك فياريت لو الاقي الاجابه عندكم ...

[tarek]

منقول =============
ونسألكم الدعاء


messagebox.show("the_msg","title")

كود حذف سجل برسائل تأكيد مع موجود أكثر من سطر في صندوق الرسائل

If MsgBox("هل أنت متأكد من حذف بيانات الطالب الحالي", MsgBoxStyle.YesNo, Title:="رسالة تأكيد الحذف") = vbYes Then

If MsgBox("سيتم حذف بيانات الطالب :ـ" + vbCrLf + Full_name_fTextBox.Text, MsgBoxStyle.YesNo, Title:="رسالة تأكيد الحذف") = vbYes Then
Me.Table_firstBindingSource.RemoveCurrent()

انتهى



vbAbortRetryIgnore
اي تضع لك بالرسالة ثلاث ازرار هم
احباط واعادة محاولة و الغاء الامر
vbApplicationModal
اي تضع لك الرسالة على نمط البرنامج ( اي ليس لها علاقة بالويندوز)
vbCritical
وهي لوضع ايقونة خطأ اي × في رسالتك
vbDefaultButton1
لجعل الزر الافتراضي الذي يكون محدد فور ظهور السالة هو الزر الاول
vbDefaultButton2
لجعل الزر الافتراضي الذي يكون محدد فور ظهور السالة هو الزر الثاني ( لكن بالطبع يجب ان يكون عندك رسالة فيها اكثر من زرين)
vbDefaultButton3
لجعل الزر الافتراضي الذي يكون محدد فور ظهور السالة هو الزر الثالث ( لكن بالطبع يجب ان يكون عندك بالرسالة فيها اكثر من 3 ازرار)
vbDefaultButton4
لجعل الزر الافتراضي الذي يكون محدد فور ظهور السالة هو الزر الرابع ( لكن بالطبع يجب ان يكون عندك بالرسالة فيها اربع ازرار حصراً )
vbExclamation
وهي لوضع ايقونة تحذير التي تأتي بمثلث اصفر وفيها ! في رسالتك
vbInformation
وهي لوضع ايقونة معلومات الي تأتي بدائرة
زرقاء وفيها ! في رسالتك
vbMsgBoxHelpButton
اي لتضع لك بالرسالة زر المساعدة "Help" وانت تحدد الكود الذي يظهر عند الضغط عليه ....الخ
vbMsgBoxRight يجعل نص الرسالة من اليمين الى اليسار
vbMsgBoxRtlReading تجعل الازرار و زر × على اليسار
vbMsgBoxSetForeground وهي لجعل صندوق ال رسالة في المقدمة
vbOKCancel تجعل في رسالتك زرين هما موافق و الغاء الامر
vbOKOnly تجعل في رسالتك زر واحد فقط وهو موافق
vbQuestion وهي لوضع ايقونة استفهام التي تاتي في دائرة زرقاء وفيها ؟ في رسالتك
vbRetryCancel تجعل في رسالتك زرين هما اعادة المحاولة و الغاء الامر
vbSystemModal تجعل الرسالة على مستوى النظام
vbYesNo تجعل في رسالتك زرين هما نعم ولا
vbYesNoCancel تجعل في رسالتك ثلاث ازرار هم نعم ولا و اعادة محاولة

__________________________________________________ __________________________________________________ __________________

والان بعد ان شرحنا اضافات الرسالة نتعلم كيف نصنعها :

طبعاً نضع كود Msgbox \ " \ النص الذي نريد\ " \ , \ نضع خياراً ما من الخيارات السابقة \ , \ " \ نضع عنوان الرسالة \ "
__________________________________________________ _________________

"Msgbox "hello" , vbYesNo , " Welcome Box

__________________________________________________ _________________
وسؤال يطرح نفسه كيف اذا اردت ان اضع اكثر من خيار في رسالة واحدة مثل ان يضع زر نعم ولا و ايقونة استفهام
اجاوبك :
هذا صحيح نضع بعد كل خيار + ثم الخيار الثاني مثل :
__________________________________________________ ___________________________________________

Msgbox "Hello All" , VbYesNo + Vb vbQuestion , "Welcome Box"

__________________________________________________ ___________________________________________
وهكذا يتم تركيب اي رسالة تريدها طيب اذا اردت ان اضع نص + نص او عنوان + عنوان .... صحيح ترجم العربية للبيسك فتصبح
__________________________________________________ _______________

" Msgbox "Hello" + "Alaa" ,,"Welcome
"Msgbox "hello Alaa " ,,"Welcamo" + "box

__________________________________________________ ______________

ملاحظة نضع هذه العلامة ,, اذا كنا لا نريد خيارات
ملاحظة اخرى عند تركيب الكود لايجب ان يكون هناك تضاد كأن تضع له اضافة زر نعم ولا و اضافة احباط والغاء الامر لانه تلقائيا سوف يبطل الخياران
ملاحظة اخرى اذا اردت ان يرسل لك رسالة حسب مربع نص ليكن T1 نكتب له
(Msgbox (T1
__________________________________________________

[Omar Mekkawy]

سلام عليكم
تم نقل الموضوع لقسم الأسئلة لأنه الآن بالقسم الرئيسي

[دانيال]

جزاااااااااكـ الله خير ....