推 fumizuki:搜尋程式碼...Load Label...或者 Controls.Add 11/08 17:12
推 fumizuki:如果表單上是空無一物的話，那麼就是執行階段才建立的 11/08 17:13
推 bonsi:請問一下..執行階段建立的是什麼意思!怎麼用呢?@@" 11/09 11:01
1) 表單上放一個控制項，索引設0，假設名稱為 Label1。
程式碼：(載入十個 Label 控制項，間距 60)
For i = 1 to 10
Load Label(i)
Label(i).Left = Label(i - 1).Left + Label(i - 1).Width + 60
Label(i).Visible = True
Next
2) 表單不用放置任何控制項。
程式碼：效果同上
Private lbl(0 To 10) '本行放在模組開頭，為模組內的全域變數
For i = 1 to 10
Set lbl(i) = Controls.Add("VB.Label", "lbl" & i, Me)
If i = 1 Then
lbl(i).Left = 0
Else
lbl(i).Left = lbl(i - 1).Left + lbl(i - 1).Width + 60
End If
lbl(i).Visible = True
Next
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.222.155.162