Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
CCounter
Eine kleine (nützliche?) Klasse, die einen Zähler kapselt ...
Option Explicit
Private m_Counter As Long
Public Sub Add()
m_Counter = m_Counter + 1
End Sub
Public Sub Rel()
If Not m_Counter = 0 Then
m_Counter = m_Counter - 1
End If
End Sub
Public Sub Reset()
m_Counter = 0
End Sub
Private Sub Class_Initialize()
m_Counter = 0
End Sub
Public Property Get Value() As Long
Value = m_Counter
End Property
Public Property Let Value(newValue As Long)
If newValue >= 0 Then
m_Counter = newValue
Else
m_Counter = 0
End If
End Property
© 2001 -
by Thomas Risi