تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية الحصول علي مساحة مجلد بالبايت في فجول بيسك Iman Mohamed Omran 2 77 21-04-18, 05:23 AM
آخر رد: سعود
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 64 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  كيف كيف طريقة تركيب سورس على فيجوال بيسك elokely 0 49 13-04-18, 09:27 PM
آخر رد: elokely
  [VB.NET] ربط الفيجوال بيسك بقاعدة بيانات أكسيل moslimway11 4 267 12-04-18, 02:58 PM
آخر رد: moslimway11
  طلب اضافة للفيجيل بيسك rabeh.ram 3 91 09-04-18, 04:32 AM
آخر رد: محمد كريّم
  ممكن طريقة عمل حماية لبرنامجك في فيجوال بيسك 2010 بحيث يكون لكل جهاز سريال asas77477 2 281 29-03-18, 02:53 PM
آخر رد: silverlight
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 3 195 27-03-18, 03:12 PM
آخر رد: ssayed111
  كود ربط أكسس اصدار 2016 بالفيجوال بيسك 2013 a.baomar 2 127 26-03-18, 12:13 PM
آخر رد: a.baomar
  مساعده في تحميل برنامج الفيجوال بيسك 2015 emamtron2014 4 111 26-03-18, 03:45 AM
آخر رد: عبدالله الدوسري
  [VB.NET] طلب طريقة عمل مقارنة بالفيجوال بيسك غيث 2 99 23-03-18, 12:31 PM
آخر رد: عبدالله الدوسري

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


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