vb中如何实现输入行数和列数生成相应个数的label

发布网友发布时间：2022-05-15 06:20

共1个回答

热心网友时间：2023-10-11 12:34

先在窗体上放置一个 Label1，右键点它，点复制。然后在窗体空白处按右键，点粘贴，提示会问是否创建控件组。点是，控件组就做好了。然后把粘贴出来的Label1(1)删掉，只留下Label1(0)，并把它放在靠左上合适的位置。然后代码如下：

Private Sub Form_Load()
Dim n As Integer, m As Integer, i As Integer
n = InputBox("请输入行数")
m = InputBox("请输入列数")
For i = 1 To n * m - 1
Load Label1(i)
Label1(i).Left = Label1(0).Left + (i Mod m) * (Label1(0).Width + 100)
Label1(i).Top = Label1(0).Top + (i \ m) * (Label1(0).Height + 100)
Label1(i).Caption = "Label" & i + 1
Label1(i).Visible = True
Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com