我做了一个简单的控件,想把它动态加入窗体并显示。
可是加进去以后却不知道怎么把它显示出来,怎么办?Dim newCon withevents as 
Private Sub Command2_Click()
    Set NewCon = Controls.Add("MyProj.UserCon", "ConNew", Picture1)
End Sub
没有显示,而且我也不知道怎么定坐标什么的,求救中。

解决方案 »

  1.   

    我这两天正在做这个东西,通过控件数组来做的。给你段例程:
    Load UserControl(UserControl.Count)
    '设置UserControl的属性
    UserControl(UserControl.Count - 1).Top = 
    UserControl(UserControl.Count - 1).Left =  
    UserControl(UserControl.Count - 1).Width =  
    UserControl(UserControl.Count - 1).Height =  UserControl(UserControl.Count - 1).Visible = True
    UserControl(UserControl.Count - 1).Container = PictureBox1
      

  2.   

    我就是没有办法设置top,left什么的呀。不知道怎么设visible。
    你可以说清楚一点吗?
      

  3.   

    动态生成多个相同的控件,实际上是这么做的 
    窗体上放一个COMMAND按钮,假定命名为cmd,将index设置成0,visible=False 
    控制的核心的代码是: 
    For i = 1 to 按钮总数 
    Load cmd(i) 
    cmd(i).Caption = 你指定的按钮名称 
    cmd(i).visible = True 
    Next i 
    特别的,在循环结束以后,你的程序应该自动根据你的要求对cmd的TOP,LEFT属性 
    进行重排