vb.net MsgBox بطريقة رائعة

[SEMO.Pa3x]

السلام عليكم,, اضف الكود في Module

 

    Public Function MsgBox2(ByVal Prompt As Object, Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OkOnly, Optional ByVal Title As Object = Nothing) As MsgBoxResult
        Dim Background As New Form
        Background.FormBorderStyle = FormBorderStyle.None
        Background.WindowState = FormWindowState.Maximized
        Background.ShowInTaskbar = False
        Background.BackColor = Color.Black
        Background.Opacity = 0.6
        Background.TopMost = True
        Background.Show()
        Dim x As New MsgBoxResult
        x = MsgBox(Prompt, Buttons, Title)
        Background.Close()
        Return x
    End Function

 

الاستدعاء , اكتب مثلا في الزر

 

MsgBox2("Hello World !", MsgBoxStyle.Critical, "ERROR")

 

الحقوق لصاحبها HASAN6.0

[عبد اللطيف سلوم]

في ١١‏/٤‏/٢٠١٩ at 07:41, SEMO.Pa3x said:

السلام عليكم,, اضف الكود في Module

 

    Public Function MsgBox2(ByVal Prompt As Object, Optional ByVal Buttons As MsgBoxStyle = MsgBoxStyle.OkOnly, Optional ByVal Title As Object = Nothing) As MsgBoxResult
        Dim Background As New Form
        Background.FormBorderStyle = FormBorderStyle.None
        Background.WindowState = FormWindowState.Maximized
        Background.ShowInTaskbar = False
        Background.BackColor = Color.Black
        Background.Opacity = 0.6
        Background.TopMost = True
        Background.Show()
        Dim x As New MsgBoxResult
        x = MsgBox(Prompt, Buttons, Title)
        Background.Close()
        Return x
    End Function

 

الاستدعاء , اكتب مثلا في الزر

 

MsgBox2("Hello World !", MsgBoxStyle.Critical, "ERROR")

 

الحقوق لصاحبها HASAN6.0

اذا تكرمت ضع الكود في مثال صغير وارفعه لكي يسهل علينا عملية التطبيق

[Saeed Ali]

شكرا لك

 

تم تعديل مايو 20, 2019 بواسطه mmlo7_001

[بخوش رشيد]

الكود لا يعمل عندي