作者fumizuki (小狮子)
看板Visual_Basic
标题Re: [VB6 ] 程式的元件看不到><
时间Wed Nov 9 12:32:46 2005
1F：推 fumizuki:搜寻程式码...Load Label...或者 Controls.Add 11/08 17:12
2F：推 fumizuki:如果表单上是空无一物的话，那麽就是执行阶段才建立的 11/08 17:13
3F：推 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