تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
عمل خلفية للـMsgBox , والتركيز عليها
#11
مروركم الاروع . شكرا لكم
الرد }}}
تم الشكر بواسطة:
#12
(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  
  


كيف اطلبه الرجاء كتابة كود الطلب 
الرد }}}
تم الشكر بواسطة:
#13
مثال لو سمحت ..
الرد }}}
تم الشكر بواسطة:
#14
(03-06-18, 01:01 AM)YousefOkasha كتب : مثال لو سمحت ..


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 72.62 ك ب / التحميلات : 66)
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: sendbad100
#15
يا سلام على الابداع

تسلم يدك
الرد }}}
تم الشكر بواسطة: elgokr
#16
مبدع اخي ... جزاك الله من فضله
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد }}}
تم الشكر بواسطة: elgokr



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


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