如何在vb程序运行时加入和删除控件.txt

VB技巧问答10000例 VB技巧问答10000例

这在VB 5.0中是做不到的。如果你想动态地增加控件，必须在设计阶段将控件放入Form，但可以将Visible属性设为False，将控件的Index属性设为0(即设置为控件数组)。然后在运行时使用Load方法加入控件。如下面这段代码： 
    Private Sub btnAdd_Click() 
     Static n As Integer 
     
     If n <>0 Then Load Label1(n) 
     Label1(n).Move 300, 200 + n *500 
     Label1(n).Visible = True 
     n = n + 1 
    End Sub 
    这段代码表示，当用户每按一次按钮时添加一个Label控制。 
    使用Unload可以动态删除控件数组中的控件。 
    在VB 6.0中，可以实现你的愿望，因为Form.Controls集合包括了Add方法、Remove方法。例如： 
    Option Explicit 
    Private WithEvents btnObj As CommandButton 
     
    Private Sub btnObj_Click() 
     MsgBox "这是动态添加的按钮。" 
    End Sub 
     
    Private Sub Form_Load() 
     Set btnObj = Controls.Add("VB.CommandButton", "btnObj") 
     With btnObj 
     .Visible = True 
     .Width = 2000 
     .Caption = "Hello" 
     .Top = 1000 
     .Left = 1000 
     End With 
    End Sub 
    这里使用WithEvent指定动态添加的控件的事件。 
<END>