7,762
社区成员
发帖
与我相关
我的任务
分享如何动态地贴上label？？
Dim label11 As New Label1
lable11.Caption = CStr(i)
label11.Top = Y
label11.Left = X
label11.Width = W
label11.Height = H / 2
这样哪里不对，应如何修改？
lable11.Caption = CStr(i)
label11.Top = Y
label11.Left = X
label11.Width = W
label11.Height = H / 2
这样哪里不对，应如何修改？
...全文
请发表友善的回复…
发表回复
vivian66 2003-08-19
- 打赏
- 举报
也可以先在窗体上添加一个label，将其index设置为0，然后
for i=1 to num
load label(i)
label(i).move 20,0 '向左移动
label(i).visible=true
应该没错了。。。。
for i=1 to num
load label(i)
label(i).move 20,0 '向左移动
label(i).visible=true
应该没错了。。。。
DarkChampion 2003-08-19
- 打赏
- 举报
定义一个名为label1的数组
然后：
Load label1(i)
就可以了。
然后：
Load label1(i)
就可以了。
jornet 2003-08-19
- 打赏
- 举报
可以用api
superxmz 2003-08-19
- 打赏
- 举报
设定label1的index＝0
之后，load label1（i）就出来了
之后，load label1（i）就出来了
victorycyz 2003-08-19
- 打赏
- 举报
me.Controls.Add "VB.label", "label1"
With Form1!label1
.Visible = True
.top=Y
.left=X
.Width = W
.Height=H/2
.Caption = "New Label"
End With
With Form1!label1
.Visible = True
.top=Y
.left=X
.Width = W
.Height=H/2
.Caption = "New Label"
End With
