Visual Basic 2008 でプログラムを作成しています。さまざまな音量のさまざまな種類のサウンドが必要です。したがって、 My.Computer.Audio.Play は有効なオプションではありません。
代わりに mciSendString を使用することにし、次のコードを見つけました
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
mciSendString("close myWAV", Nothing, 0, 0)
Dim fileName1 As String =
mciSendString("open " & fileName1 & " type mpegvideo alias myWAV", Nothing, 0, 0)
mciSendString("play myWAV", Nothing, 0, 0)
'min Volume is 1, max Volume is 1000
Dim Volume As Integer = (SFXVolume * 100)
mciSendString("setaudio myWAV volume to " & Volume, Nothing, 0, 0)
今、私がテストしたこのコードは、filename1 = "C://Correct.wav" の場合に完全に機能しています。
しかし、私が使用するとき
filename1 = My.Application.Info.DirectoryPath & "\Correct.wav"
まったく音が出ません。
これが機能するようにコードを修正してください。前もって感謝します。