01_9_13_22.asp.html

来自「有用的VC教程,包括编程思想编程技巧程序效率等方面的指导」· HTML 代码 · 共 257 行 · 第 1/2 页

{</td></tr></table><table width=100% ><tr><td class=a14>
	// TODO: Add your command handler code here</td></tr></table><table width=100% ><tr><td class=a14>
	OnOK（）；//退出应用程序</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
 为菜单&ldquo;屏幕控制&rdquo;添加菜单项&ldquo;满屏&rdquo;，其响应函数为OnFully（），具体代码如下： </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
void CPlayer：：OnFully() </td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
	// TODO: Add your command handler code here</td></tr></table><table width=100% ><tr><td class=a14>
	 m_ActiveMovie.Pause ();//暂停播放</td></tr></table><table width=100% ><tr><td class=a14>
	 m_ActiveMovie.SetFullScreenMode(true);//设置满屏模式</td></tr></table><table width=100% ><tr><td class=a14>
	 m_ActiveMovie. Run();//继续播放</td></tr></table><table width=100% ><tr><td class=a14>
	 m_ActiveMovie.SetMovieWindowSize(SW_SHOWMAXIMIZED);</td></tr></table><table width=100% ><tr><td class=a14>
    //设置窗口为最大</td></tr></table><table width=100% ><tr><td class=a14>
}  </td></tr></table><table width=100% ><tr><td class=a14>
 </td></tr></table><table width=100% ><tr>
      <td class=a14> ActiveMovie控件还提供了控制音量的两个函数GetVolume()和SetVolume()，只要在程序中调用这两个函数，便可以达到控制音量的目的。为&ldquo;音量控制&rdquo;添加&ldquo;增加&rdquo;和&ldquo;减小&rdquo;两个菜单项，其响应函数分别为： 
      </td>
    </tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
void CVcdDlg::OnAdd() </td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
	// TODO: Add your command handler code here</td></tr></table><table width=100% ><tr><td class=a14>
	long m_valume=	m_ActiveMovie.GetVolume ();</td></tr></table><table width=100% ><tr><td class=a14>
     //获取当前音量</td></tr></table><table width=100% ><tr><td class=a14>
        m_ActiveMovie.Pause ();</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.SetVolume(m_valume+100);</td></tr></table><table width=100% ><tr><td class=a14>
    //用于增加音量</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.Run ();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
void CVcdDlg::OnReducing() </td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
	// TODO: Add your command handler code here</td></tr></table><table width=100% ><tr><td class=a14>
	long m_valume=	m_ActiveMovie.GetVolume ();</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.Pause ();</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.SetVolume(m_valume-100);</td></tr></table><table width=100% ><tr><td class=a14>
    //用于减小音量</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.Run ();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
  </td></tr></table><table width=100% ><tr><td class=a14>
 在声卡的控制菜单上给出了&ldquo;静音&rdquo;操作，那么能否为我们自己制作的媒体播放器加上 &ldquo;静音&rdquo;功能呢？回答是肯定的。虽然ActiveMovie控件并没有直接提供&ldquo;静音&rdquo;函数，但可以通过控制函数SetVolume()的参数来实现&ldquo;静音&rdquo;的效果。笔者经过反复试验，当 SetVolume()的参数设为-4000使效果比较理想。要实现静音功能，应先为&ldquo;音量控制&rdquo;加入菜单项&ldquo;静音&rdquo;，并添加消息响应函数OnMute（），代码如下： </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
void CVcdDlg::OnMute() </td></tr></table><table width=100% ><tr><td class=a14>
{</td></tr></table><table width=100% ><tr><td class=a14>
	// TODO: Add your command handler code here	</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.Pause ();</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.SetVolume(-4000);</td></tr></table><table width=100% ><tr><td class=a14>
	m_ActiveMovie.Run ();</td></tr></table><table width=100% ><tr><td class=a14>
}</td></tr></table><table width=100% ><tr><td class=a14>
</td></tr></table><table width=100% ><tr><td class=a14>
 编译运行本程序，便可以用自制的媒体播放器欣赏光盘上的音频或视频节目了。 </td></tr></table><table width=100% ><tr><td class=a14>
</td></tr>
</table><br>
<style>.a1{font-size:1}</style>
<table width=100% ><tr><td align=right>（网页编辑：<a href='mailto:[e-mail]'>风之翼</a>）</td></tr></table>
</td><td class=a1 bgcolor=#f46240>&nbsp;</td>
<td valign=top width=138 align=right><table width=98% ><tr><td>
<form action='/app/gsearch1.asp' name=pdn><table width=100% ><tr><td>应用与方案
频道全文检索</td></tr>
<tr><td><input type="text" name="textfile" size=15 value=频道内检索 onfocus="this.value=''">
	<input border=0 src="../../../../../images/jian.gif" name="I1" type="image" align=absmiddle>
</td></tr>
</table>
</form>
<form name=srch action="/search/which.asp" method=post onsubmit="JavaScript:return chk()">
<table width=100% >
  <tr><td><select size="1" name="func">
  <option selected value="2">主题检索</option>
  <option value="1">周报全文检索</option>
  <option value="3">模糊词检索</option>
</select></td></tr>
  <tr><td><input type="text" name="SrchStr" size=15 value="输入待检索的词"
  onfocus="this.value=''">
  <input src="../../../../../images/jian.gif" name="I1" type="image" align="absMiddle" border=0>
  </td></tr>
</table>
<script language="JavaScript">
function chk()
{if (!document.srch.SrchStr.value){
alert("请输入需检索的词！");	
document.srch.SrchStr.focus();
return false;
}
else{if (document.srch.SrchStr.value.length>30){
alert("检索的词请不要超过30个字符！");
document.srch.SrchStr.focus();
return false;
}
}
}
</script></form>
<table width=100% ><tr><td class=f colspan=2><b>相关文章</b></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_21.asp.html'>用DirectDraw编写动画程序</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_20.asp.html'>在对话框中动态显示位图</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_19.asp.html'>在VC中自建操作BMP位图文件的类</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_18.asp.html'>深入浅出屏幕保护程序编程</a></td></tr>
<tr><td valign=top><IMG SRC=../../../../../img2/jiao.gif></td><td><a href='01_9_13_17.asp.html'>自己动手制作一款简洁实用的图片浏览器</a></td></tr>
</table>
</td></tr></table></td></tr></table><br>
<table align=center width=680><tr><td align=right>
<form name=mail method=post action='/pub/subMail.asp' onsubmit='JavaScript: return chkField(this)'>
<INPUT type='hidden' name='rec' value='24118'>
您的姓名：<INPUT type="text" name=myName size=10>&nbsp;
您朋友的E-mail：<INPUT type="text" name=friendMail size=10>&nbsp;
<INPUT type="submit" value="推荐给好友">
</form>
</td></tr>
<tr><td align=right>
<b>[<a href="javascript:window.close()">关闭窗口</a>]</b>
</td></tr>
</table>
<script language="javascript">
function chkField(fmObj)
{if (!fmObj.friendMail.value){
	alert("请输入您朋友的E-mail！");
	fmObj.friendMail.focus();
	return false;
}
	return true;
}
</script>
<table align=center width=680>
<tr><td><hr size=1 width=660 color=#f46240></td></tr>
</table><br>
<p align=center>Copyright(C) ccw.com.cn,All rights reserved</p>
<p align=center><b>中国计算机世界出版服务公司版权所有</b></p>