webpage.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 = "WebPage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"No"
#Const DebugMode = 1


#If DebugMode Then
    Private mlClassDebugID As Long
#End If
Private mvarFilename As String
Private mvarResponsible As String
Public Function ReadCode(ByVal Code As String) As Boolean

On Error GoTo 1

Dim rFileName As String, rResponsible As String
Dim CodeBody As String

    CodeBody = Mid(Code, 4)

rFileName = Mid(CodeBody, 1, InStr(1, CodeBody, "&!@#$1") - 1)
rResponsible = Mid(CodeBody, InStr(1, CodeBody, "&!@#$2") + 6)

    Me.FileName = rFileName
    Me.Responsible = rReponsible
    
    ReadCode = True
Exit Function
1
ReadCode = False
End Function
Public Function GenerateCode() As String

GenerateCode = "WPG" & _
             Me.FileName & "&!@#$1" & _
             Me.Responsible

End Function

Public Property Let Responsible(ByVal vData As String)
    mvarResponsible = vData
End Property


Public Property Get Responsible() As String
    Responsible = mvarResponsible
End Property



Public Property Let FileName(ByVal vData As String)
    mvarFilename = vData
End Property


Public Property Get FileName() As String
Attribute FileName.VB_UserMemId = 0
    FileName = mvarFilename
End Property


Private Sub Class_Initialize()
    #If DebugMode Then
        mlClassDebugID = GetNextClassDebugID()
        Debug.Print "'" & TypeName(Me) & "' instance " & mlClassDebugID & " created"
    #End If
End Sub


Private Sub Class_Terminate()
    #If DebugMode Then
        Debug.Print "'" & TypeName(Me) & "' instance " & CStr(mlClassDebugID) & " is terminating"
    #End If
End Sub


#If DebugMode Then
    Public Property Get ClassDebugID()
        ClassDebugID = mlClassDebugID
    End Property
#End If