Thomas Risi Softwareentwicklung

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

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)