自己写个对话框事件,弹出后,默认多少秒自动确定
需要用到Windows API事件。
try
....
Catch ex As Exception
Dim Msgbox_F As New MsgBox_Fairy4.F_Msgbox
Msgbox_F.SetTimer(Handle.ToInt32, Msgbox_F.NV_CLOSEMSGBOX, 4000, AddressOf Msgbox_F.TimerProc)
' call the messagebox API function
Call Msgbox_F.MessageBox(Handle.ToInt32, "系統程式發生異常,4秒后自動重啟!", "Self Closing Message Box", Msgbox_F.MB_ICONQUESTION Or Msgbox_F.MB_TASKMODAL) 'Self Closing Message Box不能改變,否則無法關閉
System.Diagnostics.Process.Start(Application.StartupPath & "\StaffCheck.exe")
Application.DoEvents()
End
End Try
z这个是DLL,你自己下载去用:
[[it] 本帖最后由 fairy4 于 2008-12-16 11:58 编辑 [/it]]