WAVファイルの連続再生

  API 定義



  
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long

Public Const SND_LOOP = &H8		'  loop the sound until next sndPlaySound
Public Const SND_FILENAME = &H20000	'  name is a file name
Public Const SND_ASYNC = &H1		'  play asynchronously
  



  開始と停止



  

Private Sub Play_Click()

	Call PlaySound("ファイルのフルパス", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP)

End Sub

Private Sub Stop_Click()

	Call PlaySound(vbNullString, 0, 0)

End Sub
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ