3.WAV ファイルを再生する |
1.WAV ファイルを再生する 2. 3. 4. 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option :[Option Explicit] 参照設定: 参照設定方法参照 使用 API:PlaySound その他 :このサンプルは、Win32 API を使用しておりますので、ある程度 Win32 API が理解できる方がお使い下さい。 : |
1.WAV ファイルを再生する |
Option Explicit Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _ ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Const SND_ASYNC As Integer = &H1 '非同期で再生 Private Const SND_LOOP As Integer = &H8 '連続再生 Private Sub Command1_Click() 'サウンドデータを演奏する PlaySound "C:\Windows\Media\chimes.wav", 0, SND_ASYNC End Sub Private Sub Command2_Click() 'サウンドデータを非同期で繰り返し演奏する PlaySound "C:\Windows\Media\chimes.wav", 0, SND_ASYNC Or SND_LOOP End Sub Private Sub Command3_Click() '演奏を停止する PlaySound vbNullString, 0, 0 End Sub |
2. |
3. |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |