第3章 Visual Basic界面设计(下)

很好的教材

程序设计基础——Visual Basic教程 程序设计基础——Visual Basic教程 ——

第3章 Visual Basic 界面设计( 界面设计(下)制作者： 制作者：钱瑛2008-01-20 江南大学信息工程学院计算机基础部

很好的教材

本章的学习重点和难点键盘鼠标事件和拖放 菜单设计 常用ActiveX ActiveX控件介绍 常用ActiveX控件介绍 图形和多媒体制作 合理选用对象和窗体布局

很好的教材

键盘与鼠标事件过程键盘事件过程

对于接受文本输入的控件， 对于接受文本输入的控件，如：文本框、简单组合 文本框、 框和下拉组合框等，需要控制和处理输入的文本， 框和下拉组合框等，需要控制和处理输入的文本， 常常需要对键盘事件进行编程

KeyPress、KeyDown和KeyUp键盘事件只用于能够 KeyPress、KeyDown和KeyUp键盘事件只用于能够 键盘事件 如窗体、文本框、命令按钮、 聚焦的对象，如窗体、文本框、命令按钮、选项按钮、复选框、组合框、列表框、图片框、滚动条等 复选框、组合框、列表框、图片框、 控件

对于窗体， 对于窗体，仅当它上面没有可视和有效的控件 KeyPreview属性被设置为True时才能接收键盘 属性被设置为True 或KeyPreview属性被设置为True时才能接收键盘 事件

很好的教材

键盘与鼠标事件过程键盘事件过程 KeyPress事件 事件

当用户按下和松开一个能产生 当用户按下和松开一个能产生Ascii码的键时发生 能产生 码 KeyPress事件。严格地说，当按下某个能产生Ascii 事件。严格地说，当按下某个能产生 事件 码的键时， 码的键时，所触发的是当前得到焦点的那个对象的 KeyPress事件 事件 Private Sub 对象名_KeyPress(KeyAscii As Integer) 对象名_KeyPress(KeyAscii …… End Sub 参数KeyAscii就是该过程接受到的按键的 就是该过程接受到的按键的Ascii码 参数 就是该过程接受到的按键的 码 按下大写字母“B”,KeyAscii的值为 按下大写字母“ , 的值为66 按下大写字母 的值为 按下小写字母“ , 的值为98 按下小写字母“b”,KeyAscii的值为 的值为

很好的教材

键盘与鼠标事件过程键盘事件过程 KeyPress事件 事件

在键盘上的按键并非都能产生Ascii码，如：方向 码 在键盘上的按键并非都能产生 键←、→、↑、↓、功能键F1~F12、Shift、Ctrl、Alt 、 、 、 、功能键 、 、 、 键就不产生Ascii码，不会引发 事件， 键就不产生 码 不会引发KeyPress事件，而数 事件 大小写字母等可打印的键盘字符、 字、大小写字母等可打印的键盘字符、Enter、 、 BackSpace、Esc、Tab等都可以 、 、 等都可以 KeyPress事件过程在截取 事件过程在截取TextBox或ComboBox控件 事件过程在截取 或 控件 所输入的击键时是非常有用的， 所输入的击键时是非常有用的，它可立即

测试击键 的有效性或在字符输入时对其进行格式处理 改变keyascii参数的值会改变所显示的字符 改变 参数的值会改变所显示的字符

[*例题15] 、[*例题 例题1 例题16] 例题 例题

很好的教材

*例题15 例题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 例题16

在默认情况下，控件的键盘事件优先于窗体的键盘事 默认情况下，控件的键盘事件优先于窗体的键盘事 情况下 因此在发生键盘事件时， 件，因此在发生键盘事件时，总是激活目前得到焦点 的控件的键盘事件； 窗体的KeyPreview属性被设置 的控件的键盘事件；若窗体的 属性被设置 默认为False),则不管目前谁得到焦点，总是 为True(默认为 默认为 ，则不管目前谁得到焦点， 触发窗体键盘事件，后触发焦点控件的键盘事件， 先触发窗体键盘事件，后触发焦点控件的键盘事件， 否则不会触发窗体的键盘事件 注意程序中当窗体的KeyPreview属性被设置为 程序中当窗体的 属性被设置为True 注意程序中当窗体的 属性被设置为 或默认值False,键盘事件的不同触发次序 或默认值 ， 设窗体的KeyPreview属性被设置默认值 属性被设置默认值False,程序 设窗体的 属性被设置默认值 ， 运行时，通过命令按钮切换为True,在窗体和文本 运行时，通过命令按钮切换为 ， 框的KeyPress事件过程中编写了输出标志信息 框的 事件过程中编写了输出标志信息

很好的教材

例 3 -1Private 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码。 码 当用户按下键盘上的任意一个键时， 当用户按下键盘上的任意一个键时，就会触发焦点 对象的KeyDown事件，当释放按键，就会触发 事件， 对象的 事件 当释放按键， KeyUp事件 事件

很好的教材

键盘与鼠标事件过程键盘事件过程 KeyDown事件过程 事件过程Private Sub 对象名 _KeyDown(keycode As Integer, 对象名_KeyDown( shift As Integer) …… End Sub

_

KeyUp事件过程 事件过程Private Sub 对 象 名 _KeyUp(keycode As Integer, shift As Integer) …… End Sub _

很好的教材

键盘与鼠标事件过程键盘事件过程 KeyUp和KeyDown事件过程 和 事件过程

KeyCode参数是用户按下的那个键的扫描码(键盘上 参数是用户按下的那个键的扫描码 键盘上 参数是用户按下的那个键的扫描码 的每一个按键都一个扫描码，且各自不同),该码以 的每一个按键都一个扫描码，且各自不同 ， 为准，它不同于KeyPress事件中的 事件中的KeyAscii “键”为准，它不同于 事件中的 参数(以 字符”为准) 参数 以“字符”为准 大小写字母“A”和“a”用的是同一个键，所以它们 大小写字母“ 和 用的是同一个键， 大小写字母 用的是同一个键 的扫描码相同， 相同， 码不同(“A” 的扫描码相同，即KeyCode相同，而Ascii码 …… 此处隐藏：4266字，全部文档内容请下载后查看。喜欢就下载吧 ……