对窗体编写如下事件过程: Private Sub Form _ MouseDown(BuRon As Integer,Shift As Integer, X As Single, Y As Single) If Button=

admin2009-03-15  33

问题 对窗体编写如下事件过程:    Private Sub Form _ MouseDown(BuRon As Integer,Shift As Integer, X As Single,      Y As Single)        If Button=2 Then          Print "AAAAA"        End If    End Sub    Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,      Y As Single)        Print "BBBBB"    End Sub    程序运行后,如果单击鼠标右键,则输出结果为 ______。

选项 A、AAAAA     BBBBB
B、BBBBB
C、AAAAA
D、BBBBB     AAAAA

答案1

解析 窗体的的MouseDown和MouseUp中,button参数是具有相应于左按钮(为0),右按钮(为1),以及中间按钮(为2)的一个位字段。这些位的值分别等于1,2,和4。其中仅有一位被设置,指示出引起该事件的那个按钮。本题中MouseDown事件会首先判断按下的是哪个鼠标键,如果是右键则输出AAAAA。然后在MouseUp事件中输出BBBBB。
转载请注明原文地址:https://kaotiyun.com/show/RG1p777K
0

最新回复(0)