关于动态加载控件的问题

[jww1986]

我在窗口上放了一个sstab1,然后写了如下的代码
dim pic1 as picturebox
Private Sub SSTab1_Click(PreviousTab As Integer)
Dim cn As Integer
For cn = 0 To Controls.count - 1

If Controls(cn).Name = "pic1" Then

Controls.Remove "pic1"
Exit For
End If
Next cn

Set pic1 = Controls.Add("vb.picturebox", "pic1", SSTab1)
pic1.Move 120, 360, 1000, 1000
pic1.Visible = True
End Sub
发现这个程序在tab之间切换的时候会造成vb出错关闭，就这几行代码也不知道问题出在什么地方，各位大哥大姐帮我看看啊！

[SYSSZ]

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim pic1 As PictureBox'pic1改为局部变量就行了
Dim cn As Integer
  For cn = 0 To Controls.Count - 1
    
  If Controls(cn).Name = "pic1" Then
    
  Controls.Remove cn
  Exit For
  End If
  Next cn
    
  Set pic1 = Controls.Add("vb.picturebox", "pic1", SSTab1)
  pic1.Move 120, 360, 1000, 1000
  pic1.Visible = True
End Sub

[chinaboyzyq]

Private Sub SSTab1_Click(PreviousTab As Integer)
Dim pic1 As PictureBox
Dim cn As Integer
For cn = 0 To Controls.Count - 1

If Controls(cn).Name = "pic1" Then

Controls.Remove "pic1"
Exit For
End If
Next cn

Set pic1 = Controls.Add("vb.picturebox", "pic1", SSTab1)
pic1.Move 120, 360, 1000, 1000
pic1.Visible = True
End Sub

[chinaboyzyq]

'为了实现这功能，完全没必要删了加、加了删。
'可以在窗体上入一个picture1，然后如下做：
Private Sub Form_Load()
Set Picture1.Container = SSTab1
Picture1.Move 120, 360, 1000, 1000
End Sub

Private Sub SSTab1_Click(PreviousTab As Integer)
Set Picture1.Container = SSTab1
Picture1.Move 120, 360, 1000, 1000

End Sub

[lyserver]

LZ的代码实质上是每点一次TAB，就删掉pic1，然后再添加pic1，这样频繁地动态添加和删除控件，在VB里会造成一些未知错误，倒不如chinaboyzyq所说，一次性加载和销毁。

[孤独剑_LPZ]

mark

[jww1986]

好了，谢谢大家