vb基础 vb实例教程 api调用 控件使用 经验技巧 数据库操作 算法及技术 vb源码下载
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 返回首页  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> vb教程 >> 正文

小叮当也战江湖—VB实例七日谈(二)
文章来源:电脑爱好者  作者:赵江

第二天、自制媒体播放器

  小蘑菇:姐姐来看我刚刚下载的《黑衣人2》,可好玩了。

  小叮当:用MediaPlayer看的?不如这样吧,今天我教你怎样制作一个媒体播放器,你看如何?

  小蘑菇:自己做的媒体播放器也可以看《黑衣人2》吗?

  小叮当:那是当然的,不然我岂不是变成了大骗子?

  小蘑菇:呵呵,那感情好呀,这样我可以拿到班上给同学炫耀一下喽。

  小叮当:我们这个媒体播放器的目的是可以播放VCD、WAV、MP3等媒体文件,而且全部的功能基本上和Windows附带的媒体播放器差不多。其实要制作这样一个播放器并不困难,因为在VB中提供了一个MediaPlayer控件,它帮我们解决了很多实际问题,只要按照下面的步骤就可以了。

  1、因为我们需要使用到MediaPlayer控件,所以刚开始就要右击工具面板并在部件添加窗口里选择“Windows MediaPlayer”来添加这个控件,同时还要添加“CommonDialog”控件。

  2、在窗口设计器中创建一个MediaPlayer控件、五个Command Button控件和一个CommonDialog控件。

  3、将Form1的Caption属性更改为“小叮当的媒体播放器”。

  4、分别将五个Command Button控件的Caption属性分别命名为“暂停”、“播放”、“停止”、“选择”和“退出”,然后把它们按照一定的位置放好。

  5、选中CommonDialog控件之后,在右边属性的“Filter”对话框中输入“WAV(*.wav)|*.wav|MIDI(*.mid)|*.mid|MPEG(*.mpeg)|*.mpeg|DAT(*.dat)|*.dat|AVI(*.avi)|*.avi|MP3(*.mp3)|*.mp3”的文件过滤选项,这样就可以支持各种常见的媒体影像文件了。

  小蘑菇:看起来和真正的MediaPlayer差不多呀,还蛮有专业水准的呢。

  小叮当:是呀,这全要归功于MediaPlayer控件,下面就是代码编写部分内容了:

  1、首先要双击Form1窗口,并选择“通用”对象,输入下面的通用代码:

    Option Explicit
    Dim playfilename As String  /定义播放文件的名称
    Dim playposition As Double  /定义当前播放的位置

  2、双击“暂停”按键并输入下列代码:

  Private Sub Command1_Click()
    Command1.Enabled = False  /暂停按键失效
    MediaPlayer1.Pause  /暂停播放
    playposition = MediaPlayer1.CurrentPosition  /当前的播放位置
  End Sub

  3、双击“播放”按键并输入下列代码:

  Private Sub Command2_Click()
    Command1.Enabled = True    /暂停按键有效
    Command3.Enabled = True    /停止按键有效
    MediaPlayer1.filename = playfilename  /播放媒体文件名称
    MediaPlayer1.SelectionStart = playposition  /当前播放的位置
    MediaPlayer1.Play  /播放媒体文件
  End Sub   4、双击“停止”按键并输入下列代码:

  Private Sub Command3_Click()
    playposition = 0  /停止播放
    Command3.Enabled = False  /停止按键无效
    Command1.Enabled = False  /暂停按键无效
    Command2.Enabled = True    /播放按键有效
    MediaPlayer1.Stop  /停止播放
  End Sub

  5、双击“选择”按键并输入下列代码:

  Private Sub Command4_Click()
    CommonDialog1.showopen    /打开文件对话框
    playfilename = CommonDialog1.filename    /记录播放文件名
    playposition = 0  /第一次打开文件时候,播放位置为0
  End Sub

  6、双击“退出”按键并输入下列代码:

  Private Sub Command5_Click()
    Unload Me  /卸载窗口
    End  /结束程序
  End Sub

  代码全部输入完毕之后,运行程序后按下“选择”按键,此时会弹出打开文件对话框供你选择需要播放的文件。


  选中相应的文件之后,就可以进行欣赏了。如果需要在别的计算机上使用这个程序的话,还可以选择“工具”菜单下的“生成.exe文件”选项来制作一个可以直接运行的exe格式文件,这样将程序复制到其他机器上就可以使用了。”


  小蘑菇:好开心呀,我来试试用自己做的程序看《黑衣人2》,哈哈,真过瘾!

  小叮当:瞧你乐得这个劲,那你就慢慢看吧。对了,通过VB还可以制作Flash动画、QuickTime等多种格式的播放器,你自己不如依葫芦画瓢的尝试一下,看看你的天份有多少,呵呵!

  小蘑菇:放心吧,保证不会让你失望的!

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有