全て
| この変数は未定義です
| 開発
2006/07/18
カテゴリ： この変数は未定義です
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Function 音を鳴らす(sound As Integer)
'サウンドファイルが見つからなければエラー音がなるはず
Dim Ret As Long
If sound = 1 Then Ret = sndPlaySound("C:\Windows\Media\Chimes.wav", 0)
If sound = 2 Then Ret = sndPlaySound("C:\Windows\Media\start.wav", 0)
If sound = 3 Then Ret = sndPlaySound("C:\Windows\Media\Windows XP Information Bar.wav", 0)
End Function
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Function 音を鳴らす(sound As Integer)
'サウンドファイルが見つからなければエラー音がなるはず
Dim Ret As Long
If sound = 1 Then Ret = sndPlaySound("C:\Windows\Media\Chimes.wav", 0)
If sound = 2 Then Ret = sndPlaySound("C:\Windows\Media\start.wav", 0)
If sound = 3 Then Ret = sndPlaySound("C:\Windows\Media\Windows XP Information Bar.wav", 0)
End Function
お気に入りの記事を「いいね！」で応援しよう
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
