footer.cls

来自「汽修厂管理软件」· CLS 代码 · 共 45 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Footer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarFootFont As StdFont '局部复制
Private mvarstrFoot As String '局部复制
Public Property Let strFoot(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.strFoot = 5
    mvarstrFoot = vData
End Property


Public Property Get strFoot() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.strFoot
    strFoot = mvarstrFoot
End Property



Public Property Set FootFont(ByVal vData As StdFont)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.FootFont = Form1
    Set mvarFootFont = vData
End Property


Public Property Get FootFont() As StdFont
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.FootFont
    Set FootFont = mvarFootFont
End Property