8-1
Private Sub cmdBegin_Click()
'注意要先Open一个媒体问题再Play,两个步骤是分开的
Me.Anim.Open App.Path & "\" & "filecopy.avi"
Me.Anim.Play
Me.Label1.Visible = True
End Sub
Private Sub cmdOpen_Click()
'指定要打开的 MCI 设备的类型。如:AVIVideo、CDAudio、DAT、DigitalVideo、MMMovie、其它、Overlay、扫描仪、序列发生器、VCR、视盘或 WaveAudio。
mm.DeviceType = "AVIVideo"
'指定 Open 命令将要打开的或者 Save 命令将要保存的文件。如果在运行时要改变 FileName 属性,就必须先关闭然后再重新打开 Multimedia MCI 控件。
mm.FileName = App.Path & "\Cineapk.avi"
'指定将要执行的 MCI 命令。参数 cmdstring$ 给出了将要执行的 MCI 命令的名称:Open, Close, Play, Pause, Stop, Back, Step, Prev, Next, Seek, Record, Eject, Sound 或 Save。这些命令被立即执行,并将错误代码存放在 Error 属性中。
mm.Command = "Open"
'该属性是 MCI 设备输出窗口的句柄。如果句柄为 0,则使用缺省窗口(即“stage 窗口”)。
mm.hWndDisplay = Me.Picture1.hWnd
cmdClose.Enabled = True
cmdOpen.Enabled = False
End Sub
'注意要先Open一个媒体问题再Play,两个步骤是分开的
Me.Anim.Open App.Path & "\" & "filecopy.avi"
Me.Anim.Play
Me.Label1.Visible = True
End Sub
Private Sub cmdOpen_Click()
'指定要打开的 MCI 设备的类型。如:AVIVideo、CDAudio、DAT、DigitalVideo、MMMovie、其它、Overlay、扫描仪、序列发生器、VCR、视盘或 WaveAudio。
mm.DeviceType = "AVIVideo"
'指定 Open 命令将要打开的或者 Save 命令将要保存的文件。如果在运行时要改变 FileName 属性,就必须先关闭然后再重新打开 Multimedia MCI 控件。
mm.FileName = App.Path & "\Cineapk.avi"
'指定将要执行的 MCI 命令。参数 cmdstring$ 给出了将要执行的 MCI 命令的名称:Open, Close, Play, Pause, Stop, Back, Step, Prev, Next, Seek, Record, Eject, Sound 或 Save。这些命令被立即执行,并将错误代码存放在 Error 属性中。
mm.Command = "Open"
'该属性是 MCI 设备输出窗口的句柄。如果句柄为 0,则使用缺省窗口(即“stage 窗口”)。
mm.hWndDisplay = Me.Picture1.hWnd
cmdClose.Enabled = True
cmdOpen.Enabled = False
End Sub
Private Sub cmdExecute_Click()
If txtURL.Text = "" Then
MsgBox "未输入网站地址!"
Exit Sub
End If
If txtFileName.Text = "" Then
MsgBox "未输入文件名称!"
Exit Sub
End If
'制定对象的传输协议
Inet1.Protocol = icHTTP
'通过OpenURL的返回字符串来存储文件
Dim webString As String
webString = Inet1.OpenURL(txtURL.Text)
Open txtFileName.Text For Output As #1
Print #1, webString
Close #1
End Sub
If txtURL.Text = "" Then
MsgBox "未输入网站地址!"
Exit Sub
End If
If txtFileName.Text = "" Then
MsgBox "未输入文件名称!"
Exit Sub
End If
'制定对象的传输协议
Inet1.Protocol = icHTTP
'通过OpenURL的返回字符串来存储文件
Dim webString As String
webString = Inet1.OpenURL(txtURL.Text)
Open txtFileName.Text For Output As #1
Print #1, webString
Close #1
End Sub