UC知道vb高手来帮忙,要求常数表达式
来源：百度知道 编辑：UC知道 时间：2024/05/21 12:19:19
我想用通过输入一个数j，click command2按钮可以生成j行2列textbox，和j行1列label,以下是代码，编译出来错误“要求常数表达式”，因为比较着急，来不及一个个学语法了，谢谢阿
Private Sub Command2_Click()
Command1.Visible = True
Dim i As Integer, j As Integer
i = 1
j = KindNum.text
For i = 1 To j
Dim text(i) As New TextBox
text(i).Top = 360
text(i).Left = 480 + (i - 1) * 480
Dim text(j + i) As New TextBox
text(i + j).Top = 1560
text(i + j).Left = 480 + (i - 1) * 480
Dim label(i) As New lable
label(i).Top = 3600
label(i).Left = 480 + (i - 1) * 480
Next i
End Sub
Private Sub Command2_Click()
Command1.Visible = True
Dim i As Integer, j As Integer
i = 1
j = KindNum.text
For i = 1 To j
Dim text(i) As New TextBox
text(i).Top = 360
text(i).Left = 480 + (i - 1) * 480
Dim text(j + i) As New TextBox
text(i + j).Top = 1560
text(i + j).Left = 480 + (i - 1) * 480
Dim label(i) As New lable
label(i).Top = 3600
label(i).Left = 480 + (i - 1) * 480
Next i
End Sub
'代码错误的原因是创建数组控件的命令用错(要用load命令而非dim ... as New...)。
'修改方法：在窗体上建立textBox控件，Name=text,Index=0;同理建立label控件，Name=label,Index=0
'以下是给你修改好的代码，请查收。
Private Sub Command2_Click()
Command1.Visible = True
Dim i As Integer, j As Integer
i = 1
j = KindNum.Text
For i = 1 To j
Load Text(i)
Text(i).Top = 360
Text(i).Left = 480 + (i - 1) * 480
Text(i).Visible = True
Load Text(j + i)
Text(i + j).Top = 1560
Text(i + j).Left = 480 + (i - 1) * 480
Text(i + j).Visible = True
Load Label(i)
Label(i).Top = 3600
Label(i).Left = 480 + (i - 1) * 480
Label(i).Visible = True
Next i
看了一遍,不会,