slide0041.htm
来自「可作为课程设计或者毕业设计 也可以作为学校精品课程网站使用」· HTM 代码 · 共 158 行
HTM
158 行
<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]>
</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_s59396" type="#_x0000_t202" style='position:absolute;
left:66pt;top:24pt;width:600pt;height:240.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><v:shape id="_x0000_s59397" type="#_x0000_t202" style='position:absolute;
left:60pt;top:300pt;width:642pt;height:194.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_s59396" class=O>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:5.25%;left:10.11%;width:76.02%;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:"100 10 0";position:absolute;
top:11.0%;left:10.11%;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><span
style='mso-spacerun:yes'>
</span>Integer, Shift As Integer) </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 50 0";position:absolute;
top:19.0%;left:10.11%;width:54.11%;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 Then </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 50 0";position:absolute;
top:27.0%;left:10.11%;width:71.72%;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>MsgBox "You
pressed the A key.</b></span><span lang=EN-US style='mso-ascii-font-family:
"Courier New";mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b>“</b></span><span
style='mso-bidi-font-family:"Courier New"'><span lang=EN-US style='font-family:
SimSun;mso-ascii-font-family:"Courier New";mso-fareast-font-family:SimSun;
mso-fareast-language:ZH-CN;display:none'><b> </b></span></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 50 0";position:absolute;
top:35.0%;left:10.11%;width:20.22%;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>End if </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 50 0";position:absolute;
top:43.0%;left:10.11%;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><span
lang=EN-US style='font-family:SimSun;mso-fareast-font-family:SimSun;
mso-fareast-language:ZH-CN;mso-special-format:lastCR;display:none'><b> </b></span></nobr></div>
</div>
<div v:shape="_x0000_s59397" class=O>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:56.25%;left:9.36%;width:76.02%;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:"100 10 0";position:absolute;
top:62.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><span
style='mso-spacerun:yes'>
</span>Integer, Shift As Integer) </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:68.0%;left:9.36%;width:82.02%;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<span
style='mso-spacerun:yes'> </span>KeyCode = vbKey1 And shift=1<span
style='mso-spacerun:yes'> </span>Then </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:73.75%;left:9.36%;width:71.72%;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>MsgBox "You
pressed the ! key.</b></span><span lang=EN-US style='mso-ascii-font-family:
"Courier New";mso-bidi-font-family:"Courier New";mso-fareast-language:ZH-CN'><b>“</b></span><span
style='mso-bidi-font-family:"Courier New"'><span lang=EN-US style='font-family:
SimSun;mso-ascii-font-family:"Courier New";mso-fareast-font-family:SimSun;
mso-fareast-language:ZH-CN;display:none'><b> </b></span></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:79.75%;left:9.36%;width:18.16%;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>End if </b></span></nobr></div>
<div style='text-align:justify;mso-line-spacing:"100 10 0";position:absolute;
top:85.75%;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><span
lang=EN-US style='font-family:SimSun;mso-fareast-font-family:SimSun;
mso-fareast-language:ZH-CN;mso-special-format:lastCR;display:none'><b> </b></span></nobr></div>
</div>
</p:slide></div>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?