📄 020303.htm

📁 提供一个VB学习教程,入门级。来源于网上
💻 HTM
字号:
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>vb study</title><style>
<!--
td {font-size: 9pt}
A:link {text-decoration: none; color: #0033cc;font-size: 9pt}
A:visited {text-decoration: none; color: #0066CC;font-size: 9pt}
A:active {text-decoration: none; color: #ff0000; font-size: 9pt}
A:hover {text-decoration: underline; color: #000000;font-size: 9pt}
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" width="98%">
    <tr>
      <td width="100%"><a href="#">你的位置</a>：<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="#">VB学习</a>--<a href="#">ActiveX控件</a></td>
    </tr>
    <tr>
      <td width="100%">
        <p align="center"><font size="2">多媒体控件（ActiveMovie和）MediaPlayer控件</font></td>
    </tr>
    <tr>
      <td width="100%"><br>
        <font size="2">★ 使用MCI函数：可向MCI设备发送命令，不同的设备发送不同的命令。MCI支持三类函数，而主要是：1，命令消息接口函数；2，命令字符串接口函数两类。命令消息接口使用mciSendCommand函数向MCI设备发送消息。命令字符串接口用mciSendStringA函数。我们就介绍这种命令字符串接口函数。其格式为"命令-设备-参数"，命令字符串接口函数mciSendStringA的声明如下： Private Declare Function mciSendStringA Lib "winmm.dll" _<br> 
        (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _<br> 
        ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long<br> 
        调用如：<br>
        x = mciSendStringA("play e:\dmt\back.wav", 0, 0, 0) 有四个参数：lpstrCommand:控制MCI设备的命令字符串；lpstrReturnString:返回表示MCI设备当前状态的信息，通常是指定1个空字符串缓冲区，uReturnLength：缓冲区lpstrReturnString的长度，用有多少字节表示。hwndCallback:调用返回--不用管它，写0就是。<br> 
        该函数能播放所有格式的多媒体文件，如mid,avi,wav,mpg等等。太好了！VCD光驱上的Dat文件，只需要将其扩展名改为mpg即可。<br>
        最基本的是第1个参数.如："play 路径及文件名"表示播放文件，注明fullscreen 参数表示满屏播放视屏文件。如：<br> 
        x = mciSendStringA("play e:\dmt\start.avi fullscreen", 0, 0, 0)<br> 
        显示效果很好。再如，弹出/关闭CD-ROM或光驱仓门用set cdaudio door open/closed，如： y = mciSendStringA("set cdaudio door open", 0, 0, 0)<br> 
        总之，我所看到的有以下这些：<br>
        status命令：查看当前设备的各种状态。格式：status 设备名 参数。参数如mode设备的播放状态。有not ready,playing,stopped三种返回值。参数position表示当前播放的位置，length:光盘总时间长度。注：它不是以秒为单位，而是以1/8秒为一个时间单位，因此在运用中要注意除以8来计算时间；length track number:指定曲目号时间长度。命令返回值在第2个参数上，第2个参数一般先向函数传递一个足够长的空字符串，调用函数后，就会从空字符串的左边开始写入返回值，例如：<br> 
        Dim abc As String<br> 
        Private Sub Form_Load()<br> 
        abc = " " 字符串变量abc有31个空格，也可<br> 
        End Sub 以写成abc=string(31," ")<br> 
        Private Sub Command3_Click()<br> 
        z = mciSendStringA("status e:\dmt\start.avi mode", abc, 31, 0) 第3个参<br> 
        Print abc 数31也是指定长度<br> 
        End Sub<br> 
        abc的结果就可能是"playing "还剩20多个空格。<br> 
        open/close命令：打开/关闭MCI设备。格式：open/close 设备名（格式全都是"<br> 
        命令关键字-设备（即路径与文件名）-参数"，下面的就不写明格式了）。如：<br>
        a = mciSendStringA("close e:\dmt\start.avi", 0, 0, 0)<br> 
        set命令：对设备文件的设置。可设置关闭驱动器，左右声道，时间格式等。如改变CD-ROM时间设置为音轨（tmsf)格式"音轨号：分：秒：帧"用set cdaudio time&nbsp;<br>
        format tmsf.<br> 
        seek命令:查找定位，如seek cdaudio to position,从指定位置播放CD。position应指明具体的音轨号或"分：秒"等数值。如seek cdaudio to start.<br> 
        pause命令：暂停播放。如pause cdaudio wait.再如：<br> 
        b = mciSendStringA("pause e:\dmt\start.avi wait", 0, 0, 0)<br> 
        stop命令：停止播放。<br>
        [问题：怎样将bmp位图转换成ico图标？]--很简单，改扩展名就是。</font>
        <p align="center">
        <br>
        &lt; <a href="020302.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020304.htm">下一页</a>    
        &gt;<br>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>
💿 文件大小 232 K
👤 上传用户 Sundaymorn
📂 所属分类其他
🏷️ 相关标签

#教程 #入门级
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -