wType參數改成可以提示輸入VBA的vbMsgboxStyle常數。
這個API函數的參數如下:
hwnd:窗口句柄,可以設為0
lpText:消息框顯示內容,類似於MsgBox函數的第壹個參數Prompt
lpCaption:消息框標題,類似於MsgBox函數的第三個參數Caption
wType:消息框類型,類似於MsgBox函數的第二個參數Buttons
wlange:不是太明白這個參數,0或者1都看不出什麽差別
dwTimeout:延時時間,單位是毫秒
返回的值和vbMsgBoxResult常數壹樣,多了壹個返回值32000表示超過延時時間未選擇任何按鈕。
Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal wType As VbMsgBoxStyle, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long‘函數聲明
Private Sub TestMsgboxEx()’使用
Dim ret As Long
ret = MsgBoxEx(0, "要終止此程序麽", "60秒後自動關閉", vbYesNo + vbInformation, 1, 60000)
If ret = 32000 Or ret = vbYes Then End
End Sub