English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

請問各位大大,我目前做了三個按鈕陣列,我要做到我按下去就會變成另一種顏色,但是當我按下去的時候只有我案的那個會變色其他的都是原本的顏色,換句話就是假使原本三個都是灰色,當我按下其中一個按鈕他會變黃色,當我在按另一個按鈕的時候剛剛那個按鈕又會變回去原本的顏色,只能有一個是黃色就對了,請大大幫小弟解決一下謝謝。

2007-01-29 03:44:24 · 3 個解答 · 發問者 蚵仔 1 in 電腦與網際網路 程式設計

3 個解答


'哈囉亡靈兄,水月大好久不見,我也來湊一腳
圖片參考:http://tw.yimg.com/i/tw/blog/smiley/1.gif

Private Sub Command1_Click(Index As Integer)
Static OldIndex As Integer

Command1(OldIndex).BackColor = &H8000000F
Command1(Index).BackColor = vbYellow
OldIndex = Index
End Sub



2007-01-30 23:01:20 補充:
賣安ㄋㄟ共啦,哇ㄟ拍謝XD

2007-01-29 08:04:45 · answer #1 · answered by W.J.S. 7 · 0 0

Private Sub Command1_Click(Index As Integer)
For i = 0 To 2 '你設3個陣列按鈕,所以是0到2,你看須要設幾個按鈕再自行修改2的值
Command1(i).BackColor = &H8000000F
Next
Command1(Index).BackColor = &HFFFF&
End Sub


2007-01-29 16:05:15 補充:
看到WJS的解答,真的覺得你是個VB的超級高手,我每次想的程式都是比較土法練鋼,而你總是可以把程式簡化。

2007-01-29 05:57:59 · answer #2 · answered by 水月 6 · 0 0

Private Sub Command1_Click(Index As Integer)
For Each Sel In Command1
Sel.BackColor = &HFFFF& '變黃色
Next
End Sub
'-------------------------
Command1( )不管陣列項目有幾個都一起變色...

2007-01-29 13:18:45 補充:
Command1的每個項目的Style屬性都要設為1-圖片外觀

2007-01-29 13:22:44 補充:
慘~~~看了WJS大的答案後,我才發現我誤會題意了~~
不愧是自封的bug大王......

2007-01-29 05:19:16 · answer #3 · answered by 幽靈 5 · 0 0

fedest.com, questions and answers