以下是引用团囝在2007-8-7 21:37:09的发言:
Private Sub Command1_Click()
' this shows a messagebox that will be dismissed after 4 seconds
' set the callback timer and pass our application defined ID (NV_CLOSEMSGBOX)
' set the time for 3 seconds (3000& microseconds)
SetTimer hWnd, NV_CLOSEMSGBOX, 3000&, AddressOf TimerProc
' call the messagebox API function
Call MessageBox(hWnd, "显示四秒后自动关闭的MsgBox对话框,爽吧?", _
"Self Closing Message Box", MB_ICONQUESTION Or MB_TASKMODAL)
End Sub
我就是把TOFORN的那个的4改成了2,就是2秒后自动关的了...
Private Sub Command1_Click()
' this shows a messagebox that will be dismissed after 4 seconds
' set the callback timer and pass our application defined ID (NV_CLOSEMSGBOX)
' set the time for 3 seconds (3000& microseconds)
SetTimer hWnd, NV_CLOSEMSGBOX, 3000&, AddressOf TimerProc
' call the messagebox API function
Call MessageBox(hWnd, "显示四秒后自动关闭的MsgBox对话框,爽吧?", _
"Self Closing Message Box", MB_ICONQUESTION Or MB_TASKMODAL)
End Sub
我就是把TOFORN的那个的4改成了2,就是2秒后自动关的了...
学习了!
生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。