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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل نستطيع الرسم في الفيجوال بيسك khaled12345 10 142 أمس, 03:05 AM
آخر رد: khaled12345
  كيفية تحويل الماكرو اللي في الاكسيل الي برنامج فيجوال بيسك khaled12345 2 53 22-06-17, 03:48 AM
آخر رد: khaled12345
Question [VB.NET] احتاج كود انتقال الى صفحة انترنت (داخل الفيجوال بيسك) The Light Fire 1 66 11-06-17, 12:56 AM
آخر رد: qadar elzaman
  مشكلة في الفيجوال بيسك 2017 khaled12345 5 166 10-06-17, 08:45 PM
آخر رد: khaled12345
  فتح ملف PDF في الفيجوال بيسك anasmoner 8 469 30-05-17, 11:50 AM
آخر رد: umy
  [VB.NET] اريد طريقة لتشفير اكواد الفيجوال بيسك طارق سليمان 0 103 24-05-17, 05:14 PM
آخر رد: طارق سليمان
  التحكم في برامج youssef1 3 112 20-05-17, 03:05 PM
آخر رد: Amir_alzubidy
Lightbulb [سؤال] كيف اعمل sutup بالفيجوال بيسك الاصدار2013؟ moh_g 1 106 17-05-17, 05:13 AM
آخر رد: samawi
  [VB.NET] ربط فيجوال بيسك 2008 بــ SQL2000 محمد بوقزاحة 2 97 09-05-17, 11:16 AM
آخر رد: محمد بوقزاحة
  [VB.NET] التعامل مع الوقت وقسمته فى فيجوال بيسك دوت نت TAMER ELMORSY 2 106 30-04-17, 01:42 PM
آخر رد: TAMER ELMORSY

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


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