Rubrik: Access | VB-Versionen: VBA | 21.03.08 |
Blinkende Schaltfläche (Access) Durch Blinken einer Schaltfläche den Anwender auf wichtige Informationen aufmerksam machen. | ||
Autor: Richard Mittelstädt | Bewertung: | Views: 19.174 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Dieser Code zeigt, wie man mit wenig Aufwand eine blinkende Schaltfläche realisiert, um den Anwender auf bestimmte (meinst auch wichtige) Informationen aufmerksam zu machen.
Effekt:
- Beim Öffnen des Formulars blinkt hinter der "wichtigen" Schaltfläche ein Rechteck (blinkende Umrahmung).
- Die Frequenz des Blinkens nimmt zu.
- Nach z.B. 10 Sekunden verschwindet das hinweisende Blinken.
- Das Blinken verschwindet auch, wenn man auf die Schaltfläche klickt.
- Dadurch wird die Aufmerksamkeit des Anwenders auf wirklich Wichtiges gelenkt.
Benötigte "Werkzeuge":
- Timer-Ereignis des Formulars
- Rechteck im Formular
Aufwand:
- gering, Codes in 3 Sub-Prozeduren des Formulars
Und hier code Code für die Access-Datenbank:
' Formular-Timer Private Sub Form_Timer() Dim T_DIFF T_DIFF = Me.TimerInterval * 0.95 If T_DIFF < 20 Then Me.TimerInterval = 0 ' Blinken-Hinweis-Rechteck aus ! Me![Rechteck_INFOBlinkt].Visible = False Else Me.TimerInterval = T_DIFF ' Blink-Intervall schneller ! Me![Rechteck_INFOBlinkt].Visible = Not Me![Rechteck_INFOBlinkt].Visible End If End Sub
' Formular-Beim Öffnen Private Sub Form_Open(Cancel As Integer) Me.OnTimer = "[Event Procedure]" ' Absichern, falls ander gespeichert Me.TimerInterval = 1000 ' Timer aktivieren ' Weitere Code... End Sub
' Beim Klick auf die "blinkende" Schaltfläche... Private Sub Befehl_INFO_Click() Me.TimerInterval = 0 ' Blinken aus ! Me![Rechteck_INFOBlinkt].Visible = False ' verstecken ' Weitere Code... End Sub