|
こんにちは☆今問題を制限時間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秒経っても何もでてきません。どなたかご教授ください。お願いします☆
|
|