如何在vb6中实现录音的功能.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 19 行

一 个 办 法 是 使 用 MCI32控 件 ， 它 包 括 一 个 录 音 按 钮 。 下 面 是 一 个 示 例 ： 
     Private Sub Form_Load() 
     ' Set properties needed by MCI to open. 
     MMControl1.Notify = False 
     MMControl1.Wait = True 
     MMControl1.Shareable = False 
     MMControl1.DeviceType = "WaveAudio" 
     MMControl1.filename = "C:\temp\test.wav" 
     
     ' Open the MCI WaveAudio device. 
     MMControl1.Command = "Open" 
     End Sub 
     
     Private Sub MMControl1_StopClick(Cancel As Integer) 
     MMControl1.Command = "Save" 
     MMControl1.Command = "Close" 
     End Sub 
<END>