vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Re: Vorgegebende Zeit zurückzählen 
Autor: Marcus W
Datum: 13.12.03 02:50

Hi,

sorry. Hab ich falsch verstanden. Jetzt aber richtig:
Option Explicit
 
' im Deklarationsbereich
Dim OldCaption As String
 
Private Sub Command1_Click()
  With Command1
    OldCaption = .Caption
    .Caption = "00:10:00"
    .Enabled = False
  End With
 
  With Timer1
    .Interval = 1000
    .Enabled = True
  End With
End Sub
 
Private Sub Timer1_Timer()
  Command1.Caption = DateAdd("s", -1, Command1.Caption)
 
  If Command1.Caption = "00:00:00" Then
    Timer1.Enabled = False
 
    With Command1
      .Enabled = True
      .Caption = OldCaption
    End With
  End If
End Sub
Die Enabled-Eigenschaft solltest Du während des Coutndowns auf False lassen, da sonst ein Klick darauf möglich ist. Die Folge wäre ein erneuter Durchlauf des Codes.

Wenn Du das nicht möchtest, kannst Du es auch so machen
(die entsprechenden Änderungen sind fett hervorgehoben)
' im Deklarationsbereich
Dim OldCaption As String
 
Private Sub Command1_Click()
  With Command1
    If .Tag = "aktiv" Then Exit Sub
 
    OldCaption = .Caption
    .Caption = "00:10:00"
    .Tag = "aktiv"
  End With
 
  With Timer1
    .Interval = 1000
    .Enabled = True
  End With
End Sub
 
Private Sub Timer1_Timer()
  Command1.Caption = DateAdd("s", -1, Command1.Caption)
 
  If Command1.Caption = "00:00:00" Then
    Timer1.Enabled = False
 
    With Command1
      .Enabled = True
      .Caption = OldCaption
      .Tag = ""
    End With
  End If
End Sub

Gruß
Marcus

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Vorgegebende Zeit zurückzählen1.515Prof. Einstein12.12.03 03:33
Re: Vorgegebende Zeit zurückzählen1.083Marcus W12.12.03 07:14
Re: Vorgegebende Zeit zurückzählen1.000Prof. Einstein12.12.03 14:09
Re: Vorgegebende Zeit zurückzählen1.049Marcus W13.12.03 02:50
Re: Vorgegebende Zeit zurückzählen928Prof. Einstein15.12.03 00:43
Re: Vorgegebende Zeit zurückzählen1.024Prof. Einstein15.12.03 01:08
Re: Vorgegebende Zeit zurückzählen1.009Marcus W15.12.03 08:23
Re: Vorgegebende Zeit zurückzählen939Prof. Einstein16.12.03 01:48
Re: Vorgegebende Zeit zurückzählen923Marcus W16.12.03 21:06

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel