9 1 2 Mouse Down Mouse Up Mouse

第九章事件过程 9. 1. 2 Mouse. Down、 Mouse. Up、 Mouse. Move事件【格式】： Sub Object_Mouse.

第九章事件过程 1）. Button 参数中右左 0 0 1 1 表示按下，0 表示释放

第九章事件过程 Alt 2) Shift参数 b 2 Ctrl Shift b 1 b 0 Shift

第九章事件过程 5. 运行下面的程序， Private Sub Form_Key. Down (Key. Code As Integer, shift As.

第九章事件过程 6. 运行下面的程序， Private Sub Text 1_ Key. Press (Key. Ascii As Integer)

Slides: 28

Download presentation

第九章事件过程 9. 1. 2 Mouse. Down、 Mouse. Up、 Mouse. Move事件【格式】： Sub Object_Mouse. Down(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Object_Mouse. Up(Button As Integer, Shift As Integer, X As Single, Y As Single) Sub Object_Mouse. Move(Button As Integer, Shift As Integer, X As Single, Y As Single) 上一页返回章首下一页

第九章事件过程 1）. Button 参数中右左 0 0 1 1 表示按下，0 表示释放 Button值与鼠标个键的状态表二进制十进制常数鼠标键状态 001 1 vb. Left. Button 按下左键 010 2 vb. Right. Button 按下右键 100 4 vb. Middle. Button 按下中键 011 3 vb. Left. Button+vb. Right. Button 按下左键+右键 101 5 vb. Middle. Button+vb. Left. Button 按下中键+左键 110 6 vb. Middle. Button+vb. Right. Button 按下中键+右键 111 7 vb. Middle. Button+vb. Left. Button+ vb. Right. Button 同时按下三键上一页返回章首下一页

第九章事件过程 Alt 2) Shift参数 b 2 Ctrl Shift b 1 b 0 Shift 值与功能键的状态二进制 001 十进制 1 常数 vb. Shift. Mask 鼠标键状态按下Shift键 010 2 vb. Ctrl. Mask 按下Ctrl键 100 4 vb. Alt. Mask 按下Alt键 011 3 vb. Shift. Mask+ vb. Ctrl. Mask 按下Shift键+ Ctrl键 101 5 vb. Alt. Mask+ vb. Shift. Mask 按下Alt键+ Shift键 110 6 vb. Alt. Mask+ vb. Ctrl. Mask 按下Alt键+ Ctrl键 111 7 vb. Alt. Mask+ vb. Ctrl. Mask+ 同时按下三键 vb. Shift. Mask 上一页返回章首下一页

第九章事件过程 5. 运行下面的程序， Private Sub Form_Key. Down (Key. Code As Integer, shift As. Integer) Print Chr(Key. Code+1) End Sub 按下字母键“A”后，输出的结果是—— A. A B. a 上一页 C. B 返回章首 D. b 下一页

第九章事件过程 6. 运行下面的程序， Private Sub Text 1_ Key. Press (Key. Ascii As Integer) Key. Ascii=Asc(Ucase(Chr(Key. Ascii))) End Sub 按下字母键“a” “b”后，输出的结果是—— A. a b 上一页 B. A B 返回章首 C. a 下一页 D. A