研究了xaudio的sdk包,发现vb6能很方便的调用它,所以写了这个例程,只使用了xaudio.dll的一部分函数,同理可以使用其它的。调用dsound控制发声。
以下代码,原c代码部分保留用以对照。
frmMain.frm
VERSION 5.00
Begin VB.Form frmMain
Caption = "Form1"
ClientHeight = 3675
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3675
ScaleWidth = 4680
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmdGetInfo
Caption = "GetInfo"
Height = 495
Left = 360