clsfzhead.cls

来自「一个用VB写的财务软件源码」· CLS 代码 · 共 80 行

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

Private sDefault As String
Private sCode As String
Private sCaption As String
Private sType As String
Private sStyle As String
Private iWidth As Integer
Private iDefault As Integer

Public Property Get uDefault() As String
uDefault = sDefault
End Property

Public Property Let uDefault(ByVal vNewValue As String)
sDefault = vNewValue
End Property

Public Property Get uWidth() As Integer
uWidth = iWidth
End Property

Public Property Let uWidth(ByVal vNewValue As Integer)
iWidth = vNewValue
End Property

Public Property Get uDefaultWidth() As Integer
uDefaultWidth = iDefault
End Property

Public Property Let uDefaultWidth(ByVal vNewValue As Integer)
iDefault = vNewValue
End Property

Public Property Get uCode() As String
uCode = sCode
End Property

Public Property Let uCode(ByVal vNewValue As String)
sCode = vNewValue
End Property


Public Property Get uCaption() As String
uCaption = sCaption
End Property

Public Property Let uCaption(ByVal vNewValue As String)
sCaption = vNewValue
End Property

Public Property Get uType() As String
uType = sType
End Property

Public Property Let uType(ByVal vNewValue As String)
sType = vNewValue
End Property

Public Property Get uStyle() As String
uStyle = sStyle
End Property

Public Property Let uStyle(ByVal vNewValue As String)
sStyle = vNewValue
End Property