clsrowtype.cls

一个用VB写的财务软件源码

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsRowType"
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" ,"Yes"
Option Explicit

'保持属性值的局部变量
Private mvarHigh As Double '局部复制
Private mvarFontName As String '局部复制
Private mvarFontSize As Integer  '局部复制
Public Property Let FontSize(ByVal vData As Integer)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.FontSize = 5
    mvarFontSize = vData
End Property

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

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

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

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

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

Public Sub Clone(ByRef o As clsRowType)
With Me
    .FontName = o.FontName
    .FontSize = o.FontSize
    .High = o.High
End With
End Sub

Public Sub SaveSettings(ByVal AppName As String, ByVal Section As String)
    SaveSetting AppName, Section, "FontName", Me.FontName
    SaveSetting AppName, Section, "FontSize", Me.FontSize
    SaveSetting AppName, Section, "High", Me.High
End Sub

Public Sub GetSettings(ByVal AppName As String, ByVal Section As String)
    Dim o As New clsRowType
    o.FontName = GetSetting(AppName, Section, "FontName", "")
    o.FontSize = GetSetting(AppName, Section, "FontSize", 0)
    o.High = GetSetting(AppName, Section, "High", 0)
    If o.FontName <> "" Then Me.FontName = o.FontName
    If o.FontSize <> 0 Then Me.FontSize = o.FontSize
    If o.High <> 0 Then Me.High = o.High
End Sub