⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 020302.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">★ 使用Multimedia MCI控件，它有一个很重要的属性，command属性，用这个属性来实现对设备的各种命令。如下：<br> 
        MMcontrol1.command="open" 打开MCI设备<br> 
        mmcontrol1.command="close" 关闭MCI设备<br> 
        MMcontrol1.command="play" 用MCI设备进行播放<br> 
        MMcontrol1.command="pause" 暂停<br> 
        MMcontrol1.command="stop" 停止MCI设备<br> 
        MMcontrol1.command="prev" 回到本曲目开始&nbsp;<br>
        MMcontrol1.command="next" 跳到下一曲目开始&nbsp;<br>
        MMcontrol1.command="back" 向后单步<br> 
        MMcontrol1.command="step" 向前单步<br> 
        MMcontrol1.command="seek" 向前或向后查找曲目<br> 
        MMControl控件在界面中显示为九个按纽，太多了，可隐藏不用的按纽，如：<br>
        MMControl1. StepVisible = False,隐藏"单步"Step按纽。每个按纽都对应有…Enabled和…Visible属性，以设置该按纽是否有效、可见。如果要自己来设置哪些按纽有效，先将控件的AutoEnable属性（自动设置哪些按纽有效，哪些按纽无效）设为False，再把要设为有效的按纽的…Enabled属性设为True即可，如：MMControl1.BackEnabled=True,"后退"Back按纽有效，MMControl1.PlayEnabled=True,"播放"Play按纽有效。<br> 
        使用MCI控件时，最好还应对它的一些属性进行设置，如下：<br>
        mmcontrol1.notify=false 是否在命令完成时产生DONE事件反馈该命令成功还是失败<br> 
        mmcontrol1.wait=true 是否等到命令执行完毕才将控制权交还给应用程序<br> 
        mmcontrol1.shareable=false 是否允许其他程序同时使用该媒体设备<br> 
        mmcontrol1.devicetype="CDAudio" 指定mmcontrol对象要打开的MCI设备类型。<br> 
        MCI设备类型常用的如有：CD播放器（cdaudio),图像扫描仪（scanner),mid文件即音响MIDI序列发生器（sequencer),avi视频文件（avivideo),wav数字音频（waveaudio),<br>
        视盘机（videodisc),视频磁带录放机（VCR)，数字磁带（DAT）等，还有一种"未定义MCI设备（other)"。<br>
        它们都写在devicetype属性中。<br>
        在用command="open"命令打开一个设备（或文件）前，必须先指定它的路径和设备（或文件）名字，即确定mmcontrol对象的filename属性，如： mmcontrol1.filename="c:\vb6sc\app.wav"&nbsp;<br>
        还有一点通常的作法，在form_unload事件中关闭打开的设备，以释放系统资源。<br>
        Private Sub Form_Unload(Cancel As Integer)<br> 
        MMControl1.Command = "close"<br> 
        End Sub<br> 
        有一点要注意，一段音乐播放到未尾时要用command="prev"命令重新回到开始。否则不能重复播放。下面是一个实例：<br>
        Private Sub Form_Load()<br> 
        MMControl1.Notify = False<br> 
        MMControl1.Wait = True<br> 
        MMControl1.Shareable = False<br> 
        MMControl1.DeviceType = "Waveaudio"<br> 
        MMControl1.FileName = "e:\dmt\back.wav"<br> 
        MMControl1.Command = "open"<br> 
        MMControl1.Command = "play"<br> 
        Timer1.Enabled = True<br> 
        Timer1.Interval = 65535<br> 
        End Sub<br> 
        <br>
        Private Sub Form_Unload(Cancel As Integer)<br> 
        MMControl1.Command = "close"<br> 
        End Sub<br> 
        <br>
        Private Sub Timer1_Timer()<br> 
        MMControl1.Command = "play"<br> 
        MMControl1.Command = "prev"<br> 
        End Sub</font> 
        <p align="center">
        <br>
        &lt; <a href="020301.htm">上一页</a>--<a href="http://www.xxby.com" target="_blank">华生小屋</a>--<a href="020303.htm">下一页</a>    
        &gt;<br>
      </td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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