请进来帮帮忙！

RUKYO 2003-12-11 04:50:11

我在做一个显示酒店客房房态窗体时遇到一些困难，我想用一些Label控件来表示房间，但考虑到各酒店的客房数目并不是一样的，这需要用户自己设置后保存到数据库里，我再读出来才知道客房数，这就需要动态地向窗体添加Label控件，但我并不知道怎样动态地向窗体添加控件，请大家帮帮忙！

...全文

38 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

flyingscv 2003-12-12

打赏
举报

你怎么还顶？

RUKYO 2003-12-12

打赏
举报

再顶

pcwak 2003-12-11

打赏
举报

动态生成控件

RUKYO 2003-12-11

打赏
举报

自己up一下。

aoenzh 2003-12-11

打赏
举报

haipingma 2003-12-11

打赏
举报

Dim WithEvents LabelObj As Label
Private Sub Command2_Click()
Set LabelObj = Controls.Add("VB.label", "label1")
With LabelObj
.Visible = True
.Width = 1000
.Caption = "新加label"
.Top = 500
.Left = 1000
End With

End Sub

SoHo_Andy 2003-12-11

打赏
举报

窗体上有一个label1控件，index值为0
先解决问的问题
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Load label1(i)
label1(i).top = label1(i - 1).top + 200
label1(i).Visible = True
Next
End Sub