تمت الإجابة إختفاء المسج بكس بعد 10 ثواني تلقائي

تم تحميل الصفحة في 0,4461814 ثانية
إختفاء المسج بكس بعد 10 ثواني تلقائي
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
25 سبتمبر 2015
المشاركات
787
الإعجابات
934
النقاط
93
الإقامة
Algeria
كود:
Public Class Form1
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Using frm2 = New Form2
      frm2.ShowDialog()
    End Using
  End Sub
End Class

Public Class Form2
  Private WithEvents tm As New Timer
  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    tm.Interval = 10000
    tm.Start()
  End Sub
  Private Sub tm_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tm.Tick
    Close()
  End Sub
End Class
 
إنضم
10 يناير 2019
المشاركات
135
الإعجابات
66
النقاط
28
العمر
35
شكرا أخ ilyeslyes-Dz
بارك الله فيك .. بس أخي انا فقط اريد اختفاء المسج بكس بدون أي فورم ثانية الله يجازيك كل الخير
 
إنضم
10 يناير 2019
المشاركات
135
الإعجابات
66
النقاط
28
العمر
35
شكرا جزيلا أخي Ilyes فكرة رائعة بارك الله فقط لو سمحت كيف يمكن استعمال
WinAPI
 

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,613
الإعجابات
1,318
النقاط
123
الإقامة
Turkey

QS7S

مُميّز نُقطة لُغات البرمجة للعام 2019
rankrank
إنضم
28 يناير 2019
المشاركات
292
الإعجابات
357
النقاط
63
كود:
        Dim Obj As Object
        Obj = CreateObject("WScript.Shell").Popup("Hello!", 10, "Title", 4 + 32)
        Select Case Obj
            Case 6
                MsgBox("نعم")
            Case 7
                MsgBox("لا")
            Case -1
                MsgBox("انتهت 10 ث")
        End Select
        'https://www.vbsedit.com/html/f482c739-3cf9-4139-a6af-3bde299b8009.asp
 
إنضم
10 يناير 2019
المشاركات
135
الإعجابات
66
النقاط
28
العمر
35
أشكرك جزيل الشكر أخي
⭐⭐⭐⭐⭐
هل يمكن فقط إختفاء المسج بكس لوحدو و يظهر الفورم 1 من دون الضغط على أوكي
كيف لو سمحت حذف هذا السطر كي لا يظهر
MsgBox("انتهت 10 ث")
 
الإعجابات: QS7S

QS7S

مُميّز نُقطة لُغات البرمجة للعام 2019
rankrank
إنضم
28 يناير 2019
المشاركات
292
الإعجابات
357
النقاط
63
أشكرك جزيل الشكر أخي
⭐⭐⭐⭐⭐
هل يمكن فقط إختفاء المسج بكس لوحدو و يظهر الفورم 1 من دون الضغط على أوكي
كيف لو سمحت حذف هذا السطر كي لا يظهر
MsgBox("انتهت 10 ث")


لم افهمك جيدا
ولكن هاذا مثالين

كود:
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Show() ' اظهر الفورم اولا
        'ثم المسج
        Dim Obj As Object
        Obj = CreateObject("WScript.Shell").Popup("Hello!", 10, "Title") ' انتظر 10 ثوان واغلق المسج تلقائي
        '>>>>>>> اي كود هنا لن يعمل الا من تنتهي 10 ثوان
    End Sub
End Class

'Public Class Form1
'    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'        Me.Show() ' اظهر الفورم اولا
'        'ثم مهمه في التاسك
'        Task.Run(Function()
'                     ' ثم المسج
'                     Dim Obj As Object
'                     Obj = CreateObject("WScript.Shell").Popup("Hello!", 10, "Title") ' انتظر 10 ثوان واغلق المسج تلقائي
'                     Return Nothing
'                 End Function)
'        '>>>>>>> اي كود هنا راح يعمل بدون انتظار
'    End Sub
'End Class
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل