tagCANDY CGI VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板 - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
VBレスキュー(花ちゃん)の投稿サンプル用掲示板
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
メッセージボックスの強制終了(VB6.0)_1 ( No.1 )  [親スレッドへ]
日時: 2010/01/10 13:06
名前: 魔界の仮面弁士

***********************************************************************************
* カテゴリー:[メッセージ][][]                               *
* キーワード:自動的,クリック,閉じる,ボタンをクリック,,                     *
***********************************************************************************

-----------------------------------------------------------------------------------
No.1821 メッセージボックスの強制終了  投稿者:ひろ [01/2/04(日)20:22分]
-----------------------------------------------------------------------------------
メッセージボックスが表示されてから、タイマーを使って、
5秒後にOKをクリックした状態でメッセージボックスを自動的に終了するには
どのようにしたら宜しいのでしょうか? 
-----------------------------------------------------------------------------------

WshShell オブジェクトの Popup メソッドを使うと、簡単に実装できます。

Dim result As VbMsgBoxResult
result = CreateObject("WScript.Shell").Popup( _
            "このメッセージは 5秒で消えます。", _
            5, _
            "タイトル", _
            vbInformation Or vbOKCancel)


指定した秒数までにメッセージ ボックスに応答しなかった場合、
自動的にウィンドウが閉じられ、戻り値に -1 という値が返却されます。



 [スレッド一覧へ] [親スレッドへ]