当前位置: 开源爱好者 » VB源码 » 文件操作 » 详情页

VB 实现可以打开特定格式的媒体文件对话框

  • 时间:2018-04-27
  • 测试环境:VB6.0
  • 源码概述:对话框

VB6.0 媒体文件浏览器,实现可以打开特定格式的媒体文件对话框,过滤File中显示指定格式的文件,请参考以下代码:
  Attribute VB_Exposed = False
  Private Sub Dir1_Change()
   File1.Path = Dir1.Path '关联文件列表框
  End Sub
  
  Private Sub Drive1_Change()
   On Error GoTo Err1
   '拦截错误
   Dir1.Path = Drive1.Drive'关联目录列表框
   Exit Sub
  Err1:'如果磁盘错误
   MsgBox ("请确认驱动器是否准备好或其他原因!"), vbOKOnly + vbExclamation '弹出提示对话框
   Drive1.Drive = Dir1.Path '忽略驱动器改变
  End Sub
  
  Private Sub File1_Click()
   Me.WindowsMediaPlayer1.URL = Me.File1.Path + "\" + Me.File1.FileName '播放文件
  End Sub
  
  Private Sub Form_Load()
   File1.Pattern = "*.AVI;*.MOV;*.DAT;*.MPG;*.WAV,*.MID;*.QT;*.MPEG" '过滤File1中显示指定格式的文件
   Me.WindowsMediaPlayer1.settings.autoStart = False '不自动播放
   Me.WindowsMediaPlayer1.settings.playCount = 1 '播放次数为1
  End Sub

VB 实现可以打开特定格式的媒体文件对话框测试效果图
源码包大小:1.75M
该源码已累计下载了:

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