Ch9拾遗-课件（PPT-精）.ppt

第9章：拾遗 主要内容 键盘和鼠标事件 KeyPress、KeyDown、KeyUp MouseDown、MouseUp、MouseMove 拖放 弹出式菜单 图形控件 直线控件：Line控件、形状控件：Shape控件 错误与调试 IIF函数 Move方法 MsgBox函数 KeyPress事件 当按下键盘上的某个键时，将发生KeyPress事件。该事件可 用于窗体、复选框、组合框、命令按钮、列表框、图片框、文本框、滚动条及与文件有关的控件。 严格来说，按键所触发的是当前拥有焦点的对象的KeyPress事件。 格式：Private Sub 对象名_KeyPress(KeyAscii As Integer)End Sub 说明：KeyAscii参数：返回当前所按键的ASCII码（十进制）。如按下“A”，则参数KeyAscii值为65，按下“a”，则参数KeyAscii值为97 KeyPress事件 设窗体上有一文本框，要求该文本框中只能输入数字，若输入非数字字符，则响铃并清除该字符 代码如下：Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then Beep KeyAscii = 0 0不表示任何ASCII字符，故能清除 End IfEnd Sub KeyPreview属性：默认情况下，控件的键盘事件优先于窗体对象，若希望窗体先接收键盘事件，则可以把窗体的KeyPreview属性设置为True。 例9.1 窗体上添加一个命令按钮（TabIndex值为0），一个文本框。窗体的KeyPreview属性设置为True Private Sub Command1_Click() ClsEnd Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then Print Chr(KeyAscii) End IfEnd Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii 48 Or KeyAscii 57 Then Beep KeyAscii = 0 清除当前所按下的不符合要求的键 End IfEnd Sub 运行上述代码，观察结果。 KeyDown和KeyUp事件 一次键盘按键的操作，分解起来总是先“按下键”，再“弹起键”，因此，KeyDown表示键盘“按键按下”事件， KeyUp表示键盘“按键弹起”事件。 格式：Private Sub 对象名_KeyDown(KeyCode As Integer, Shift As Integer)End SubPrivate Sub 对象名_KeyUp(KeyCode As Integer, Shift As Integer)End Sub 和Keypress事件不同，KeyDown和KeyUp事件返回的是键盘的直接状态 。换言之， KeyDown和KeyUp事件返回的是“键”，而Keypress事件返回的是“字符”的ASCII码 KeyDown和KeyUp事件 说明：1）KeyCode参数：返回实际按键的ASCII码。字母键返回大写字母的ASCII码；有上档字符和下档字符的键返回下档字符的ASCII码；大键盘上的数字键与数字键盘上的数字键的KeyCode不一样。 2）Shift参数：转换键。返回Shift、Ctrl和Alt三个键的状态。以3位二进制数表示，001表示Shift键，010表示Ctrl键，100表示Alt键。如果同时按下两个键，则返回值为单独按键返回值之和。如按下Shift和Ctrl键，则返回值为011，即十进制数3。 弹出式菜单 建立方法：1）先用菜单编辑器建立菜单2）再用PopupMenu方法弹出显示 格式：[对象名.]PopupMenu 菜单名[,Flags],[X,][Y,][Default Menu] 说明1）对象：窗体。省略时表示当前窗体2）菜单名：在菜单编辑器中定义的主菜单项，必选参数3)Flags：是一个数值或符号常量，表示指示菜单位置和特殊菜单行为的两个数值之和，如参数X坐标指定菜单左边（0，vbPopupMenuLeftAlign）、中间或右边位置，通过单击鼠标左键（0，vbPopupMenuLeftButton）或右键选择菜单命令，可省略4）X，Y：菜单显示位置的坐标5）Default Menu：弹出式菜单中默认选中的菜单项，即主菜单项中某个子菜单项 Po