永发信息网

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

答案:2  悬赏:0  手机版
解决时间 2021-03-05 16:38
  • 提问者网友:疯子也有疯子的情调
  • 2021-03-05 11:15
比如我输入3和4就生成12个label
三行四列 我就可以输入一个矩阵的元素进去。
希望解答的各位给我讲一下用到的控件和所用到的属性的作用。谢谢 ,跪求。

求解答求解答求解答,重要的事说三遍
最佳答案
  • 五星知识达人网友:街头电车
  • 2021-03-05 11:46
先在窗体上放置一个 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
全部回答
  • 1楼网友:话散在刀尖上
  • 2021-03-05 13:23
任务占坑
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯