cvessel.cls

来自「这是一个实际的工程中所用的源程序」· CLS 代码 · 共 43 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CVessel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mKey As String
Private mCang As Double
Public Sub Push(ByVal vNewData As Double)
    mCang = mCang + vNewData
    If Timer Mod 600 = 0 Then '10分
        Call SaveCang
    End If
End Sub
Public Function Pop() As Double
    Pop = mCang
    mCang = 0
    Call SaveCang
End Function
Public Property Get Cang() As Double
    Cang = mCang
End Property
Public Property Let Cang(ByVal vNewData As Double)
    mCang = vNewData
    Call SaveCang
End Property

Public Sub init(ByVal vKey As String)
    mKey = vKey
    mCang = Val(SetReg.GetSettingStr(Sc_Cang, mKey, 0))
End Sub
Private Sub SaveCang()
    Call SetReg.SaveSettingStr(Sc_Cang, mKey, mCang)
End Sub