《鼠标键盘菜单》PPT课件

《《鼠标键盘菜单》PPT课件》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第10章键盘事件、鼠标事件、菜单主要内容：键盘与鼠标事件过程KeyPress事件KeyDown、KeyUp鼠标事件鼠标光标的形状菜单程序设计VB中的菜单菜单编辑器建立菜单弹出式菜单KeyPress事件1、Keypress事件:此事件当用户按下和松开一个键盘上的键时发生。格式：PrivateSub控件名_KeyPress([indexAsInteger,]keyasciiAsInteger)说明：可用于窗体、文本框、复选框、组合框、命令按钮、列表框、图片框、滚动条等具有焦点的控件。Keyascii参数的值是被按下的

2、键的ASCII值。它是以值为准，比如：按下大键盘上的1和按下小键盘上的1都返回1的Ascii码，按下同一个键，但在大小写不同时，返回不同的值。一个窗体仅在它没有可视的且可获得焦点的控件时才能接收该事件。但是当窗体的KeyPreview属性被设置为True时，窗体是可以接收该事件的，但不影响其它控件的KeyPress事件的接收。例如：窗体上有一个文本框，当KeyPreview属性被设置为True时，在文本框中输入数据，每一次按键，都会先触发窗体的Keypress事件，再触发控件的Keypress事件。一个KeyPr

3、ess事件可以引用任何可打印的键盘字符可使用Chr(KeyAscii)表达式将keyascii参数转变为一个字符。使用这下面命令修改KeyAscii参数的值将改变所显示的字符：KeyAscii=Asc(char)此事件不能识别下面的这些键：功能键（F1-F12）、编辑键(指INSERT键、DELETE键或BACKSPACE键)、定位键以及任何键和键盘换档键的组合等。KeyPress事件2、举例：例1:将输入到文本框中的字符转换为大写。PrivateSubText1_KeyPress(KeyAsciiAsInteg

4、er)KeyAscii=Asc(UCase(Chr(KeyAscii)))EndSubKeyDown、KeyUp事件1、KeyDown和KeyUp事件：是当一个对象具有焦点时按下(KeyDown)或松开(KeyUp)一个键时发生的。格式：PrivateSub控件名_KeyDown([indexAsInteger,]keycodeAsInteger,shiftAsInteger)PrivateSub控件名_KeyUp([indexAsInteger,]keycodeAsInteger,shiftAsInteger)

5、说明：[indexAsInteger,]：当控件为控件数组时有此参数。表示被触发控件的索引号。keycodeAsInteger：是一个键代码。它是一个Ascii码，但是它是以键为准，一个键一个码，例如：A和a是同一个值，以大写字母的Ascii值为准。由于是以键为准，所以，大键盘和小键盘上的数字键并不是同一值，例如：大键盘的1和小键盘的1不同值。对于有上下档的键，以下档键的值为准。shiftAsInteger：是在该事件发生时响应SHIFT,CTRL和ALT键的状态的一个整数。分别是1、2和4。例如，如果CTRL和

6、ALT这两个键都被按下，则shift的值为6。KeyDown、KeyUp事件例：当按下“<”和“>”键时，窗体上的滚动条的滚动块被移动。PrivateSubHScroll1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=188AndHScroll1.Value>HScroll1.MinThenHScroll1.Value=HScroll1.Value-HScroll1.LargeChangeEndIfIfKeyCode=190AndHScroll1.Value

7、”，并且要考虑是否滚动框处于最高或最低的位置，然后进行滚动条值属性的修改，在当前Value值上增加或者减少。例：当按下Alt+P显示照片，当放手时关闭显示。PrivateSubForm_Load()Form1.KeyPreview=TrueEndSubPrivateSubForm_KeyDown(KeyCodeAs

8、Integer,ShiftAsInteger)IfKeyCode=80AndShift=4ThenImage1.Visible=TrueEndIfEndSubPrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=80AndShift=4ThenImage1.Visible=FalseEndIfEndS