header.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 = "Header"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mvarstrHeader As String '局部复制
Private mvarHeadFont As StdFont '局部复制
Public Property Set HeadFont(ByVal vData As StdFont)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.HeadFont = Form1
    Set mvarHeadFont = vData
End Property


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



Public Property Let strHeader(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.strHeader = 5
    mvarstrHeader = vData
End Property


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