怎样用vb播放音符
发布网友
发布时间:2024-10-12 01:46
我来回答
共1个回答
热心网友
时间:2024-11-19 07:03
什么意思?随便播放不就是从耳麦里面出来的吗?
如果你要播放大的音乐文件就要用到控件:
如:WindowsMediaPlayer(将工程->部件->WindowsMediaPlayer的复选框打上勾),画一个WindowsMediaPlayer控件之后用以下代码
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "c:\jjh.mp3"
End Sub
播放小的提示音文件用以下方法
一、把你的提示音用转换器转化为wav格式,提示音文件不可太大,否则可能无法播放,控制在几Kb以内!
二、把wav格式的声音做成vb资源文件
三、用如下代码
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long'API声明要放在程序代码最顶上
Private Sub Command2_Click()
Dim B() As Byte
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), &H4 '播放内存里的声音,&H8 ' 循环播放,&H1 ' 异步播放
End Sub