基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 4 元　

支付宝支付

微信支付

   源码介绍

---

    该程序使用VB6.0的MDI窗体 sstab标签控件 picture控件实现分页显示不同窗体的效果，用户点击菜单加载某个子窗体，子窗体自动在标签下显示，标签如果已经有窗体则自动增加一个新标签显示，若用户点击子窗体的关闭按钮，则自动将标签页数量减少，实现模拟不同标签页显示不同窗体效果。

Private Sub LoadFormIntoTab(frmname As String)     '
    Dim iindex As Integer, i As Integer, hasnull As Boolean
    Dim childform As Form
    iindex = FindFrm(frmname)
    If iindex = -1 Then
        Select Case frmname
        Case Form1.Name
            Set childform = Form1
        Case Form2.Name
            Set childform = Form2
        End Select
       ' childform.Show
        iindex = findIndexOfarrayfrmHasNull()
        If iindex >= 0 Then
            SSTab1.Tab = iindex
            Set m_ChildForms(iindex) = childform
        Else
            SSTab1.Tabs = SSTab1.Tabs 1
            m_Flag = True
            SSTab1.Tab = SSTab1.Tabs - 1    '会触发click事件 需不执行
            m_Flag = False
            ReDim Preserve m_ChildForms(0 To (SSTab1.Tabs - 1))
            Set m_ChildForms(SSTab1.Tab) = childform
        End If
    Else
        Set childform = m_ChildForms(iindex)
        SSTab1.Tab = iindex
    End If
    childform.Show vbModeless
    SSTab1.TabCaption(SSTab1.Tab) = childform.Caption
    childform.ZOrder 0
End Sub