一、 样式一
![](https://img.haomeiwen.com/i8897894/49cd8109e239a352.png)
我们要实现上图中的效果,需要如下的操作:
从工具栏上的“Smobiler Components”拖动一个VoiceRecorder控件和一个ImageButton控件到窗体界面上
![](https://img.haomeiwen.com/i8897894/ccfb9b5ee4d35094.png)
修改ImageButton的属性
1.BackColor属性
设置控件的背景色,将该属性设置为“Gray”,如图1;
![](https://img.haomeiwen.com/i8897894/ff84d4cc9fd657c6.png)
2.BackColorAlpha属性
设置控件背景色透明度,将该属性设置为“0”,即全透明,如图2;
![](https://img.haomeiwen.com/i8897894/80459cd959239891.png)
3.Lacation属性
让控件显示在合适的位置(100, 20),如图3;
![](https://img.haomeiwen.com/i8897894/ee9ce769017ea2f8.png)
4.ResourceID属性
设置按钮图标名称,将该属性设置为“ed”,如图4;
![](https://img.haomeiwen.com/i8897894/bab67968f9d4849c.png)
5.ImageButton的Click事件
VB:
Private Sub ImageButton1_Click(sender As Object, e As EventArgs) Handles ImageButton1.Click
VoiceRecorder1.GetRecorderAudio()
End Sub
修改VoiceRecorder的属性
1.AudioPath属性
设置客户端音频的路径,默认设置为空,如图5;
![](https://img.haomeiwen.com/i8897894/21c276f4fdf4f1b6.png)
2.GenerateMember属性
设置控件是否生成成员变量,将该属性设置为“True”,则该控件能被其他方法引用,如图6;
![](https://img.haomeiwen.com/i8897894/5ab397f84dc2f315.png)
3.Modifiers属性
设置控件的可见性级别,默认设置为“Private”,其他的窗体则访问不到该控件,如图7;
![](https://img.haomeiwen.com/i8897894/5b7de0ac6dfd5890.png)
若将Modifiers属性设置为“Public”,其他窗体则都可以访问该控件。
4.Name属性
设置控件名称为“voiceRecorder1”,如图8;
![](https://img.haomeiwen.com/i8897894/3e72fc827bc1cd3c.png)
5.TimeOut属性
设置客户端获取音频的超时时间(毫秒),默认设置为“0”,如图9;
![](https://img.haomeiwen.com/i8897894/7f7316ec65bbc4e8.png)
6.RecordedAudio事件
VB:
Private Sub VoiceRecorder1_RecordedAudio(sender As Object, e As BinaryData) Handles VoiceRecorder1.RecordedAudio
Try
e.SaveFile("v.amr", curdir)
Catch ex As Exception
Me.MessageBox.Show("用户操作出现错误:" + ex.Message)
End Try
End Sub
Smobiler窗体设计界面显示效果
![](https://img.haomeiwen.com/i8897894/acb836690ee5803c.png)
手机效果显示
![](https://img.haomeiwen.com/i8897894/92ee3ebe6c5cbab9.png)
![](https://img.haomeiwen.com/i8897894/b757a9da01e0234e.png)
![](https://img.haomeiwen.com/i8897894/d9626dcb65ab8aa0.png)
网友评论