📄 ba36.htm
字号:
<HTML>
<HEAD>
<TITLE>用VB设计VCD播放器</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="15">
<div align="center"> <strong><b><font face="幼圆">用VB设计VCD播放器</font></b></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"><strong><b></b></strong></p>
<p align="left"><font face="宋体" size="-1">转载自《太平洋电脑信息网》 (文/傅能红)</font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
本 人 在 电 脑 报 上 发 现 一 个 非 常 实 用 的VB 小 程 序 经 过 一 定 的 修 改 后, 不
敢 独 享, 奉 献 给 诸 位。</font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
该 程 序 通 过VB 的 多 媒 体 控 件MCI32.OCX 可 以 打 开MPEG 压 缩 文 件( 如VCD2.0
版 的.DAT 文 件) 来 实 现 一 个VCD 播 放 器 的 设 计 </font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
首 先 必 须 确 保 在 你 的Windows 系 统 中SYSTEM.INI 文 件 关 于[MCI] 中 需
有MPEGVideo 项( 一 般Windows 95 和Windows 98 中 均 有 此 项) 。 </font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
其 次 在VB 中 建 立 一 个 新 窗 口, 加 入 多 媒 体 部 件Microsoft Multimedia
Control 5.0( 位 于C:\Windows\System\MCI32.OCX), 以 及 对 话 框 部
件 Microsoft Common Dialog Control 5.0( 位 于C:\Windows\System\COMMONDLG32.OCX),
将MCI 控 件 拖 放 至 窗 体Form 上, 调 整 其 大 小, 并 将 窗 体 的 大 小 也 调 整 为
与 其 同 样 大 小; 将 其 九 个 按 钮( 从 左 至 右 为:Prev、Next、Play、Pause、Back、Step、Stop、Record
和 Eject) 中 的Record 按 钮 的Visible 属 性 设 为False, 其 余 按 钮 中 的Visible
属 性 和Enabled 属 性 设 为True , 以 上 按 钮 的 设 置 可 通 过MMControl 的
属 性 栏 内" 自 定 义" 项 来 设 置。 对 话 框 控 件 的DefaultExt 属
性 设 为.DAT, DialogTitle 属 性 设 为" 打 开 多 媒 体 文 件",
Filter 属 性 设 为"*.DAT, *.WAV", InitDir 属 性 设 为"G:\MPEGAV"(
假 设 光 驱 盘 符 为G) 。 </font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
源 代 码 如 下: <br>
Option Explicit<br>
Private Sub Form_Load()<br>
Dim Response As Integer<br>
MMControl1.DeviceType = "MPEGVideo"<br>
CommonDialog1.ShowOpen <br>
'通过对话框选择不同的VCD文件<br>
MMControl1.filename = CommonDialog1.filename<br>
'选定要播放的文件<br>
MMControl1.Command = "Open"<br>
MMControl1.Command = "Play"<br>
<br>
End Sub<br>
Private Sub Form_Unload(Cancel As Integer)<br>
MMControl1.Command = "close"<br>
End Sub<br>
Private Sub MMControl1_BackClick(Cancel As Integer)<br>
'对Back按钮的功能改进<br>
Dim i As Integer<br>
i = MMControl1.Position - 100 <br>
'数值100为后退量,可适当调整<br>
If i < 0 Then<br>
MMControl1.From = 0<br>
Else<br>
MMControl1.From = i<br>
End If<br>
MMControl1.Command = "Play"<br>
<br>
End Sub<br>
Private Sub MMControl1_StepClick(Cancel As Integer) <br>
'对Step按钮的功能改进<br>
Dim j As Integer<br>
j = MMControl1.Position + 100 <br>
'数值100为前进量,可适当调整<br>
If j > MMControl1.Length Then<br>
MMControl1.From = MMControl1.Length<br>
Else<br>
MMControl1.From = j<br>
End If<br>
MMControl1.Command = "Play"<br>
End Sub<br>
</font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
MCI 控 件 还 有 很 多 属 性, 如 画 面 播 放 位 置hWndDisplay 属 性 等 等, 大 家
可 参 阅 相 关 资 料 自 行 摸 索。 </font></p>
<p align="left"><font color="#ffffff" face="宋体" size="-1">----</font><font face="宋体" size="-1">
调 整 好 窗 体 的 标 题、 图 标、 颜 色 等, 然 后 编 译 成 .EXE 文 件, 你 就 可 以 在Windows
下 拥 有 自 己 的VCD 播 放 器 了。</font>
</div>
</td>
</tr>
</center>
<tr>
<td width="100%" class="unnamed1">
<p align=right><a href="ba35.htm">（上一页）</a>---<a href="ba37.htm">（下一页）</a></p>
</td>
</tr>
<tr>
<td width="100%" class="unnamed1">
</div>
</td>
</tr>
<!--msnavigation--></tbody>
</table>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -