Ich habe einen Button der durch sein Drücken inaktiviert wird.
Ich möchte das dieser sich zu einer bestimmten Uhrzeit wieder aktiviert.
Der Button liegt auf dem Formular "Start" und heißt "Befehl24"
Natürlich muss dieser Button auch aktieviert werden wenn das Programm erst nach 22:30 wieder geöffnent wird
Also brauche ich einen Befehl der sagt:
Code:
'Wenn es 22:30 ist dann
Me.Befehl24.Enabled = True
Danke für eure Hilfe
Hallo,
das könntest du mit dem Timer-Ereignis deines Formulars steuern.
Private Sub Form_Timer()
Dim startzeit As Date
startzeit = #11:30:00 PM#
If Time <= startzeit Then
Me.Befehl24.Enabled = True
End If
End Sub
Timerinterval stellst du z.B. auf 10000 ein (es wird alle 10 Sekunden ausgewertet)
HTH
Hallo Peter,
Zitat'Wenn es 22:30
(oder später)
Zitatist
würde ich aber eher als
If startzeit <= Time Theninterpretieren. Oder hab' ich da jetzt einen
Denkfehler?
gruss ekkehard
Hallo,
kein Denkfehler - MEIN Tipfehler ...
If Time >= startzeit Then
Danggge ...
Hallo,
ZitatNatürlich muss dieser Button auch aktieviert werden wenn das Programm erst nach 22:30 wieder geöffnent wird
Dann funktioniert das nur zwischen 22:30 und 23:59. Nach Datumswechsel beginnt die Zeit wieder bei 00:00 Uhr und die Bedingung ist nicht mehr erfüllt. Die Überwachung geht also nur für 1,5 Std.
Hi,
es fehlt eine globale Variable, in der gespeichert wird, ob der Button schon mal gedrückt wurde.
1. im Modul deklarieren: Public Noch_nicht_gedrueckt as boolean
2. im Formular beim Ereignis "Beim Öffnen": Noch_nicht_gedrueckt = true
3. im Formular beim Ereignis "Bei Klicken" vom Button: Noch_nicht_gedrueckt = false
4. im Formular beim Ereignis "Bei Zeitgeber": Bedingung ersetzen: If Time >= startzeit or Noch_nicht_gedrueckt Then
Sicherer gegen die "Vergeßlichkeit" einer globalen Variable nach Programm-Abstürzen ist es, diesen Wert in eine Tabelle zu schreiben.
Harald