| AxMMControl1.OcxState = CType(resources.GetObject("AxMMControl1.OcxState"), System.WinForms.AxHost.State)
AxMMControl1.TabIndex = 0
AxMMControl1.Size = New System.Drawing.Size(236, 33)
AxMMControl1.Location = New System.Drawing.Point(32, 56)
Button3.Location = New System.Drawing.Point(208, 8)
Button3.Size = New System.Drawing.Size(80, 32)
Button3.TabIndex = 3
Button3.Text = "Button3"
Button2.Location = New System.Drawing.Point(104, 8)
Button2.Size = New System.Drawing.Size(88, 32)
Button2.TabIndex = 2
Button2.Text = "Button2"
Me.Text = "Form1"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(296, 29)
Me.Controls.Add(Button3)
Me.Controls.Add(Button2)
Me.Controls.Add(Button1)
Me.Controls.Add(AxMMControl1)
AxMMControl1.EndInit()
End Sub
#End Region
''''上面的代码是对属性的描述，是系统自已生成的，不要随意修改
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
AxMMControl1.From = 8815 ''''从3000毫秒开始
AxMMControl1.To =15624 ''''从6000毫秒结束
AxMMControl1.Command = "play" ''''播放
End Sub
Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Me.Dispose() ''''调用dispose退出程序，释放占用的资源
End Sub
Protected Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
AxMMControl1.From = 0 ''''从 0毫秒开始
AxMMControl1.To = 8815 ''''从3000毫秒结束
AxMMControl1.Command = "play" ''''播放
End Sub
Protected Sub AxMMControl1_OLEDragDrop(ByVal sender As Object, ByVal e As AxMCI.DmciEvents_OLEDragDropEvent)
End Sub
Public Sub me_load()
Me.BackColor = color.BlanchedAlmond ''''改变背景色为BlanchedAlmond
Me.BorderStyle = FormBorderStyle.None ''''改变窗体边框为none,没有标题栏
button1.Text = "播放上段" : button2.Text = "播放下段" : button3.Text = "退出程序"
AxMMControl1.TimeFormat = 0
AxMMControl1.DeviceType = "waveaudio" ''''定义播放*.wav格式
AxMMControl1.filename = System.WinForms.Application.StartUpPath & "\" & "muli.wav" ''''载入文件， System.WinForms.Application.StartUpPath为当前目录的意思
上一页 [1] [2] [3] 下一页 | 
