Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20906 / 76732

←次へ　｜　前へ→


	【61234】Re:VBAでVBSのMSGBOX表示みたいな

Abyss - 09/4/18(土) 1:14 -


	引用なし

	パスワード

MessageBoxTimeoutっていうHiddenAPI（非公開ＡＰＩ)
を使って見るとか。

（Sample）

Private Declare Function MessageBoxTimeoutA Lib "User32" _
　　(ByVal Hwnd As Long, _
　　 ByVal lpText As String, _
　　 ByVal lpCaption As String, _
　　 ByVal uType As VbMsgBoxStyle, _
　　 ByVal wLanguageID As Long, _
　　 ByVal dwMilliseconds As Long) As Long
　　　　
Private Const MB_TIMEOUT = &H7D00

Sub TimerMsgbox()

　　Dim Sec As Long
　　Dim Result As Long
　　Dim sMsg As String
　　
　　Sec = 4 * 1000　'4秒
　　sMsg = "4秒後に消えます。"
　　
　　Result = MessageBoxTimeoutA(Application.Hwnd, sMsg, _
　　　　　　　　Application.Name, vbOKCancel + vbMsgBoxSetForeground, 0&, Sec)
　　　　　　　　
　　Select Case Result
　　　　Case vbOK
　　　　　　sMsg = "OKボタンが押された。"
　　　　Case vbCancel
　　　　　　sMsg = "キャンセルボタンが押された。"
　　　　Case MB_TIMEOUT
　　　　　　sMsg = "4秒経ちました。"
　　End Select
　　
　　MsgBox sMsg
　　
End Sub

0 hits

▼

【61222】VBAでVBSのMSGBOX表示みたいな ＯＮ 09/4/16(木) 18:43