slide0042.htm
来自「可作为课程设计或者毕业设计 也可以作为学校精品课程网站使用」· HTM 代码 · 共 167 行
HTM
167 行
<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:p="urn:schemas-microsoft-com:office:powerpoint"
xmlns:oa="urn:schemas-microsoft-com:office:activation"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=us-ascii">
<meta name=ProgId content=PowerPoint.Slide>
<meta name=Generator content="Microsoft PowerPoint 11">
<link id=Main-File rel=Main-File href="../z12.htm">
<link rel=Preview href=preview.wmf>
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
p\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
v\:textbox {display:none;}
</style>
<![endif]-->
<title>第十二章
响应鼠标和键盘事件</title>
<meta name=Description content=2008-3-24>
<link rel=Stylesheet href="master08_stylesheet.css">
<![if !ppt]>
<style media=print>
<!--.sld
{left:0px !important;
width:6.0in !important;
height:4.5in !important;
font-size:107% !important;}
-->
</style>
<script src=script.js></script><script><!--
if( !IsNts() ) Redirect( "PPTSld" );
//--></script><!--[if vml]><script>g_vml = 1;
</script><![endif]--><![endif]><o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="59"/>
</o:shapelayout>
</head>
<body lang=ZH-CN style='margin:0px;background-color:black'
onclick="DocumentOnClick()" onresize="_RSW()" onload="LoadSld()"
onkeypress="_KPH()">
<div id=SlideObj class=sld style='position:absolute;top:0px;left:0px;
width:534px;height:400px;font-size:16px;background-color:#E3DDBB;background-image:
url("master08_image001.jpg");clip:rect(0%, 101%, 101%, 0%);visibility:hidden'><p:slide
coordsize="720,540"
colors="#ffffff,#000000,#808080,#482400,#dfd6c3,#d69b80,#993300,#666600"
masterhref="master08.xml">
<p:shaperange href="master08.xml#_x0000_s70657"/><![if !ppt]><p:shaperange
href="master08.xml#_x0000_s70658"/><![if !vml]><img border=0
v:shapes="_x0000_s70658" src="master08_image003.jpg" style='position:absolute;
top:0%;left:0%;width:7.49%;height:100.0%'><![endif]><p:shaperange
href="master08.xml#_x0000_s70660"/><p:shaperange
href="master08.xml#_x0000_s70661"/><![endif]><v:shapetype id="_x0000_t202"
coordsize="21600,21600" o:spt="202" path="m,l,21600r21600,l21600,xe">
<v:stroke joinstyle="miter"/>
<v:path gradientshapeok="t" o:connecttype="rect"/>
</v:shapetype><v:shape id="_x0000_s60421" type="#_x0000_t202" style='position:absolute;
left:60pt;top:30pt;width:654pt;height:462.125pt;mso-wrap-distance-left:0;
mso-wrap-distance-right:0' filled="f" fillcolor="#dfd6c3 [4]" stroked="f"
strokecolor="black [1]">
<v:shadow color="gray [2]"/>
<v:textbox style='mso-fit-shape-to-text:t'/>
</v:shape>
<div v:shape="_x0000_s60421" class=O>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:8.25%;left:9.36%;width:21.16%;height:6.0%'><nobr><span lang=EN-US
style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";font-size:117%;mso-fareast-language:
ZH-CN'><b>2</b></span><span style='font-family:SimSun;mso-ascii-font-family:
SimSun;mso-fareast-font-family:SimSun;font-size:117%'><b>.</b></span><span
lang=EN-US style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";font-size:117%;mso-fareast-language:
ZH-CN'><b>shift</b></span><span style='font-family:SimSun;mso-ascii-font-family:
SimSun;mso-fareast-font-family:SimSun;font-size:117%'><b>参数</b></span><span
style='font-family:"Arial Unicode MS";mso-fareast-font-family:"Arial Unicode MS";
font-size:117%;display:none'><b> </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:16.0%;left:9.36%;width:88.95%;height:19.0%'><span lang=EN-US
style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>shift<span
style='mso-tab-count:1;width:4.15%'> </span></b></span><span style='font-family:
SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:SimSun'><b>表示是在该事件发生时响应</b></span><span
lang=EN-US style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>SHIFT</b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>、</b></span><span lang=EN-US style='font-family:"Times New Roman";
mso-ascii-font-family:"Times New Roman";mso-fareast-font-family:"Arial Unicode MS";
mso-fareast-language:ZH-CN'><b>CTRL </b></span><span style='font-family:SimSun;
mso-ascii-font-family:SimSun;mso-fareast-font-family:SimSun'><b>和</b></span><span
style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS"'><b> ALT </b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>键的状态,它是一个整数。其含义与上一节中</b></span><span
lang=EN-US style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>MouseMove</b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>、</b></span><span lang=EN-US style='font-family:"Times New Roman";
mso-ascii-font-family:"Times New Roman";mso-fareast-font-family:"Arial Unicode MS";
mso-fareast-language:ZH-CN'><b>MouseDown</b></span><span style='font-family:
SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:SimSun'><b>、</b></span><span
lang=EN-US style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>MouseUp</b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>事件中的</b></span><span lang=EN-US
style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>shift</b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>参数完全相同。</b></span><span
style='font-family:"Arial Unicode MS";mso-fareast-font-family:"Arial Unicode MS";
display:none'><b> </b></span></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:36.75%;left:9.36%;width:87.45%;height:5.25%'><nobr><span style='font-family:
SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:SimSun'><b>例如:下例是用</b></span><span
lang=EN-US style='font-family:"Times New Roman";mso-ascii-font-family:"Times New Roman";
mso-fareast-font-family:"Arial Unicode MS";mso-fareast-language:ZH-CN'><b>Shift</b></span><span
style='font-family:SimSun;mso-ascii-font-family:SimSun;mso-fareast-font-family:
SimSun'><b>参数判断是否按下了字母的大写形式。</b></span><span
style='font-family:"Arial Unicode MS";mso-fareast-font-family:"Arial Unicode MS";
display:none'><b> </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:43.25%;left:9.36%;width:72.09%;height:5.5%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b>Private Sub
Text1_KeyDown(KeyCode As </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:50.24%;left:9.36%;width:66.1%;height:5.5%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b><span
style='mso-spacerun:yes'> </span>Integer,
Shift As Integer) </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:57.25%;left:9.36%;width:78.08%;height:5.5%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b><span
style='mso-spacerun:yes'> </span>If KeyCode = vbKeyA And Shift = 1 Then
</b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:64.25%;left:9.36%;width:79.58%;height:5.25%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b><span
style='mso-spacerun:yes'> </span></b></span><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";font-size:92%;mso-fareast-language:ZH-CN'><b>MsgBox
"You pressed the uppercase A key." </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:71.0%;left:9.36%;width:12.17%;height:5.5%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b>End if </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"130 0 0";position:absolute;
top:78.0%;left:9.36%;width:14.23%;height:5.5%'><nobr><span lang=EN-US
style='font-family:"Courier New";mso-ascii-font-family:"Courier New";
mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b>End Sub </b></span></nobr></div>
<div style='mso-line-spacing:"130 0 0";position:absolute;top:85.75%;
left:9.36%;width:88.95%;height:4.75%'><span style='font-family:SimSun;
mso-fareast-font-family:SimSun;mso-special-format:lastCR;display:none'><b> </b></span></div>
</div>
</p:slide></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?