鼠标键盘菜单.pptVIP

第10章 键盘事件、鼠标事件、菜单 主要内容： 键盘与鼠标事件过程 KeyPress事件 KeyDown、KeyUp 鼠标事件 鼠标光标的形状 菜单程序设计 VB中的菜单 菜单编辑器 建立菜单 弹出式菜单 KeyPress事件 1、Keypress事件:此事件当用户按下和松开一个键盘上的键时发生。 格式：Private Sub 控件名_KeyPress([index As Integer,]keyascii As Integer) 说明： 可用于窗体、文本框、复选框、组合框、命令按钮、列表框、图片框、滚动条等具有焦点的控件。 Keyascii参数的值是被按下的键的ASCII值。它是以值为准，比如：按下大键盘上的1和按下小键盘上的1都返回1的Ascii码，按下同一个键，但在大小写不同时，返回不同的值。 一个窗体仅在它没有可视的且可获得焦点的控件时才能接收该事件。但是当窗体的 KeyPreview 属性被设置为 True时，窗体是可以接收该事件的，但不影响其它控件的KeyPress事件的接收。例如：窗体上有一个文本框，当 KeyPreview 属性被设置为 True时，在文本框中输入数据，每一次按键，都会先触发窗体的Keypress事件，再触发控件的Keypress事件。 一个 KeyPress 事件可以引用任何可打印的键盘字符 可使用Chr(KeyAscii)表达式将 keyascii 参数转变为一个字符。 使用这下面命令修改KeyAscii参数的值将改变所显示的字符：KeyAscii = Asc(char) 此事件不能识别下面的这些键：功能键（F1-F12）、编辑键(指 INSERT 键、DELETE 键或 BACKSPACE 键)、定位键以及任何键和键盘换档键的组合等。 KeyPress事件 2、举例： 例1:将输入到文本框中的字符转换为大写。 Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub KeyDown、KeyUp事件 1、KeyDown和KeyUp事件：是当一个对象具有焦点时按下 ( KeyDown ) 或松开 ( KeyUp ) 一个键时发生的。 格式： Private Sub 控件名_KeyDown([index As Integer,]keycode As Integer, shift As Integer) Private Sub 控件名_KeyUp([index As Integer,]keycode As Integer, shift As Integer) 说明： [index As Integer,]：当控件为控件数组时有此参数。表示被触发控件的索引号。 keycode As Integer：是一个键代码。 它是一个Ascii码，但是它是以键为准，一个键一个码，例如：A和a是同一个值，以大写字母的Ascii值为准。 由于是以键为准，所以，大键盘和小键盘上的数字键并不是同一值，例如：大键盘的1和小键盘的1不同值。 对于有上下档的键，以下档键的值为准。 shift As Integer：是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。分别是1、2 和 4。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。 KeyDown、KeyUp事件 例：当按下“”和“”键时，窗体上的滚动条的滚动块被移动。 Private Sub HScroll1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 188 And HScroll1.Value HScroll1.Min Then HScroll1.Value = HScroll1.Value - HScroll1.LargeChange End If If KeyCode = 190 And HScroll1.Value HScroll1.Max Then HScroll1.Value = HScroll1.Value + HScroll1.LargeChange End If End Sub 在程序中，首先要测试按下的键是不是“”和“”，并且要考虑是否滚动框处于最高或最低的位置，然后进行滚动条值属性的修改，在当前Value值上增加或者减少。 例：当按下Alt+P显示照片，当放手时关闭显示。 Private Sub Form_Load() Form1.KeyPreview = True End Sub Private Sub Form_KeyDow