- 日時： 2010/01/10 13:06
- 名前： 魔界の仮面弁士
- ***********************************************************************************
* カテゴリー：[メッセージ][][] *
* キーワード：自動的,クリック,閉じる,ボタンをクリック,, *
***********************************************************************************
-----------------------------------------------------------------------------------
No.1821 メッセージボックスの強制終了 投稿者：ひろ [01/2/04(日)20：22分]
-----------------------------------------------------------------------------------
メッセージボックスが表示されてから、タイマーを使って、
５秒後にOKをクリックした状態でメッセージボックスを自動的に終了するには
どのようにしたら宜しいのでしょうか？
-----------------------------------------------------------------------------------
WshShell オブジェクトの Popup メソッドを使うと、簡単に実装できます。
Dim result As VbMsgBoxResult
result = CreateObject("WScript.Shell").Popup( _
"このメッセージは 5秒で消えます。", _
5, _
"タイトル", _
vbInformation Or vbOKCancel)
指定した秒数までにメッセージ ボックスに応答しなかった場合、
自動的にウィンドウが閉じられ、戻り値に -1 という値が返却されます。
|
メッセージボックスの強制終了(VB6.0)_1