مسج بوكس

If MsgBox("رسالة", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Count += 1
End If

باستخدام الكود السابق يمكنك عرض رسالة بها زرين وإذا ضغط المستخدم على زر yes سيجمع واحد على المتغير count الذي يمكنك إسناد قيمته إلى الـLable وبإضافة شرط Else ستكون في حالة أنه ضغط على زر No وبإضافة Loop يمكنك تكرار العملية 20 مرة ..

اوكي سويت اللي قلت لي عليه بس ابي اذا ضغطت نعم يطلع لي المسج اللي بعده ؟!! ونفس الشيء اذا ضغطت لا يطلع لي مسج بعد كيف اسويها هذي ؟؟؟

الله يخليك اكتب لي الكود

وشاااااااااااكره لك :)

السلام عليكم ورحمة الله وبركاته

اشكر استاذي seahmad .. وجهده الواضح في نشر العلم

وبالنسبة لطلبك اخوي قهمرهم كلهم فافضل شئ استخدام المصفوفة ويكون كودها كالتالي

Dim msg(3) As String
        Dim x As Byte
        msg(0) = "a"
        msg(1) = "b"
        msg(2) = "c"
        msg(3) = "d"
        For x = 0 To 3
            If MsgBox(msg(x), MsgBoxStyle.YesNo, "اجب بنعم أو لا") = MsgBoxResult.Yes Then
                Label1.Text += 1
            End If
        Next

ولا تنسانا من صالح دعاءك في ظهر الغيب

شكرررررررا koao

ضبطت معي وجزاك الله خير انت و seahmad

وشاكره لكم :)

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

واقدر اغير الالوان ؟

تقدرين تتحكمين بالصور بهذا السطر

MessageBox.Show("Hi", "Confirm", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button3, MessageBoxOptions.RightAlign)

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

ومااعرف الطريقه اللي تخليك تضيف صوره من جهازك وتظهر في المسج بوكس

ولكن الصور الموجودة كافيه ووافيه وفيها جميع المعاني اللي تحتاجينها

مثل علامة التوقف وعلامة السؤال وعلامة التحذير وعلامة الاستفهام وغيره الكثير

وكلها صور معبره ومفيده

لا انا ابي صوره خارجيه اقدر ؟؟

لا يمكنك ذلك للأسف، لأن الـ MessageBox class أساساً لا نستطيع أن نورث منه و نعدل فيه.....

يمكنك تصميم MessageBox من البداية، و تزويدها بأي خصائص معينة...يمكنك إستخدام فورم عادية لتصميم الـ MessageBox الجديدة...

السلام عليكم

نعم مثل ما قال الأستاذ : محمد عبد العليم

نستطيع أن ننشئ رسائل معدلة Custom Message عن طريق النموذج نفسه بحيث نضع فيه الصورة المناسبة

ثم زر الموافقة و زر الإلغاء ( ونضيف عليه بعض البهارات) (h)

شاهدِ الصورة

نحتاج أن نقوم ببعض التعديلات على النموذج وعلى الزرين زر الموافقة و زر الإلغاء

في النموذج نقوم بالتالي نضع في خاصية الـ AcceptButton زر الموافقة btnOK

وفي الخاصية CancelButton زر الإلغاء btnCancel

كذلك نقوم بتعديل البناء Constructor لنموذج الرسالة ليصبح كالتالي

  Public Sub New(ByVal Title As String, ByVal sMsg As String)
        InitializeComponent()
        Application.EnableVisualStyles()
        Msg = sMsg
        FormTitle = Title
    End Sub

ثم في زر الموافقة نضع في الخاصية DialogResult القيمة OK و في زر الإلغاء نضع القيمة Cancel في نفس الخاصية

ثم نكتب الشرط التالي عند مناداة الرسالة بهذا الشكل

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myMeg As New SMallMEG("My Title", " And Here's My Message")
        If myMeg.ShowDialog = DialogResult.OK Then
            Me.Label1.Text = "You Pressed Okay Button"
        Else
            Me.Label1.Text = "You Pressed Cancel Button"
        End If
    End Sub

و لتطوير المشروع بشكل أفضل لابد أن نستخدم صور لجميع التوقعات , ثم نستخدم الـ Reflection لجلب الصور من ملف الـ exe

نفسه كذلك لابد أن نقوم بعملية تغير في الـ Constructor ليشمل الصورة المراد إرفاقها في الرسالة الحالية وهذا باعه طويل

سنتحدث عنه إن شاء الله في الـ Custom Controls

والله أعلم

myCustomMessage.zip

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