主题:菜鸟请教动态生成控件的程序
程序运行时和运行后的界面如图所示。
程序运行前,界面上有两个标签和三个命令按钮,其中三个命令按钮为控件数组,名称属性分别为:dtan1(0)、dtan1(1)、dtan1(2)
代码为:
Private Sub dtan1_Click(Index As Integer)
If Index = 0 Then
If Label1.UBound < 4 Then
n = Label1.UBound
Load Label1(n + 1)
Label1(n + 1).Top = Label1(0).Top - 600
If n = 0 Then
Label1(1).Left = Label1(0).Left
Else
Label1(n + 1).Left = Label1(n).Left + 1100
End If
Label1(n + 1).Visible = True
Label1(n + 1).Caption = "标签" & (n)
End If
ElseIf Index = 1 Then
If Label1.UBound > 0 Then
Unload Label1(Label1.UBound)
End If
Else
End
End If
End Sub
问题1:程序运行时得不到结果界面。VB也不提示出错信息。
2:这两个标签控件是不是必须也得设置成控件数组呀?
程序运行前,界面上有两个标签和三个命令按钮,其中三个命令按钮为控件数组,名称属性分别为:dtan1(0)、dtan1(1)、dtan1(2)
代码为:
Private Sub dtan1_Click(Index As Integer)
If Index = 0 Then
If Label1.UBound < 4 Then
n = Label1.UBound
Load Label1(n + 1)
Label1(n + 1).Top = Label1(0).Top - 600
If n = 0 Then
Label1(1).Left = Label1(0).Left
Else
Label1(n + 1).Left = Label1(n).Left + 1100
End If
Label1(n + 1).Visible = True
Label1(n + 1).Caption = "标签" & (n)
End If
ElseIf Index = 1 Then
If Label1.UBound > 0 Then
Unload Label1(Label1.UBound)
End If
Else
End
End If
End Sub
问题1:程序运行时得不到结果界面。VB也不提示出错信息。
2:这两个标签控件是不是必须也得设置成控件数组呀?