Excel VBA質問箱 IV

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

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


50342 / 76732 ←次へ | 前へ→

【31279】5秒ごとにフォームを出す方法
質問  あゆ  - 05/11/16(水) 15:40 -

引用なし
パスワード
   こんにちは☆今問題を制限時間5秒で解くようにするため、5秒経ったら、”時間切れです”とかをかいたフォームを表示したいのですが、うまくいきません。下のように標準モジュールに書きました。
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1

Public Sub Auto_Close()
    Application.OnTime EarliestTime:=wktime _
             , Procedure:="StartOnTime" _
             , Schedule:=False
End Sub
Public Sub StartOnTime()
    wktime = Now() + TimeValue("00:00:05")
    s = sndPlaySound("C:\Documents and Settings\enokiz\My Documents\効果音\bubu.wav", SND_ASYNC)
    時間切れ.Show (vbModeless)
    Application.OnTime EarliestTime:=wktime _
             , Procedure:="StartOnTime"
End Sub
見にくくなってしまってごめんなさい。
実行して問題を解いて5秒経っても何もでてきません。どなたかご教授ください。お願いします☆

0 hits

【31279】5秒ごとにフォームを出す方法 あゆ 05/11/16(水) 15:40 質問
【31289】Re:5秒ごとにフォームを出す方法 Kein 05/11/16(水) 16:49 発言
【31468】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 12:07 質問
【31470】Re:5秒ごとにフォームを出す方法 Kein 05/11/22(火) 12:21 回答
【31471】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 12:56 質問
【31472】Re:5秒ごとにフォームを出す方法 Kein 05/11/22(火) 13:09 回答
【31474】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 13:24 お礼
【31478】Re:5秒ごとにフォームを出す方法 あゆ 05/11/22(火) 15:33 質問

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