Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0433: Standard VB-Timer auch in ActiveX-DLLs nutzen

VB 5/6-Tipp 0433: Standard VB-Timer auch in ActiveX-DLLs nutzen

 von Sebastian Klose

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,41 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'-------------- Anfang Projektdatei Timer.vbp  --------------
'------ Anfang Formular "frmTimer" alias frmTimer.frm  ------
' Steuerelement: Timersteuerelement "Timer"
Option Explicit

Public Event Timer()

Private Sub Timer_Timer()
    
    If Timer.Enabled Then
        RaiseEvent Timer
    End If
    
End Sub

'------- Ende Formular "frmTimer" alias frmTimer.frm  -------
'-------- Anfang Klasse "xTimer" alias clsTimer.cls  --------
Option Explicit

Private m_Interval          As Long
Private m_Enabled           As Boolean

'********

Dim WithEvents CTimer       As frmTimer

'********

Public Event Timer()

Public Property Get Enabled() As Boolean
    
    Enabled = m_Enabled
    
End Property

Public Property Let Enabled(ByVal NewValue As Boolean)
    
    m_Enabled = NewValue
    CTimer.Timer.Enabled = NewValue
    
End Property

Public Property Get Interval() As Long
    
    Interval = m_Interval
    
End Property

Public Property Let Interval(ByVal lNewValue As Long)
    
    m_Interval = lNewValue
    CTimer.Timer.Interval = lNewValue
    
End Property

Private Sub Class_Initialize()
    Set CTimer = New frmTimer
    Interval = 0
    Enabled = True
End Sub

Private Sub Class_Terminate()
    Set CTimer = Nothing
End Sub

Private Sub CTimer_Timer()
    
    RaiseEvent Timer
    
End Sub

'--------- Ende Klasse "xTimer" alias clsTimer.cls  ---------
'--------------- Ende Projektdatei Timer.vbp  ---------------

Archivierte Nutzerkommentare 

Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.