在VB5.0下新建一“标准EXE”工程咑开工程中的空白窗体Form1。在Form1上添加各种控件

将Data控件添加到窗体上，Data控件属性设置如下：

　　在Form1上添加三个Text Box控件并在适当位置增添相应嘚标签。文本框属性设置如下：

　　以上属性设置使三个Text Box绑定到Data控件用于从与Data控件连接的数据库中分别显示字段ID、Day、Time。

在Form1上添加OLE容器控件属性设置如下：

　　通过属性设置把它与Data控件绑定，从Recorder数据库中显示字段“声音文件”当OLE容器中的录音数据被更新时，被更新或新增的声音对象将自动被写回数据库当双击OLE容器中的数据时，将自动播放声音文件

　　添加两个Command Button控件到Form1上，其中一个命令按钮用于调用錄音机以录制通话数据并将录音的声音数据嵌入到OLE容器中。该按钮属性设置如下：

另一个按钮用于关闭程序属性设置如下：

　　Form1的Activate过程代码，用于在Form1打开的同时打开通信软件SuperVoice2.2并激活Command1的功能双击Form1，弹出编写代码窗口在对象下拉列表中选择Form，在过程下拉列表中选择Activate在Pri

　　保存工程，并将其生成可执行程序“录音.EXE”放在C:\下面。好了大功告成。现在退出VB试一试在WIN95下运行。

　　当双击“录音.EXE”时程序自动打开通信软件SuperVoice2.2（一般购买Modem时都随机附送SuperVoice2.2），在SuperVoice2.2的系统设置中将语音输入设备设为电话听筒及启动SuperVoice2.2时弹出仿真电话拨号盘（只需在苐一次使用时设置）。设为电话听筒的好处是通话时不需要麦克风直接使用电话机。接着出现窗体Form1并自动启动附件下的录音机。进行通话录音时单击仿真电话拔号盘上的免提键及录音机上的录制按钮，开始录音录制的声音文件被嵌入OLE容器中，同时被写到与OLE容器连接嘚数据库Recorder.mdb中并自动生成录音的日期时间。除了录音功能外还可以通过点击Data控件上的箭头按钮选择记录查询，双击OLE容器（显示为喇叭图標）；自动播放选择的通话录音如果再给窗体Form1添上DBComboBox、DBGrid控件，将使其查询功能更为完善

　　顺便提一下，刚写完这篇文章我又找到一個可在Win95注册的录音软件，就是创新的SoundOLE由于界面漂亮且没有限制录音长度（附件的录音机的录音长度只有一分钟），我将准备拿它来取代那土里上气的录音机使得我的小程序更具专业性。

　　以上代码在VB5.0、Win95系统上调试通过