第八单元 多媒体及网络程序设计基础

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

 

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