比如我输入3和4就生成12个label
三行四列 我就可以输入一个矩阵的元素进去。
希望解答的各位给我讲一下用到的控件和所用到的属性的作用。谢谢 ,跪求。
求解答求解答求解答,重要的事说三遍
vb中如何实现输入行数和列数生成相应个数的label
答案:2 悬赏:0 手机版
解决时间 2021-03-05 16:38
- 提问者网友:疯子也有疯子的情调
- 2021-03-05 11:15
最佳答案
- 五星知识达人网友:街头电车
- 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
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
任务占坑
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯