Diese Seite wurde zuletzt aktualisiert am 21.09.1999
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicAddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für den Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zur AVB-Web-Site, Kontakt und Impressum

Zurück...

Zurück...


Anzeige

Code des Beispiel-Projekts avbTimerExOCXTest

Private Sub chkEnabled_Click()
  TimerEx.Enabled = CBool(chkEnabled.Value)
  lblEvent.Caption = 0
End Sub

Private Sub cmdExit_Click()
  Unload Me
End Sub

Private Sub optIntervalUnit_Click(Index As Integer)
  TimerEx.IntervalUnit = Index
  lblEvent.Caption = 0
End Sub

Private Sub TimerEx_Timer()
  With lblEvent
    Beep
    .Caption = Val(.Caption) + 1
  End With
End Sub

Private Sub txtInterval_Change()
  Static sLastText As String
  Static sInProc As Boolean
  
  If sInProc Then
    Exit Sub
  Else
    sInProc = True
  End If
  With txtInterval
    .Text = Replace(.Text, ".", "")
    If CBool(Len(.Text) = 0) Or IsNumeric(.Text) Then
      sLastText = .Text
      TimerEx.Interval = Val(.Text)
      lblEvent.Caption = 0
    Else
      Beep
      .Text = sLastText
    End If
    If Len(.Text) = 0 Then
      .Text = "0"
    End If
    If .Text = "0" Then
      .SelStart = 0
      .SelLength = 1
    End If
  End With
  sInProc = False
End Sub

Private Sub txtInterval_GotFocus()
  With txtInterval
    .SelStart = 0
    .SelLength = Len(.Text)
  End With
End Sub

Private Sub txtInterval_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case vbKey0 To vbKey9, vbKeyBack
    Case Else
      KeyAscii = 0
  End Select
End Sub


Zurück zu "Gut Timer will Weile haben" Zurück zum Text   


Komponenten-Übersicht

Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer

Visual Basic
ABOUT Visual Basic
Visual
Basic
Programmieren
Programmierung
VB
VBA
Visual Basic for Applications
VBS
VBScript
Scripting
Windows
ActiveX
COM
OLE
API
Computer
PC
Microsoft Office
Microsoft
Office 97
Office 2000
Access
Word
Winword
Excel
Outlook
Addins
ASP
Active Server Pages
COMAddIns
ActiveX-Controls
OCX
UserControl
UserDocument
Komponenten