12
返回列表 上一主題 發帖

[發問] 如何利用迴圈直接改Label 的name?(已解決)

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6# 跳轉到 »
發表於 2012-5-4 14:20 | 只看該作者
回復 5# icestormer
  1. Private Sub UserForm_Initialize()
  2. '新增2欄8列
  3. For j = 1 To 2
  4.     For i = 1 To 8
  5.       With Controls.Add("Forms.Label.1", "LA" & i & "_" & j, True)
  6.       .Caption = .Name
  7.          .Top = 20 * (i - 1) + 5
  8.          .Left = 160 * (j - 1) + 5
  9.          .Width = 155
  10.          .Height = 18
  11.       End With
  12.     Next
  13. Next
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
5#
發表於 2012-5-4 10:54 | 只看該作者
本帖最後由 icestormer 於 2012-5-4 11:36 編輯

可以請教一下  如何寫動態建立Label 在表單上呢 ,?可以同時設定 多長 多高 及位置嗎?

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
4#
發表於 2012-5-4 10:41 | 只看該作者
回復 3# Hsieh


   那我了解 感謝 超版

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2012-5-3 23:03 | 只看該作者
回復 1# icestormer
必須是由程式動態新增物件才能夠在表單初始化時做新增同時命名
已經使用手動布置的物件，在表單啟動後則無法重新命名
學海無涯_不恥下問

TOP

play9091

帖子
87 
主題
24 
精華
0 
積分
122 
點名
0  
作業系統
win 7 
軟體版本
2016 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2018-1-16 
2#
發表於 2012-5-3 23:01 | 只看該作者
小弟功力尚淺…
看沒有很懂你想要表達什麼，有沒有附件呢？
有付件幫您做比較快……
初學VBA乍到twbts

TOP

        靜思自在 : 時時好心就是時時好日。
12
返回列表 上一主題