| |
ゲームを作っていて、問題が出てきました。
サウンドを再生するＡＰＩのmicSendStringをつかっているのですが、それで音が鳴っている最中に、Gettickcount同期をすると、 エラー（式が複雑すぎます） が発生します。
コードにすると（標準モジュールへのAPIの宣言は省略）
Function Sound(FileName As String)
dim rc As Long
rc = mciSendString("Play " & FileName, "", 0, 0)
End Function
Sub マクロ１()
Dim Stime As Double
Stime = GetTickCount
Sound "ここにサウンドファイルの絶対パス"
Do While GetTickCount - Stime < 20: Loop <-------ここでエラー発生
End Sub
と言う感じです。sndPlaySoundは既に使っているのでそれ以外で何か対処法を知っている方は、是非教えてください。
補足：
Shell関数でWindowsMediaPlayerを起動させ、ファイルを再生しても、同じエラーに なります
|
|
For Each
- 04/5/17(月) 19:34 -
