منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(09-11-15, 01:31 PM)HASAN6.0 كتب : [ -> ]اضف الكود التالي في 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.2
       Background.TopMost = True
       Background.Show()
       Dim x As New MsgBoxResult
       x = MsgBox(Prompt, Buttons, Title)
       Background.Close()
       Return x
   End Function

اطلبه عن طريق Msgbox2  
  


كيف اطلبه الرجاء كتابة كود الطلب 

(09-11-15, 01:31 PM)HASAN6.0 كتب : [ -> ]اضف الكود التالي في 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.2
       Background.TopMost = True
       Background.Show()
       Dim x As New MsgBoxResult
       x = MsgBox(Prompt, Buttons, Title)
       Background.Close()
       Return x
   End Function

اطلبه عن طريق Msgbox2  
  


كيف اطلبه الرجاء كتابة كود الطلب 

(03-06-18, 01:01 AM)YousefOkasha كتب : [ -> ]مثال لو سمحت ..