Excel VBA質問箱 IV

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

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


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

50347 / 76737

←次へ　｜　前へ→


	【31279】５秒ごとにフォームを出す方法

あゆ - 05/11/16(水) 15:40 -


	引用なし

	パスワード

こんにちは☆今問題を制限時間５秒で解くようにするため、５秒経ったら、”時間切れです”とかをかいたフォームを表示したいのですが、うまくいきません。下のように標準モジュールに書きました。
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
見にくくなってしまってごめんなさい。
実行して問題を解いて５秒経っても何もでてきません。どなたかご教授ください。お願いします☆

0 hits

▼

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

≪