关于动态加载控件的问题

jww1986 2010-04-06 10:42:29
我在窗口上放了一个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出错关闭,就这几行代码也不知道问题出在什么地方,各位大哥大姐帮我看看啊!
...全文
74 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
jww1986 2010-04-07
  • 打赏
  • 举报
回复
好了,谢谢大家
孤独剑_LPZ 2010-04-07
  • 打赏
  • 举报
回复
mark
lyserver 2010-04-07
  • 打赏
  • 举报
回复
LZ的代码实质上是每点一次TAB,就删掉pic1,然后再添加pic1,这样频繁地动态添加和删除控件,在VB里会造成一些未知错误,倒不如chinaboyzyq所说,一次性加载和销毁。
chinaboyzyq 2010-04-06
  • 打赏
  • 举报
回复
'为了实现这功能,完全没必要删了加、加了删。
'可以在窗体上入一个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
chinaboyzyq 2010-04-06
  • 打赏
  • 举报
回复
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
SYSSZ 2010-04-06
  • 打赏
  • 举报
回复
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

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧