[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