標題: [轉貼] 依照變數更改CommandButton底色 [打印本頁]

---

作者: Hsieh    時間: 2010-5-1 22:01     標題: 依照變數更改CommandButton底色

請教各位大大:

若在某一表單中,有 CommandButton1 ~ 20,
今想依照變數 i 的結果進行底色更改,
例如 i=5 時,將 CommandButton1 更改底色,
以此類推~
試過 "CommandButton" & i.BackColor = &HFF80FF ...失敗,
因為物件好像不能這樣使用.但不曉得該如何修改?
感謝~

oobird前輩回覆的檔案[attach]6[/attach]

---

作者: GBKEE    時間: 2010-5-6 17:08

回復 2# PD961A
開啟沒問題

---

作者: GBKEE    時間: 2010-5-6 17:28

1. Private Sub UserForm_Initialize()
   
2.     Dim i%, A
   
3.     For i = 1 To 20
   
4.         Set newclass(i) = New 類
   
5.      Set newclass(i).che = Controls("CommandButton" & i)
   
6.         Controls("CommandButton" & i).BackColor = QBColor(IIf(i < 15, i - 1, i - 14))
   
7.     Next
   
8. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)