回 帖 发 新 帖 刷新版面

主题:菜鸟请教动态生成控件的程序

程序运行时和运行后的界面如图所示。
程序运行前,界面上有两个标签和三个命令按钮,其中三个命令按钮为控件数组,名称属性分别为: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:这两个标签控件是不是必须也得设置成控件数组呀?

回复列表 (共1个回复)

沙发

Label1控件必须设置其Index=0,如果不设置,会出现“未找到方法或数据成员”错误。那个有“动态标签”字样的不要设置

我来回复

您尚未登录,请登录后再回复。点此登录或注册