VisualBasic界面设计(下)

VisualBasic界面设计(下)

ID:36872491

大小:593.00 KB

页数:104页

时间:2019-05-10

VisualBasic界面设计(下)_第1页
VisualBasic界面设计(下)_第2页
VisualBasic界面设计(下)_第3页
VisualBasic界面设计(下)_第4页
VisualBasic界面设计(下)_第5页
资源描述:

《VisualBasic界面设计(下)》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、第3章VisualBasic界面设计(下)制作者:钱瑛2008-01-20江南大学信息工程学院计算机基础部本章的学习重点和难点键盘鼠标事件和拖放菜单设计常用ActiveX控件介绍图形和多媒体制作合理选用对象和窗体布局键盘与鼠标事件过程键盘事件过程对于接受文本输入的控件,如:文本框、简单组合框和下拉组合框等,需要控制和处理输入的文本,常常需要对键盘事件进行编程KeyPress、KeyDown和KeyUp键盘事件只用于能够聚焦的对象,如窗体、文本框、命令按钮、选项按钮、复选框、组合框、列表框、图片框、滚动条等控

2、件对于窗体,仅当它上面没有可视和有效的控件或KeyPreview属性被设置为True时才能接收键盘事件键盘与鼠标事件过程键盘事件过程KeyPress事件当用户按下和松开一个能产生Ascii码的键时发生KeyPress事件。严格地说,当按下某个能产生Ascii码的键时,所触发的是当前得到焦点的那个对象的KeyPress事件PrivateSub对象名_KeyPress(KeyAsciiAsInteger) …… EndSub参数KeyAscii就是该过程接受到的按键的Ascii码按下大写字母“B”,KeyAsci

3、i的值为66 按下小写字母“b”,KeyAscii的值为98键盘与鼠标事件过程键盘事件过程KeyPress事件在键盘上的按键并非都能产生Ascii码,如:方向键←、→、↑、↓、功能键F1~F12、Shift、Ctrl、Alt键就不产生Ascii码,不会引发KeyPress事件,而数字、大小写字母等可打印的键盘字符、Enter、BackSpace、Esc、Tab等都可以KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时是非常有用的,它可立即测试击键的有效性或在字符输入时对其进行格式

4、处理改变keyascii参数的值会改变所显示的字符[*例题15]、[*例题16]*例题15编写程序,实现对于用户在文本框中输入的字母,不管大小写,始终以大写显示在文本框中分析:小写字母按键的Ascii值的范围——[97,122]小写转换成大写字符——小写字母与大写字母的Ascii差值为32输入时立即转换——编写文本框的KeyPress事件过程PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii>=97AndKeyAscii<=122Then'判断是否是小写

5、字母KeyAscii=KeyAscii–32'小写转换成大写EndIfEndSub*例题16在默认情况下,控件的键盘事件优先于窗体的键盘事件,因此在发生键盘事件时,总是激活目前得到焦点的控件的键盘事件;若窗体的KeyPreview属性被设置为True(默认为False),则不管目前谁得到焦点,总是先触发窗体键盘事件,后触发焦点控件的键盘事件,否则不会触发窗体的键盘事件注意程序中当窗体的KeyPreview属性被设置为True或默认值False,键盘事件的不同触发次序设窗体的KeyPreview属性被设置默认值

6、False,程序运行时,通过命令按钮切换为True,在窗体和文本框的KeyPress事件过程中编写了输出标志信息例3-1PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimxAsIntegerIfKeyAscii=13ThenIfLen(Text1.Text)=1AndText1.Text>="a"And_Text1.Text<="z"Thenx=Asc(Text1.Text)Ifx<>Asc("z")ThenText2.Text=Chr(x+1)ElseText2.T

7、ext=Chr(x+1-26)ElseText2.Text="数据非法!"EndIfEndIfEndSub键盘与鼠标事件过程键盘事件过程KeyUp和KeyDown事件过程和KeyPress事件不同,KeyUp和KeyDown事件返回的是键盘的直接状态,即KeyUp和KeyDown事件返回的是“键”,而KeyPress事件返回的是“字符”的Ascii码。当用户按下键盘上的任意一个键时,就会触发焦点对象的KeyDown事件,当释放按键,就会触发KeyUp事件键盘与鼠标事件过程键盘事件过程KeyDown事件过程Pr

8、ivateSub对象名_KeyDown(keycodeAsInteger,_shiftAsInteger)……EndSubKeyUp事件过程PrivateSub对象名_KeyUp(keycodeAsInteger,_shiftAsInteger)……EndSub键盘与鼠标事件过程键盘事件过程KeyUp和KeyDown事件过程KeyCode参数是用户按下的那个键的扫描码(键盘上的每一个按键都一个扫描码

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。