《鼠标键盘菜单.ppt》由会员分享，可在线阅读，更多相关《鼠标键盘菜单.ppt（14页珍藏版）》请在三一文库上搜索。
1、第10章 键盘事件、鼠标事件、菜单,主要内容： 键盘与鼠标事件过程 KeyPress事件 KeyDown、KeyUp 鼠标事件 鼠标光标的形状 菜单程序设计 VB中的菜单 菜单编辑器 建立菜单 弹出式菜单,KeyPress事件,1、Keypress事件:此事件当用户按下和松开一个键盘上的键时发生。 格式：Private Sub 控件名_KeyPress(index As Integer,keyascii As Integer) 说明： 可用于窗体、文本框、复选框、组合框、命令按钮、列表框、图片框、滚动条等具有焦点的控件。 Keyascii参数的值是被按下的键的ASCII值。它是以值为准，比如：
2、按下大键盘上的1和按下小键盘上的1都返回1的Ascii码，按下同一个键，但在大小写不同时，返回不同的值。 一个窗体仅在它没有可视的且可获得焦点的控件时才能接收该事件。但是当窗体的 KeyPreview 属性被设置为 True时，窗体是可以接收该事件的，但不影响其它控件的KeyPress事件的接收。例如：窗体上有一个文本框，当 KeyPreview 属性被设置为 True时，在文本框中输入数据，每一次按键，都会先触发窗体的Keypress事件，再触发控件的Keypress事件。 一个 KeyPress 事件可以引用任何可打印的键盘字符,可使用Chr(KeyAscii)表达式将 keyascii
3、参数转变为一个字符。 使用这下面命令修改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、KeyDow
4、n和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：是一个键代码。 它是一个A
5、scii码，但是它是以键为准，一个键一个码，例如：A和a是同一个值，以大写字母的Ascii值为准。 由于是以键为准，所以，大键盘和小键盘上的数字键并不是同一值，例如：大键盘的1和小键盘的1不同值。 对于有上下档的键，以下档键的值为准。 shift As Integer：是在该事件发生时响应 SHIFT ,CTRL 和 ALT 键的状态的一个整数。分别是1、2 和 4。例如，如果 CTRL 和 ALT 这两个键都被按下，则 shift 的值为 6。,KeyDown、KeyUp事件,例：当按下“”键时，窗体上的滚动条的滚动块被移动。 Private Sub HScroll1_KeyDown(Key
6、Code 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 ”，并且要考虑是否滚动框处于最高或最低的位置，然后进行滚动条值属性的修改，在当前Value值上增加或者减少。,例：当按下Alt+P显示照片，当放手时关闭显示。 Private Sub Form_Load() Form1.Key
7、Preview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 80 And Shift = 4 Then Image1.Visible = True End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 80 And Shift = 4 Then Image1.Visible = False End If End Sub,鼠标事件,1、鼠
8、标的事件 按下鼠标事件： 格式：Private Sub Form_MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Single) 松开鼠标事件： 格式：Private Sub Form_MouseUp (Button As Integer, _ Shift As Integer, X As Single, Y As Single) 移动鼠标事件： 格式：Private Sub Form_MouseMove (Button As Integer, _ Shift As Integer, X As Single
9、, Y As Single) 上面的事件用于大多数控件，例如：窗体、复选框、命令按钮、单选按钮、框架、文本框、目录框、文件框、图像框、图片框、标签。,鼠标事件,2、鼠标事件的参数： Button:事件发生时触发事件的鼠标键的值，此参数有3个值: 常数（按钮） 值 描述 vbLeftButton 1 左按钮被按下 vbRightButton 2 右按钮被按下 vbMiddleButton 4 中间按钮被按下 Shift:鼠标触发事件的同时键盘上Ctrl、Shift、Alt键的状态。此参数的值和Keydown、Keyup事件中的Shift参数一样的解释，可以组合。 常数（换挡） 值 描述 vbSh
10、iftMask 1 SHIFT 键被按下 vbCtrlMask 2 CTRL 键被按下 vbAltMask 4 ALT 键被按下 x、y:鼠标触发事件时鼠标的坐标。,鼠标事件,3、举例： 例1：在鼠标的箭头所指过的地方画上彩色小圆圈。 画以x,y为圆心画出指定色号的圆： 窗体名.Circle (x,y),半径,色号 此程序应该完成的是：当鼠标移动时，使用Circle方法绘制圆。圆的圆心为鼠标所指位置。 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.C
11、ircle (X, Y), 100, RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256) End Sub,VB中的菜单,1、菜单分类： 下拉式菜单：典型的窗口式菜单 弹出式菜单：鼠标器右键单击后弹出的快捷菜单,菜单编辑器,1、进入菜单编辑器 进入菜单编辑器有4种方法： 执行“工具”菜单中的“菜单编辑器”命令 使用热键Ctrl+E 使用工具栏中的“菜单编辑器”按钮 在设计阶段，在窗体上单击鼠标右键，出现的快捷菜单上有“菜单编辑器”命令 菜单编辑器分为3个区：上半部分为数据区，中间为编辑区，下半部分为菜单项显示区。,建立菜单,菜单编辑器的用法： 1、建立简单菜单：界面设计 2、编写菜单代码：首先在窗体的设计状态下，单击要编写代码的菜单项。,弹出式菜单,除了下拉式菜单，Windows还经常使用弹出式菜单，几乎在每个对象上单击鼠标器右键都会出现弹出式的快捷菜单。 建立弹出式菜单的步骤： 使用菜单编辑器编辑菜单，在主菜单中的菜单名的可见属性设置为false。 在需要弹出弹出式菜单的事件过程中使用PopupMenu方法 一般来说，在程序中，通常把PopupMenu方法放在对象的MouseDown事件中。此事件可以根据事件参数区分鼠标左右键的按下。 例：菜单,