浏览器

开发平台：

Visual Basic

cLBrowser.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cLBrowser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : cLBrowser
' DateTime  : 2005-4-16 12:31
' Author    : Lingll
' Purpose   : 记录每个页面相关数据
'---------------------------------------------------------------------------------------
Option Explicit
Public StatusText As String
Public Progress As String
Public webForm As frmBrowser
Public TabBtn As cButton
Public Tag As String
Private m_Hided As Boolean
Private mIndexWhenHide&
Private mTagLWhenHide&
Private mBtnBar As cButtonBar
Public Sub IniMe(BtnBar As cButtonBar, Optional vNewForm As frmBrowser)
If vNewForm Is Nothing Then
    Set vNewForm = New frmBrowser
End If
Set webForm = vNewForm
Set mBtnBar = BtnBar
m_Hided = False
End Sub
Public Property Get Hided() As Boolean
Hided = m_Hided
End Property
Public Property Let Hided(ByVal vNewValue As Boolean)
If m_Hided <> vNewValue Then
    m_Hided = vNewValue
    If Not mBtnBar Is Nothing Then
        If m_Hided Then
            
            mIndexWhenHide = TabBtn.index
            mTagLWhenHide = TabBtn.TagL
            mBtnBar.RemoveByIndex mIndexWhenHide
            webForm.Visible = False
        Else
            Set TabBtn = mBtnBar.Add(webForm.GetWebTitle, , mTagLWhenHide, , mIndexWhenHide)
            webForm.Visible = True
            mIndexWhenHide = 0
            mTagLWhenHide = 0
        End If
    End If
End If
End Property
Private Sub Class_Terminate()
Set webForm = Nothing
Set TabBtn = Nothing
Set mBtnBar = Nothing
End Sub

						