关于vb播放声音文件的问题

Question

目前在vb中，我借用数据库调用着图片文件：tezheng.Picture = LoadPicture(App.Path & "\Pics\" & Data3.Recordset.Fields("pic" & Index))我现在想为每个图片配一个声音文件，调用图片的同时也调用和他对应的声音文件，如何可以简单实现这个功能呢？希望大家给予指点，会尽快结贴给分，谢谢大家！

Answer 1

Index对应一个曲目表项或一个曲目数组元素,按Index找到播放

Answer 2

播放声音其实很简单
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
dim strSoundFile as string
strSoundFile = "c:\test.wav"
mciSendString "close MyWav", vbNullString, 0, 0
mciSendString "open """ & strSoundFile & """ alias MyWav", vbNullString, 0, 0

Answer 3

Declare Function sndPlaySound Lib "WINMM.DLL" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Global Const SND_SYNC = &H0
Global Const SND_ASYNC = &H1     ' 异步播放
Global Const SND_NODEFAULT = &H2 ' 不使用缺省声音
Global Const SND_MEMORY = &H4    ' lpszSoundName 指向一个内存文件
Global Const SND_LOOP = &H8
Global Const SND_NOSTOP = &H10
Global SoundBuffer() As Byte

Answer 4

调用控件会不会更简单些呢？比如windows media player控件

Answer 5

可以.做一个播放列表,但windows media player使程序变大.

Answer 6

主要windows media player是自带的感觉方便些 一般播放声音什么控件用得比较多呢？

Answer 7

windows media player就很好，支持的格式很多