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

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