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