返回列表 上一主題 發帖

[轉貼] 依照變數更改CommandButton底色

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
259  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-30 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-5-1 22:01 | 只看該作者

[轉貼] 依照變數更改CommandButton底色

底色
請教各位大大:

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

oobird前輩回覆的檔案 sample.rar (15.13 KB)
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-5-6 17:08 | 只看該作者
回復 2# PD961A
開啟沒問題

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題