Re: [VB6 ] 程式的元件看不到><
推
11/08 17:12,
11/08 17:12
推
11/08 17:13,
11/08 17:13
推
11/09 11:01,
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
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
