为何我的代码不能录音？VB codeOption ExplicitPrivate Sub Command1_Click()MMC.Command StopMMC.Comm
为何我的代码不能录音？
- VB code
Option ExplicitPrivate Sub Command1_Click() MMC.Command = "Stop" MMC.Command = "Save" MMC.Command = "Close"End SubPrivate Sub Form_Load() Open "d:\1.wav" For Binary As #1 Close MMC.DeviceType = "WaveAudio" MMC.FileName = "d:\1.wav" MMC.Command = "Open" MMC.Command = "Record"End Sub
程序开启后应该就开始录音了。点击按钮应该就停止保存了。但是那个wav文件还是空的。请问有什么问题？
[解决办法]
哪位高人帮忙解答一下，我也很想知道！