منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] احتاج الى مساعدة في message box - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (https://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (https://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] احتاج الى مساعدة في message box (/showthread.php?tid=20656)



احتاج الى مساعدة في message box - malek369 - 08-06-17

السلام عليكم جميعا  Confused

طبعا كلنا بنعرف المسج بوكس بس اظهار رسالة فقط 
بس انا شغال عبرنامج وفي راح تكون دعسات خطرة خوف بالغلط ما يتم الدعس عليها 
فبدي تطلع رسالة تنبيه ( هل انت متأكد من القيام بعملية الحذف ) نعم & لا 
وعند الضغط نعم بقوم بالحذف وعن الضغط بلا ما يحذف ولا يعمل اشي  Huh Huh Huh

اتوقع انو وضح المطلوب وبتمنى تساعدوني بأسرع وقت ممكن وشكرا لكم جميعا 
والسلام عليكم ورحمة الله وبركاتو


RE: احتاج الى مساعدة في message box - حريف برمجة - 08-06-17

(08-06-17, 06:11 AM)malek369 كتب : السلام عليكم جميعا  Confused

طبعا كلنا بنعرف المسج بوكس بس اظهار رسالة فقط 
بس انا شغال عبرنامج وفي راح تكون دعسات خطرة خوف بالغلط ما يتم الدعس عليها 
فبدي تطلع رسالة تنبيه ( هل انت متأكد من القيام بعملية الحذف ) نعم & لا 
وعند الضغط نعم بقوم بالحذف وعن الضغط بلا ما يحذف ولا يعمل اشي  Huh Huh Huh

اتوقع انو وضح المطلوب وبتمنى تساعدوني بأسرع وقت ممكن وشكرا لكم جميعا 
والسلام عليكم ورحمة الله وبركاتو

وعليكم السلام ،،

الكود كالتالي :


كود :
 Select Case MsgBox("هل تريد حذف السجل فعلاً ", MsgBoxStyle.YesNo, "my app")

            Case MsgBoxResult.Yes

' ضع الكود المطلوب عمله هنا

  Case MsgBoxResult.No

' لا تعمل شي .

        End Select



RE: احتاج الى مساعدة في message box - malek369 - 08-06-17

شكرررررررررررررررررررررا لالك جدا جدا Smile زبط 100% اخوووووووووووي انشالله بميزان حسنااااااااتك <3 كل الاحترام والله


RE: احتاج الى مساعدة في message box - lkaam - 09-06-17

كود :
If MessageBox.Show("هل أنت متأكد من طلب الحذف،", "رسالة", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = MessageBoxButtons.YesNo Then
           ضع كود الحذف هنا
       Else

       End If