vb用户控件问题

来源:百度知道 编辑:UC知道 时间:2024/05/02 03:38:35
Public Sub RemoveTab(ByVal lIndex As Long)

' Handle Any Errors
On Error GoTo Sub_ErrHandler

Dim Ctl As Control 'Control Default Type
Dim i As Long 'Loop Counter
Dim lTab As Long 'The Computed Tab Number for Each Control
Dim MoveVal As Long 'Computed value to move the controls
Dim lActiveTab 'ActiveTab

' Must have at least one tab ;-)
If m_lTabCount = 1 Then Exit Sub
' Lock the window to improve speed and reduce flicker
LockWindowUpdate UserControl.hwnd
' Save the current tab
lActiveTab = m_lActiveTab
' Set the inital tab to be "0" so that the
' Left values are ordinal to the tab position
ActiveTab = 0
' Loop over all controls
For Each Ctl In UserControl.ContainedControls

声明不对! 用NEW初始化了没!

WebBrowser1(ucXTab1.ActiveTab)表示的是什么

一个webbrowser?一个tabpage?一个有webbrowser的tabpage?

想看看你想表示的是什么,然后看看表示的对不对,

举个例子,你想让张三到你这边来,于是你喊:“李四,过来一下”。

也许有李四这个人,也许根本没有,不管有还是没有,你都无法达到目的