تقييم الموضوع :
  • 1 أصوات - بمعدل 2
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] برامج بالفييجول بيسك عن msgbox+dialogbox
#1
ااناا عضو جديد في هذا المنتدى :
فضلا وليس امرا .. الدكتور طلب مننا مشروع وهو اننا نصمم برامج بالفييجول بيسك عن msgbox+dialogboxHuh واناا لسه مبتدئه بالفيجول بيسك فياريت لو الاقي الاجابه عندكم ...
الرد }}}}
تم الشكر بواسطة:
#2
منقول =============
ونسألكم الدعاء


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
__________________________________________________
الرد }}}}
تم الشكر بواسطة:
#3
سلام عليكم Big Grin
تم نقل الموضوع لقسم الأسئلة لأنه الآن بالقسم الرئيسي Blush
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة:
#4
جزاااااااااكـ الله خير ....
الرد }}}}
تم الشكر بواسطة: Omar Mekkawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد رابط تحميل فيجوال بيسك 2015 كود برمجي 3 147 19-04-17, 07:10 PM
آخر رد: كود برمجي
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 67 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  [سؤال] اعدادات الشاشة في منظومة مصممة بفيجوال بيسك 2012 diab4diab 3 97 13-04-17, 05:09 PM
آخر رد: silverlight
  [سؤال] مشكلة فى قراءة بعض الاوامر فى الفيجول بيسك Mohamed371 4 149 10-04-17, 07:30 PM
آخر رد: Mohamed371
  نقل واسترجاع ملفات بواسطة الفيجوال بيسك عبدالرحمن المكاوي 28 1,321 08-04-17, 09:33 PM
آخر رد: zaki tahrour
  ممكن شرح عن الفيجول بيسك 2012 abduliah.arsm 0 56 01-04-17, 11:41 AM
آخر رد: abduliah.arsm
  [سؤال] مشكلة في تشغيل البرنامج من الفيجوال بيسك عزوز هزازي 1 144 16-03-17, 05:07 PM
آخر رد: Amir_alzubidy
  [VB.NET] ظهور رساله لما ابغى اربط اكسس بالفجول بيسك a.baomar 3 93 11-03-17, 03:24 AM
آخر رد: khodor1985
  [سؤال] كيفية تحويل كود اكسلvba الى فيجوال بيسك farhat 10 271 10-03-17, 08:36 PM
آخر رد: farhat
Information [سؤال] لخبراء واصحاب الخبرة في برامج صلاحيات المستخدمين. Amrjamil 7 202 04-03-17, 03:03 AM
آخر رد: مساعدة

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم