Question

用VB实现发声的几种方法

Answer 1

ＳｕｂＣｏｍｍａｎｄ＿Ｃｌｉｃｋ ＢｅｅｐＥｎｄＳｕｂＢｅｅｐ函数不用调用声音文件，即可使微机发声，所以无法人为控制声音内容，以下三种方法均是对于声音文件的操作与运行。２多媒体控件在ＶＢ中使用的多媒体ＭＣＩ控件可以管理媒体控制接口 ＭＣＩ 设备上的多媒体文件的录制与播放，这个控件可用命令来控制下列设备：声卡、ＭＩＤＩ序列发生器、ＣＤ－ＲＯＭ驱动器、音频ＣＤ播放器、视盘播放器、视带录制／播放器等等。多媒体控件还可让你播放ＷＡＶ和ＭＩＤ声音文件及演示ＡＶＩ和ＭＰＧ视频文件。当然，在使用多媒体控件之前先得完成此控件的添加：Ｐｒｏｊｅｃｔ／Ｃｏｍｐｏｎｅｎｔ／ＭｉｃｒｏｓｏｆｔＭｕｌｔｉｍｅｄｉａＣｏｎｔｒｏｌ项。要实现多媒体的播放，先得指定需播放的声音文件的位置，声音文件可有以下几种类型：ＷＡＶ、ＭＩＤ、ＡＶＩ、ＭＰＧ等可识别格式的文件。要指定多媒体控件中使用的文件，可以设置控件的Ｆｉｌｅｎａｍｅ属性，并打开这个文件（多媒体控件的按钮一旦激活，用户就可播放这个文件了），设置控件的Ｃｏｍ......(本文共计3页)

Answer 2

1. 简单实用的beep命令发省

   
   

    Beep 2400, 100  ‘ beep 频率，毫秒时长
   

2. 调用api，打开声音文件

   Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

   例如：

   ShellExecute(me.hWnd, "open", "c:\temp\1.wav", "", "", 1)
   

3. 调用api函数 mciSendString播放声音

   Public 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

   例如：

   mciSendString "open " & “c:\temp\1.wav” & "   alias wav", String(255, " "), 255, 0

   mciSendString "play wav   ",String(255, " "), 255, 0

   if f_MciChkEnd() then mciSendString "close  wav ",String(255, " "), 255, 0

     
   

  Function f_MciChkEnd()

    Dim MCIStatus As String * 255

    Dim lA

   f_MciChkEnd = False

   lA = mciSendString("status wav mode", MCIStatus, Len(MCIStatus), 0)

    If UCase(Left$(MCIStatus, 7)) = "STOPPED" Or Left$(MCIStatus, 2) = "结束" Then     

     f_MciChkEnd = True

   end if 

   End Function