平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - 用API播放 .wav 聲音文件
發表評論(0)作者:, 平臺:, 閱讀:19703, 日期:2000-03-12
用API播放 .wav 聲音文件


利用多媒體的 mciSendString API 函數, 再搭配 mci(multimedia control

interface) 指令, 即可播放 .wav 聲音文件, 細節如下:

1. API 的聲明:

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

注:如果以上的聲明放在「一般模塊」底下, 應將 Private 保留字去掉。

2. 程序范例:

' 撰寫播放聲音的一副程序

Sub PlaySound(filename)

Dim cmd As String

Call mciSendString("close MyWav", 0, 0, 0) ' MyWav 這個名稱可依需要

來修改

cmd = "open " & filename & " type WAVEAudio alias MyWav"

Call mciSendString(cmd, 0, 0, 0)

Call mciSendString("play MyWav", 0, 0, 0)

End Sub

' 假設要撥放 "c:\windows\Tada.wav"

PlaySound "c:\windows\Tada.wav"
平码公式规律出肖 口碑最好的股票配资平台 黑龙江省p62开奖 河北快3 广西今天快3开奖走 常来海南麻将新版 直接投资工具包括哪些 51计划网快乐赛车专家号 证券投资分析报告范文 淘股吧十大高手 2009年上证指数最高