第3章VisualBasic界面设计(下).pptVIP

第3章 Visual Basic界面设计（下） 制作者：钱瑛 本章的学习重点和难点 键盘鼠标事件和拖放 菜单设计 常用ActiveX控件介绍 图形和多媒体制作 合理选用对象和窗体布局 键盘与鼠标事件过程 键盘事件过程 对于接受文本输入的控件，如：文本框、简单组合框和下拉组合框等，需要控制和处理输入的文本，常常需要对键盘事件进行编程 KeyPress、KeyDown和KeyUp键盘事件只用于能够聚焦的对象，如窗体、文本框、命令按钮、选项按钮、复选框、组合框、列表框、图片框、滚动条等控件 对于窗体，仅当它上面没有可视和有效的控件或KeyPreview属性被设置为True时才能接收键盘事件 键盘与鼠标事件过程 键盘事件过程 KeyPress事件 当用户按下和松开一个能产生Ascii码的键时发生KeyPress事件。严格地说，当按下某个能产生Ascii码的键时，所触发的是当前得到焦点的那个对象的KeyPress事件 Private Sub 对象名_KeyPress(KeyAscii As Integer)……End Sub 参数KeyAscii就是该过程接受到的按键的Ascii码 按下大写字母“B”，KeyAscii的值为66按下小写字母“b”，KeyAscii的值为98 键盘与鼠标事件过程 键盘事件过程 KeyPress事件 在键盘上的按键并非都能产生Ascii码，如：方向键←、→、↑、↓、功能键F1~F12、Shift、Ctrl、Alt键就不产生Ascii码，不会引发KeyPress事件，而数字、大小写字母等可打印的键盘字符、Enter、BackSpace、Esc、Tab等都可以 KeyPress事件过程在截取TextBox或ComboBox控件所输入的击键时是非常有用的，它可立即测试击键的有效性或在字符输入时对其进行格式处理 改变keyascii参数的值会改变所显示的字符 [*例题15] 、[*例题16] *例题15 编写程序，实现对于用户在文本框中输入的字母，不管大小写，始终以大写显示在文本框中 分析： 小写字母按键的Ascii值的范围——[97，122] 小写转换成大写字符——小写字母与大写字母的Ascii差值为32 输入时立即转换——编写文本框的KeyPress事件过程 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 97 And KeyAscii = 122 Then 判断是否是小写字母 KeyAscii = KeyAscii – 32 小写转换成大写 End If End Sub *例题16 在默认情况下，控件的键盘事件优先于窗体的键盘事件，因此在发生键盘事件时，总是激活目前得到焦点的控件的键盘事件；若窗体的KeyPreview属性被设置为True(默认为False)，则不管目前谁得到焦点，总是先触发窗体键盘事件，后触发焦点控件的键盘事件，否则不会触发窗体的键盘事件 注意程序中当窗体的KeyPreview属性被设置为True或默认值False，键盘事件的不同触发次序 设窗体的KeyPreview属性被设置默认值False，程序运行时，通过命令按钮切换为True，在窗体和文本框的KeyPress事件过程中编写了输出标志信息 例3-1 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim x As Integer If KeyAscii = 13 Then If Len(Text1.Text) = 1 And Text1.Text = a And _ Text1.Text = z Then x = Asc(Text1.Text) If x Asc(z) Then Text2.Text = Chr(x + 1) Else Text2.Text = Chr(x + 1 - 26) Else Text2.Text = 数据非法! End If End If End Sub 键盘与鼠标事件过程 键盘事件过程 KeyUp和KeyDown事件过程 和KeyPress事件不同，KeyUp和KeyDown事件返回的是键盘的直接状态，即KeyUp和KeyDown事件返回的是“键”，而KeyPress事件返回的是“字符”的Ascii码。 当用户按下键盘上的任意一个键时，就会触发焦点对象的