VB创新功能扩展.docVIP

创新功能扩展 说明：程序均在Windows XP系统中运行通过 音乐控件 （WindowsMediaPlayer）——用于Windows 2000系统（低版本） 文件：msdxm.ocx 添加：部件| Windows Media Player 方法：MediaPlayer1.FileName = 我不后悔.wma 注意：AutoSize属性值可改变播放器的外观，AutoStart用于自动播放 音乐控件 （WindowsMediaPlayer）——用于Windows XP系统（高版本） 文件：wmp.ocx 添加：部件| Windows Media Player 方法：WindowsMediaPlayer1.URL = “我不后悔. wma”或*.mp3（音频文件） 注意：AutoSize属性值可改变播放器的外观，AutoStart用于自动播放 另外：低版本环境即便正常浏览安装了高版本控件，也不能正常播放。建议：将蓝色字迹的语句添加在代码中，不用的语句注释掉即可。 视频控件 （WindowsMediaPlayer）——用于Windows XP系统（高版本） 方法：WindowsMediaPlayer1.URL = “我不后悔. wmv”或*.3gp或*.avi（视频文件） 开始：MediaPlayer1.Controls.play 暂停：MediaPlayer1.Controls.pause 继续：MediaPlayer1.Controls.play 停止：MediaPlayer1.Controls.stop 多媒体播放器 （MMControl） 功能：用于管理媒体控制接口（MCI）设备上的多媒体文件的记录和回放。其一组按钮可用来向声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。MCI控件还支持Windows视频文件的回放。 Multimedia支持简单的视频和音频播放器时不需要数据文件就可播放 Multimedia支持复合设备时必须通过数据文件才能播放 添加：部件| Windows Multimedia Contrl 6.0 方法： MMControl1.DeviceType = CDAudio 设置多媒体设备类型 MMControl1.Command = Open 打开多媒体设备 MMControl1.TimeFormat = 10 设置多媒体设备的时间格式 Label1.Caption = 曲目总数： MMControl1.Tracks 显示总曲目数 MMControl1.UpdateInterval = 1000 设置UpdateInterval事件的触发间隔 MMControl1.Command = stop 停止播放 MMControl1.Command = close 关闭多媒体设备 Label2.Caption = 当前曲目： MMControl1.Tracks 显示当前曲目号 ?? Flash控件 （ShockwaveFlash） 功能：用于显示Flash动画*.swf文件 添加：部件| Shockwave Flash 方法： ShockwaveFlash1.Movie = D:\创新功能扩展\Flash\media.swf ShockwaveFlash1.Stop 属性： Loop属性：确定Flash动画是否循环播放 True（默认）：循环播放 False：不循环播放（需代码窗口设置？） 动画控件 （Animation） 功能：用于显示无声的视频动画*.avi文件 添加：部件| Microsoft Windows Common Controls-2 6.0 方法： Open方法： 打开固定动画：Animation1.Open 动画\CLOCK.AVI 打开选定动画：Animation1.Open CommonDialog1.FileName Play方法： 语法：对象.Play [重复剪辑的次数，开始帧，结束帧] （怎用） 播放动画：Animation1.Play （与AutoPlay属性同意义） 播放动画帧：？？ Stop方法： 终止动画播放：Animation1.Stop（AutoPlay为True时无效） Close方法： 关闭当前打开的.avi文件：Animation1.Close 属性： AutoPlay属性：确定动画是否播放 True：连续地自动播放，并且不响应用Stop方法停止播放 False（默认）：不用Play方法就不会播放 Center属性：确定.avi文件是否居中显示 True：位于控件定义区域（控件大小）的中心，显示局部 False（默认）：根据动画文件大小调整控件自身大小，显示全部 进