鼠标、键盘、 API 函数调用
【实验目的】
1．掌握鼠标和键盘有关事件的使用方法；
2．熟悉API 函数的引用和调用方法。
【实验内容】
实验 4.1 键盘错位程序
1．实验要求
本实验主要是为了使同学们深入理解键盘事件原理，通过对文本框控件的鼠标的 KeyPress 事件的编程，使得键盘按键发生错位，比如当用户按下“ A ”键时，在文本框中将显示字母“ B ”，当按下“ B ”键时，显示字母“ C ”，依此类推。
2．实验目的
理解键盘事件原理
3．实验步骤指导
第 1 步：界面设计
新创建一标准工程项目，在 Form1 上放置两个文本框控件 Text1 、 Text2 。所有设置均保持缺省值，如图 4.1 所示。
图 4.1 键盘错位程序界面
第2步：代码设计
（1）编写 Form 的 Load 事件代码 text函数什么意思
　Private Sub Form_Load()
　' 对文本框赋初值
Text1.Text = ""
Text2.Text = ""
　End Sub
（2）编写 Text2 的 KeyPress 事件代码
　Private Sub Text2_KeyPress(KeyAscii As Integer)
　' 用 Text1 控件显示原按键
　Text1 = Text1 + Chr(KeyAscii)
　' 将按键的 Ascii 码加 1
　KeyAscii = KeyAscii + 1
　End Sub
第3步：运行效果
运行程序我们会发现，当在 Text2 中输入“ abcdefg ”时，屏幕上显示的却是“ bcdefgh ”，输入发生了错位，而 Text1 中仍然显示“ abcdefg ”，如图 4.2 所示。
图 4.2 键盘错位程序运行结果
4．难点提示
Chr(KeyAscii)
KeyAscii = KeyAscii + 1
此部分的难点是 Chr() 函数和 ASCII 码的概念。计算机中的每个字符均对应一个 ASCII ，比如字符 a 的 ASCII 码是 97 ， b 的 ASCII 码为 98 。 KeyAscii 的值是你敲击的键所对应的 ASCII 码，而 Chr() 函数的功能是将一个 ASCII 码转换成对应的字符。
实验 4.2 实用的键盘使用技巧
1．实验要求
在实际应用程序开发过程中，我们经常会设计一些如图 4.3 所示界面，其中有许多文本框（ TextBox ）控件用于数据输入。为了提高数据的输入速度，应尽可能地减少用户在键盘和鼠标间的切换次数。比如，在图 4.3 所示界面中，当用户输入完“ 20040001 ”并按回车键后，程序最好能够自动将焦点转换到下一个文本框，让用户不必使用鼠标就可以继续在下一个文本框输入“张红”。为了实现这种功能，就需要对键盘的 KeyPress 事件进行编程。
实验过程非常简单，但它所涉及的编程技巧却非常实用，用户只通过键盘操作就可以实现图 4.3 、图 4.4 的显示效果。希望同学们亲自动手，举一反三。
图 4.3 KeyPress 事件实验程序主界面
图 4.4 “确定”按钮的结果
2．实验目的
练习键盘事件的使用技巧
3．实验步骤指导
第1 步：进行界面设计
创建一个标准工程项目，将 Form1 窗体的 Caption 属性设计为“键盘 KeyPress 事件使用技巧”，并请参照图 4.5完成界面设计。
图 4.5 界面设计
（1 ）在 Form1 窗体上创建 Text1 文本框数组，自上而下索引号依次为 0 、 1 、 2 。
（2 ）在 Form1 窗体上放置 Command1 和 Command2 两个命令按钮，并将它们的 Caption 属性分别设置为“确定”和“退出”。
（3 ）完成其他界面设计工作。
（4 ）将Text1(0) 、Text1(1) 、Text1(2) 、Command1 的TabIndex 属性依次设置为0 、1 、2 、3 、4 。
第2 步：编写代码
（1 ）编写 Form_Load 事件代码
（2 ）编写 Text1 数组控件的 KeyPress 事件代码
（3 ）编写 Command1 的 Click 事件代码
第3 步：运行效果
运行该程序后， Text1(0) 首先获得焦点，当用户按回车键后，焦点将在三个文本框和 Comman1 之间顺序切换。当 Text1(2) 获得焦点时，我们只能在其中输入数字，其他所有键盘输入均会被屏蔽掉。
4．难点提示
If KeyAscii = 13 Then
SendKeys "{Tab}"
End If
难点是 SendKeys “{Tab}” 。 13 代表回车键的 ASCII 码， SendKeys 是 VB 的一个模拟键盘操作的语句。上述代码的意思是：当敲击了回车键后，由 VB 程序自动“按一下”键盘上的 TAB 键。
实验 4.3 鼠标事件应用
1．实验要求
我们上网浏览一些精彩的网页时，会经常看到一串五颜六的字符串或漂亮的图片尾随着鼠标不断的移动。在 VB 程序中要实现这一功能非常容易，只需要一个 MouseMove 事件就可以了，本实验就是要学习这种编程技巧。
2．实验目的
练习鼠标事件的编程技巧
3．实验步骤指导
第1 步：界面设计
（1 ）新建一个标准工程，将 Form1 的 Caption 设置为“鼠标 MouseMove 事件应用”。
（2 ）在 Form1 上放置一个标签控件 Label1 ，将其 Caption 设置为“欢迎进入 Visual Basic 世界”。
第2 步：代码设计
在 Form1 的 MouseMove 事件中加入以下代码：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　' 随机改变 Label1 控件的前景
Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
　' 根据鼠标当前的 X,Y 坐标设置 Label1 控件的 Top 和 Left 属性

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。