Excel VBA質問箱 IV

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

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


20912 / 76738 ←次へ | 前へ→

【61234】Re:VBAでVBSのMSGBOX表示みたいな
発言  Abyss  - 09/4/18(土) 1:14 -

引用なし
パスワード
   MessageBoxTimeoutっていうHiddenAPI(非公開API)
を使って見るとか。

(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表示みたいな ON 09/4/16(木) 18:43 質問
【61223】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/16(木) 20:05 発言
【61224】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/17(金) 11:01 お礼
【61233】Re:VBAでVBSのMSGBOX表示みたいな neptune 09/4/17(金) 23:08 発言
【61234】Re:VBAでVBSのMSGBOX表示みたいな Abyss 09/4/18(土) 1:14 発言
【61235】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/18(土) 2:32 発言
【61260】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 17:33 質問
【61261】Re:VBAでVBSのMSGBOX表示みたいな n 09/4/20(月) 18:42 発言
【61262】Re:VBAでVBSのMSGBOX表示みたいな ON 09/4/20(月) 19:03 発言

20912 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free