[VB6 ] 请问鼠标侦测的问题

楼主: JOUMAX (JOUMAX)   2013-12-07 22:08:44
大家好,想请问一下鼠标侦测的问题
是这样的,我想写一个测LCD的程式
比如说有12个颜色,按一下鼠标左键就换一个颜色
12个按完就自动结束,中途按右键则跳出
(DisplayX公司用起来很慢,不知为什么,其他的他们又不喜欢)
所以才想自己学VB自己写。。。
今天试了一下:
Private Sub Form_MouseDown(button As Integer, Shift As Integer, X As Single,
Y As Single)
If button = 1 Then
Form1.WindowState = 2
Form1.BorderStyle = 0
BackColor = RGB(255,255,0)
End If
If Button = 2 Then
End
End If
End Sub
现在这样执行以后,点选鼠标任意键,工作视窗是会放到最大,
然后变换成我要的颜色没错,按右键则是跳出来
可是想请问,那我想再按一下左键
换下个颜色,要怎么做呢@@?
作者: MOONRAKER (㊣牛鹤鳗毛人)   2013-02-08 04:00:00
用一个静态变量或全域变量存现在换到哪个颜色
楼主: JOUMAX (JOUMAX)   2013-02-08 15:52:00
您好,谢谢您的回应。我刚看了精华区,看到mousedown只能被触发一次,这样的话,那就代表再按鼠标左键也没办法继续换色了。我实际试了一下,也是真的如此...:(
作者: MOONRAKER (㊣牛鹤鳗毛人)   2013-02-10 14:25:00
为什么只能触发一次 不是按鼠标几次就触发几次吗你怎么试的 看不懂你的问题
作者: necsa (necsa)   2013-02-10 22:15:00
我按了几次鼠标左键,就可以触发几次换自己想换的颜色,并没有问题.
楼主: JOUMAX (JOUMAX)   2013-02-11 00:35:00
结果我设了一个静态变量就可以了!谢谢大家。

Links booklink

Contact Us: admin [ a t ] ucptt.com