一、 樣式一 我們要實現上圖中的效果,需要如下的操作: 從工具欄上的“Smobiler Components”拖動一個VoiceRecorder控制項和一個ImageButton控制項到窗體界面上 修改ImageButton的屬性 1.BackColor屬性 設置控制項的背景色,將該屬性設置為“Gray” ...
一、 樣式一
我們要實現上圖中的效果,需要如下的操作:
- 從工具欄上的“Smobiler Components”拖動一個VoiceRecorder控制項和一個ImageButton控制項到窗體界面上
- 修改ImageButton的屬性
1.BackColor屬性
設置控制項的背景色,將該屬性設置為“Gray”,如圖1;
圖 1
2.BackColorAlpha屬性
設置控制項背景色透明度,將該屬性設置為“0”,即全透明,如圖2;
圖 2
3.Lacation屬性
讓控制項顯示在合適的位置(100, 20),如圖3;
圖 3
4.ResourceID屬性
設置按鈕圖標名稱,將該屬性設置為“ed”,如圖4;
圖 4
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;
圖 5
2.GenerateMember屬性
設置控制項是否生成成員變數,將該屬性設置為“True”,則該控制項能被其他方法引用,如圖6;
圖 6
3.Modifiers屬性
設置控制項的可見性級別,預設設置為“Private”,其他的窗體則訪問不到該控制項,如圖7;
圖 7
若將Modifiers屬性設置為“Public”,其他窗體則都可以訪問該控制項。
4.Name屬性
設置控制項名稱為“voiceRecorder1”,如圖8;
圖 8
5.TimeOut屬性
設置客戶端獲取音頻的超時時間(毫秒),預設設置為“0”,如圖9;
圖 9
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窗體設計界面顯示效果
- 手機效果顯示