style.cls

来自「通用书店管理系统」· CLS 代码 · 共 36 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Style"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Content As Variant
Public FontBold As Boolean
Public FontItalic As Boolean
Public FontUnderline As Boolean
Public FontSize As Double
Public FontName As String
Public ForeColor As Long
Public LayOut As String
Public Hwnd As Long
Public Separation As String

Private Sub Class_Initialize()
    Content = ""
    FontBold = False
    FontItalic = False
    FontSize = 10
    FontName = "宋体"
    ForeColor = vbBlack
    Separation = "|"
End Sub