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

帖子: 87
主題: 24
精華: 0
積分: 122
點名: 0
作業系統: win 7
軟體版本: 2016
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-1-16

2^#

發表於 2012-5-3 23:01 | 只看該作者

小弟功力尚淺…
看沒有很懂你想要表達什麼，有沒有附件呢？
有付件幫您做比較快……

初學VBA乍到twbts

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2012-5-3 23:03 | 只看該作者

回復 1# icestormer
必須是由程式動態新增物件才能夠在表單初始化時做新增同時命名
已經使用手動布置的物件，在表單啟動後則無法重新命名

學海無涯_不恥下問

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

4^#

發表於 2012-5-4 10:41 | 只看該作者

回復 3# Hsieh

那我了解感謝超版

帖子: 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 在表單上呢 ,?可以同時設定多長多高及位置嗎?

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

6^#

發表於 2012-5-4 14:20 | 只看該作者

回復 5# icestormer

Private Sub UserForm_Initialize()
'新增2欄8列
For j = 1 To 2
For i = 1 To 8
With Controls.Add("Forms.Label.1", "LA" & i & "_" & j, True)
.Caption = .Name
.Top = 20 * (i - 1) + 5
.Left = 160 * (j - 1) + 5
.Width = 155
.Height = 18
End With
Next
Next
End Sub

複製代碼

學海無涯_不恥下問

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

7^#

發表於 2012-5-4 14:37 | 只看該作者

回復 6# Hsieh

謝超版來去試看看^^

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

8^#

發表於 2012-5-5 21:07 | 只看該作者

本帖最後由 icestormer 於 2012-5-5 21:32 編輯

問題1.rar (6.87 KB) 回復 6# Hsieh

請問超版  我用下列程式碼在自訂表單上生出這些label  那要怎在另一個按鍵 (改變)中改變LA0的CAPTION呢? 都一直說找不到物件

另外如果想刪除透過程式碼生成的控制項(像是Label)又要怎寫呢??
Private Sub CommandButton2_Click()
For j = 0 To 32
            For i = 0 To 6
            With Controls.Add("Forms.Label.1", "LA" & j + i, True)'請問這行中的 TRUE 是不是指要顯示的意思?
               .Caption = .Name
               .Font.Size = 12
               .BorderStyle = 1
               .ForeColor = &H80000012
               .Top = 42 + (j * 14)
               .Left = i * 70
               .Width = 70
               .Height = 16
               .TextAlign = 3
         end with
next  i
next j
=======================================================
另外不知要怎寫迴圈能表現出下方這種情況呢?

試了好久但都試不出來像下方的程式碼怎要怎寫. 用雙迴圈也寫不出來

1的10
2的9
3的8
4的7
5的6
6的5
7的4
8的3
9的2
10的1