محو شدن خودکار Msgbox

[Apache66]

سلام
می خواهیم اگر کاربر بعد از چند ثانیه پاسخی به Msgbox نداد به طور خودکار پاسخ دکمه پیش فرض قرار گیرد . آیا این امکان وجود دارد ؟ :متفکر:

[فاطمه وطن دوست]

سلام

از تایمر میشه استفاده کرد؟

[Apache66]

سلام

از تایمر میشه استفاده کرد؟

استفاده از تایمر رو که می دونم ولی کد برنامه رو نمی دونم

[فاطمه وطن دوست]

سلام

فکر کنم باید این کارو انجام بدین

اول خودتون یه msgbox بسازین نمونش تو بخش برنامه های کاربردی هست.

http://barnamenevis.org/forum/showpost.php?p=541623&postcount=259

بعدش این کدا رو بنویسید.
timer1.interval=1000




Private Sub Command1_Click()
Timer1.Enabled = True
Form2.Show 1 ---> msgbox
End Sub


Private Sub Timer1_Timer()
Form2.Hide
End Sub

[__siavash__]

این تاپیکو دیدی
MSGBOX (http://barnamenevis.org/forum/showthread.php?t=111020)

[__siavash__]

پیشنهاد میکنم از این API استفاده کنی



Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long, ByVal lngMilliseconds As Long) As Long
Private Const SUBLANG_ENGLISH_US = &H1
Private Const MB_DEFBUTTON1 = &H0&
Private Const MB_YESNO = &H4&
Private Const MB_ICONASTERISK = &H40&

Private Sub Command1_Click()
MessageBoxTimeout Me.hwnd, "This MsgBox is MessageBoxTimeout API with 5000 Ms timeOut!!!", "Information", MB_YESNO Or MB_DEFBUTTON1 Or MB_ICONASTERISK, SUBLANG_ENGLISH_US, 5000
End Sub


نمونه کاملش اینجا (http://barnamenevis.org/forum/showpost.php?p=542209&postcount=260)هست