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追é®
请é®æVB.NETçåï¼
追ç
如何使用For……Next语句给7个Label赋值
Next Me.Caption = "点击窗体“空白区”后相应的文本赋值给7个标签"End Sub
vb中用循环使Label 赋值
for i = 1 to 8 Controls("label"&cstr(i)).Caption = cstr(i)next
C# 给 label 赋值
这是不行的！如果你是动态产生即Label lbl[10]，然后循环New.这样应该可以，但好像很麻烦，什么属性都得自己设！
VBA里有多个 LABEL,怎样用语句得到当前LABEL名称的编号
'在窗体上添加一个标签，默认名Label1，然后对着它点右键-复制，再在窗体空白处点右键-粘贴-是，根据需要多次粘贴，得到一个控件数组。然后将代码复制到代码窗口试试。Private Sub Label1_Click(Index As Integer)For I = 0 To Label1.Count - 1 Label1(I).BackColor = &H8000000F Next Label1...
用VB怎么把输入的数值相加起来,代码哦
1、首先开始编写代码，定义变量，如下图所示。2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。4、最后将剩下的代码补齐，编写完整的代码如下图所示。5、然后运行程序，输入...
用for next输出一个正方形,vb程序
MsgBox "请输入行数！"Else If Val(Text1.Text) < 3 Then Text1.Text = ""MsgBox "行数必须大于等于3！"Else For i = 1 To Val(Text1.Text)For j = 1 To Val(Text1.Text)If i <> 1 And j <> 1 And i <> Val(Text1.Text) And j <> Val(Text1.Text) Then Label1....
label1,label2,label3,……labeln。给一个循环,给他们的caption都赋值...
这个。。。变量值不能用到独立控件的名字里。。。只能用控件数组 比如n个label元素组成的控件数组，可以是label1()，可以通过复制控件然后粘贴创建控件数组 通过for i=0 to n label1(i).caption="标签"next i 可以统一设定属性
vb6种用语句创建label数组控件
首先添加一个label，在属性里把index设为0 添加一个按钮 加入代码 For i = 1 To 2 Load Label1(i)Label1(i).Left = Label1(i - 1).Left + Label1(i - 1).Width + 100 Label1(i).Visible = True Next
在excel中的VBA里如何使用批量读取控件(如文本框)中的数据。
In……Next”对工作表里面的每一个文本框、图形进行访问，然后使用“.TextFrame2.TextRange.Text”获取里边的文本数据写入单元格。VBA程序如下截图，shp为工作表Sheet1里边所有图形中的一个（每执行一次For循环就提取一个，不重复）。【注】上图的VBA程序引用自百度经验《使用VBA提取文本框的文本数据》...
FORM中只有一个LABEL1,希望自动循环显示多个LABEL1及其中的caption,如...
将Label1的Index属性设置成0,添加如下代码:Private Sub Form_Load()Randomize Label1(0).Move 0, 0 Label1(0).BackColor = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256))For i = 1 To 10 Load Label1(i)Label1(i).Caption="新添加的第" & I & "个Label"Label1(i)...
