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

admin2010-09-11  20

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

选项 A、AAA    BBB
B、BBB
C、AAA    AAA
D、BBB

答案1

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

最新回复(0)