CommonDialog1.FilterIndex = 1 '???????????? CommonDialog1.ShowOpen '????????????????????? MMControl1.Command = "Close" '??????????*.wav??,???????? If CommonDialog1.FilterIndex = 1 Then '??????????WaveAudio MMControl1.DeviceType = "WaveAudio" '??????????????????? MMControl1.FileName = CommonDialog1.FileName '???? MMControl1.Command = "Open" '??Slider?????? Slider1.Min = 0 '??Slider???????????? Slider1.Max = MMControl1.Length '??????*.dat?????,???????? ElseIf CommonDialog1.FilterIndex = 2 Then MMControl1.DeviceType = "MpegVideo" MMControl1.FileName = CommonDialog1.FileName MMControl1.Command = "Open" Slider1.Min = 0 Slider1.Max = MMControl1.Length End If End Sub
Private Sub Command2_Click() '?????? End End Sub
Private Sub Form_Load() '?picture1?????????? MMControl1.hWndDisplay = Picture1.hWnd End Sub
Private Sub Form_Unload(Cancel As Integer) '??????? MMControl1.Command = "Stop" MMControl1.Command = "Close" End Sub
Private Sub MMControl1_StatusUpdate() '??Slider1??????? With MMControl1 If .DeviceID <> 0 Then If Slider1.Value <> .Position Then Slider1.Value = .Position End If End With End Sub
Private Sub Slider1_Scroll() '?? Slider ????????? MMControl1.To = Slider.Value MMControl1.Command = "Seek" MMControl1.Command = "Play" End Sub
New Article
อัตราค่าโฆษณา
กระทู้ #557 [Vb] (จาก IP: 203.118.93.42)
ความคิดเห็น #21352 (จาก IP: 203.155.94.129)
