VB程序设计第十一章.ppt

上传人:san****019 文档编号:17229255 上传时间:2020-11-15 格式:PPT 页数:11 大小:324.55KB
收藏 版权申诉 举报 下载
VB程序设计第十一章.ppt_第1页
第1页 / 共11页
VB程序设计第十一章.ppt_第2页
第2页 / 共11页
VB程序设计第十一章.ppt_第3页
第3页 / 共11页
资源描述:

《VB程序设计第十一章.ppt》由会员分享,可在线阅读,更多相关《VB程序设计第十一章.ppt(11页珍藏版)》请在装配图网上搜索。

1、Visual Basic程序设计教程 内蒙古科技大学实践训练中心 第十一章 键盘和鼠标事件过程 11.1 键盘事件 键盘事件 : KeyPress 事件:用户按下并释放一个能产生一个能产生 ASCII码的键时 被触发; KeyUp 事件:用户释放任一键时被触发; KeyDown 事件:用户按下任一个键时被触发; 11.2 KeyPress事件 引发 KeyPress事件的按键: 数字、大小写字母、 Enter、 Backspace、 Esc、 Tab等键。 如文本框 Text1的 KeyPress事件如下: Private Sub Text1_KeyPress(Keyascii as inte

2、ger) End Sub “a”的 ASCII值为 97; “ A”的 ASCII值为 65; 11.3 KeyUp和 KeyDown事件 当控制焦点在某个对象上时,按下键盘上的任一键,便会引发该对象的 KeyDown事件,释放按键便会触发 KeyUp事件。 如文本框 Text1的 KeyDown事件过程: Private Sub Text1_KeyDown(KeyCode as integer,Shift As integer) End Sub 如文本框 Text1的 KeyUp事件过程: Private Sub Text1_KeyUp(KeyCode as integer,Shift As

3、 integer) End Sub 参数: KeyCode: 为用户所操作的键的扫描码;即键的物理位置相同则 KeyCode参 数值相同( ” A“和 ” a“; 5和等);但大键盘的数字和小键盘的数字的 KeyCode不 一样; 11.3 KeyUp和 KeyDown事件 参数: Shift: 根据是否同时按下 Shift、 Ctrl和 Alt键返回的一个整数; 整数值 符号常量 说明 1 vbShiftMask 按下 Shift键 2 vbCtrlMask 按下 Ctrl键 4 vbAltMask 按下 Alt键 0 没有按下 Shift、 Ctrl、 Alt键 7 同时按下 Shift、

4、 Ctrl、 Alt键 键盘三个事件的触发顺序: KeyDown、 KeyPress、 KeyUp; 一般情况下,控件可以触发这三个事件; 但窗体必须将 “ KeyPreiew”属性值设为 True;则首先窗体的 KeyPress、 KeyUp和 KeyDown; 11.3 KeyUp和 KeyDown事件 例 11-1设计一个应用程序。在窗体上建立一个文本框和一个标签,当从键盘 向文本框英文字符时,将其转换成大写字母显示在标签中 。 解题思路 : 在 text1的 keypress事件中,将键盘的 asc码转化为相应的字符, 再将其转化为大写。 Private Sub Text1_KeyPr

5、ess(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii) Label1.Caption = Label1.Caption Alt键被按下的常数为 vbAltMask Private Sub Form_KeyDown(KeyCode as integer,Shift as integer) If keycode=vbkeyF5 and Shift=vbAltMask then end end if end sub 11.4 鼠标事件 MouseDown事件; MouseUp事件; MouseMove事件; 以窗体

6、 Form为例: Private Sub Form_MouseDown(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseUp(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseMove(Button as integer, Shift as Integer, x as single,y as single) end sub 11

7、.4 鼠标事件 参数: Button参数 : 参数值 符号常量 说明 1 vbLeftButton 按下鼠标左键 2 vbRightButton 按下鼠标右键 4 vbMiddleButton 按下鼠标中键 Shift:同键盘的 Shift参数; x、 y:对应于鼠标指针的位置; 鼠标事件出发顺序 : MouseDown、 Click、 MouseUp 11.4 鼠标事件 例 11-4利用鼠标画圆 。 方法:利用 MuseDown事件记录圆心的坐标,用 MouseUp事件记录半径端点的 坐标,计算半径,再利用 Circle方法在窗体上画圆。 例 11-5显示鼠标指针所指的位置 。 方法:利用窗体的 MouseMove事件,将事件的鼠标坐标 x、 y显示在文本框 内。

展开阅读全文
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

相关资源

更多
正为您匹配相似的精品文档
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!