如何使用For……Next语句给7个Label赋值 VB.NET!!!!!!!!!!!

答案:3 悬赏:70

解决时间 2021-01-15 05:52

提问者网友：风月客
2021-01-14 05:20

最佳答案

二级知识专家网友：夜风逐马
2021-01-14 06:12

Dim i, k, m

Dim WithEvents Lanel As VB.Label
Private Sub Form_Click()
For i = 1 To 7
k = Replace("Lanel" & Str(i), " ", "")
Set Lanel = Controls(k)
Lanel.BorderStyle = 0
Lanel.Caption = "Labe" & Str(i)
Lanel.AutoSize = True
Next
End Sub
Private Sub Form_Load()
m = 0
For i = 1 To 7
k = Replace("Lanel" & Str(i), " ", "")
Set Lanel = Controls.Add("VB.Label", k)
Lanel.Move 200, m, 1000, 300
Lanel.Alignment = 2
Lanel.Caption = "标签" & Str(i)
Lanel.BackColor = QBColor(15)
Lanel.Appearance = 0
Lanel.BorderStyle = 1
Lanel.Visible = True
m = m + 400
Next
Me.Caption = "点击窗体“空白区”后相应的文本赋值给7个标签"
End Sub

全部回答

1楼网友：怙棘
2021-01-14 07:55

说来说去这个是控件数组的事吧

2楼网友：woshuo
2021-01-14 06:51

首先要明确你对label有没有用数组等关联起来。还是直接拖到界面的。它们有什么规律？

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！