当前位置: 开源爱好者 » 编程教程 » VB教程 » 正文

VB6 简单播放视频文件的一例子

  • 时间:2018-04-12
  • 简述:VCD

以下代码是VB播放VCD视频文件的一个例子,不过VCD是很早时候的产物了,本代码重在学习播放视频的方法,播放的文件格式可以自定义,下面的核心 代码:

Private Sub Form_Load()
    Command1.Caption = "打开" '设置属性
    Command2.Caption = "播放"
    Command3.Caption = "暂停"
    Command4.Caption = "停止"
    Command5.Caption = "退出"
    MediaPlayer1.PlayCount = 3 '播放的次数
    MediaPlayer1.AutoStart = True '自动开始播放
    Command2.Enabled = False
    Command3.Enabled = False
    Command4.Enabled = False
     MediaPlayer1.ShowControls = False  '不显示控制面板
End Sub
Private Sub Command1_Click()
    CommonDialog1.Action = 1 ' 打开对话框
    MediaPlayer1.FileName = CommonDialog1.FileName '播放文件
    If CommonDialog1.FileName <> "" Then
        Caption = "正在播放:" & CommonDialog1.FileName
        Command3.Enabled = True
        Command4.Enabled = True
    End If
End Sub
Private Sub Command2_Click()
    Caption = "正在播放:" & CommonDialog1.FileName
    MediaPlayer1.Play
    Command2.Enabled = False
    Command3.Enabled = True
    Command4.Enabled = True
End Sub
Private Sub Command3_Click()
    MediaPlayer1.Pause  '暂停
    Command3.Enabled = False
    Command2.Enabled = True
End Sub
Private Sub Command4_Click()
    MediaPlayer1.Stop '停止
    Command4.Enabled = False
    Command3.Enabled = False
    Command2.Enabled = True
End Sub
Private Sub Command5_Click()
    End '结束
End Sub

 如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:\WINDOWS\system32\目录下,然后,在"开始"/"运行"中键入regsvr32 C:\WINDOWS\system32\msdxm.ocx, 回车再运行程序即可.

包括完整控制的源码包可在这里下载:简单的VB6 播放视频文件程序

相关内容:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图