UC知道vb 动态添加控件问题?
来源：百度知道 编辑：UC知道 时间：2024/05/13 04:19:32
Dim f As WebBrowser
Set f = Me.Controls.Add("Dim f As WebBrowser
Set f = Me.Controls.Add("vb.WebBrowser", "f1")
f.Visible = True
f.ZOrder", "f1")
f.Visible = True
f.ZOrder
END SUB
出现错误提示:
实时错误 '711'
无效的类串
查找带ProgID: vb.WebBrowser的对象
请高手指教!谢谢
Set f = Me.Controls.Add("Dim f As WebBrowser
Set f = Me.Controls.Add("vb.WebBrowser", "f1")
f.Visible = True
f.ZOrder", "f1")
f.Visible = True
f.ZOrder
END SUB
出现错误提示:
实时错误 '711'
无效的类串
查找带ProgID: vb.WebBrowser的对象
请高手指教!谢谢
窗体可以这样动态加载，其他的控件好像不可以
你可以先加入一个INDEX为0，名字为f的WebBrowser
后面就可以用下面的代码来动态加载了
不用时记得卸载
Private Sub Command1_Click()
Load f(1)
f(1).Left = 0
f(1).Top = 0
f(1).Visible = True
f(1).ZOrder
End Sub