محدود كردن msgbox

[yasa_sabnet68]

مي خوام مسيج باكسم در يك زمان مخصوص مثلاً 3 ثانيه نشون داده بشه بعد بره

[alirezash]

بجای مسیج باکس از فرم استفاده کن و شکلشو شبیه مسیج باکس درست کن . و یک تایمر قرار بده که بعد از 3 ثانیه بسته بشه

[Tasiyan]

Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
m = MsgBox("DAVOUD", vbOKOnly, "Message")
End Sub


:لبخند:

[Felony]

Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
m = MsgBox("DAVOUD", vbOKOnly, "Message")
End Sub
کد شما هر 3 ثانیه یه پیغام نشون میده ، نه اینکه 3 ثانیه یه پیغام رو نشون بده .

میتونید هندل پنجره ی MsgBox رو به دست بیارید و بهش پیغام بسته شدن رو بفرستید .

[Tasiyan]

کد شما هر 3 ثانیه یه پیغام نشون میده ، نه اینکه 3 ثانیه یه پیغام رو نشون بده .

میتونید هندل پنجره ی MsgBox رو به دست بیارید و بهش پیغام بسته شدن رو بفرستید .

گير ميدي يا :خجالت:

Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
m = MsgBox("DAVOUD", vbOKOnly, "Message")
Timer1.Enabled = False
End Sub
:لبخند:

[hmrbesharat]

Private Sub Form_Load()
Timer1.Interval = 3000
End Sub
Private Sub Timer1_Timer()
m = MsgBox("DAVOUD", vbOKOnly, "Message")
Timer1.Enabled = False
End Sub
خوب عزيز اينم كه همون شد فقط بعد از 3 ثانيه پياما نشون ميده:اشتباه:

[Babak.Hassanpour]

اینم اون چیزی که دنبالش بودین.