键盘鼠标事件和图形操作

《键盘鼠标事件和图形操作》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第8章鼠标和键盘事件8.1键盘事件8.2鼠标事件8.3应用8.1键盘事件◇KeyPress事件：用户按下并且释放一个会产生ASCII码的键时被触发。◇KeyDown事件：用户按下键盘上任意一个键时被触发。◇KeyUp事件：用户释放键盘上任意一个键时被触发。参数KeyPress事件PrivateSubForm_KeyPress(KeyAsciiAsInteger)……EndSub参数KeyAscii是按键事件发生后，返回所按键的ASCII码值。例：用窗体的KeyPress事件书写程序，判断按下的键是否为英文字母，如果是则输出，否则“响铃”。PrivateSubT

2、ext1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)……EndSubPrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)……EndSub2.KeyDown和KeyUp事件KeyCode参数返回按键的扫描码。键盘上的每个键均有惟一的扫描码，此参数指示了按键的物理位置。如"A"与"a"是同一个键，故扫描码均为65。但是键盘上的“1”和数字小键盘的“1”就有不同的扫描码，尽管它们生成相同的字符。Shift参数，判断是否在操作过程中按下了Shift、Ctrl和Alt键，以及以

3、什么样的组合（如果存在）按下这些键。实际上Shift参数是一个三位二进制数：b2b1b0b0=1表示按下Shift键b1=1表示按下Ctrl键b2=1表示按下Alt键如果按Shift键，则Shift为1；如果按Ctrl键，则Shift为2；如果按Alt键，则Shift为4。应使用这些键值的总和来判断这些组合。例如，同时按下Shift和Alt键时Shift等于5(1+4)。例如，创建一个工程，编写如下代码，实现在小写字母输入状态下，用Shift参数区分输入的字母是大写还是小写，并在窗体上输出相应的字母和KeyCode值。PrivateSubForm_KeyUp(

4、KeyCodeAsInteger,ShiftAsInteger)IfKeyCode>=Asc("A")AndKeyCode<=Asc("Z")ThenIfShift=1ThenPrintChr(KeyCode);KeyCodeElsePrintLCase(Chr(KeyCode));KeyCodeEndIfEndIfEndSub小技巧：一般来说，如果需要检测键盘输入的哪个字符，则选用KeyPress事件；如果需要检测所按的是哪个键，则选用KeyUp或KeyDown事件。8.2鼠标事件◇MouseDown事件：按下任意鼠标按钮时发生。◇MouseUp事件：释放任

5、意鼠标按钮时发生。◇MouseMove事件：每当鼠标指针移动到屏幕新位置时发生。参数⑴Button是一个三位二进制数b2b1b0，描述鼠标按钮的状态：b0=1表示左键按下或释放b1=1表示右键按下或释放b2=1表示中键按下或释放(目前几乎见不到有中键的鼠标器)⑵Shift参数，反映用户在按下鼠标键的同时，按了Shift、Ctrl、Alt这三个控制键中的哪一个键或它们的哪一种组合。⑶x,y表示鼠标指针的位置，这里用到了接受鼠标事件的对象的坐标系统描述的鼠标指针位置。例：编写程序，在鼠标左键单击窗体位置显示彩色的“*”，如图所示，当鼠标右键单击窗体时清除窗体信息。

6、PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then'按下左键则输出*CurrentX=XCurrentY=YForeColor=QBColor(Rnd*16)Print"*"ElseClsEndIfEndSub第九章图形操作9.1图形操作基础9.2绘图属性9.3图形方法9.4图形方法应用9.5图形控件9.1图形操作基础9.1.1坐标系统1．坐标的概念2．坐标刻度与单位⑴使用缺省刻度单位⑵选择标准刻度单位值常数说明0VbUser用户自

7、定义坐标系统1VbTeips缇。这是缺省刻度。1，440缇等于一英寸。2VbPoints磅。72磅等于一英寸。3VbPixels像素。像素是监视器或打印机分辨率的最小单位。4VbCharacters字符。打印时，一个字符有1/6英寸高、1/12英寸宽。5VbInches英寸。6VbMillimeters毫米。7VbCentimeters厘米。ScaleMode属性设置值9.1.2自定义坐标系统1．用坐标属性定义坐标系统可以使用对象的ScaleLeft、ScaleTop、ScaleWidth和ScaleHeight四个属性，来创建自定义坐标。例:通过坐标属性定义

8、窗体Form1的坐标系。例:如果窗体F