vb中如何实现输入行数和列数生成相应个数的label
比如我输入3和4就生成12个label三行四列我就可以输入一个矩阵的元素进去。希望解答的各位给我讲一下用到的控件和所用到的属性的作用。谢谢,跪求。求解答求解答求解答,重要...
比如我输入3和4就生成12个label
三行四列 我就可以输入一个矩阵的元素进去。
希望解答的各位给我讲一下用到的控件和所用到的属性的作用。谢谢 ,跪求。
求解答求解答求解答,重要的事说三遍 展开
三行四列 我就可以输入一个矩阵的元素进去。
希望解答的各位给我讲一下用到的控件和所用到的属性的作用。谢谢 ,跪求。
求解答求解答求解答,重要的事说三遍 展开
1个回答
展开全部
先在窗体上放置一个 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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询