Tipp 0009 Titelleiste blinken lassen
Autor/Einsender:
Datum:
  Detlev Schubert
13.01.2001
Entwicklungsumgebung:   VB 5
Durch das Blinken der Titelleiste kann der Anwender auf einen bestimmten Status aufmerksam gemacht oder gewarnt werden.
Der Parameter hWnd der API-Funktion FlashWindow übergibt das Handle des Fensters. Der zweite Parameter wird auf True gesetzt, um die Titelleiste blinken zu lassen oder auf False, um den Normalzustand wieder herzustellen. Um ein Blinken zu erreichen, muss die Funktion wiederholt aufgerufen werden (wie im Beispiel am Besten mit einem Timer).
Code im Codebereich des Moduls
 
Option Explicit

'16 bit
Declare Function FlashWindow Lib "user" (ByVal hwnd As Integer, _
        ByVal bInvert As Integer) As Integer

'32 bit
Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _
        ByVal bInvert As Long) As Long
 
Code im Codebereich der Form
 
Option Explicit

Private Sub Timer1_Timer()
  Static TrueFalse As Boolean

  TrueFalse = False Xor -1
  FlashWindow Form1.hwnd, TrueFalse
End Sub

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 0
      Command1(0).Visible = False
      Timer1.Enabled = True
    Case Else
      Timer1.Enabled = False
      Command1(0).Visible = True
      FlashWindow Form1.hwnd, False
  End Select
End Sub
 
Weitere Links zum Thema
Laufschrift in der Titelleiste
Titelzeile zentrieren
Hinweis
Diese Funktion hat unter Windows 3.x und Windows NT 3.51 bei minimierten Fenstern keine Wirkung.

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2,1 kB) Downloads bisher: [ 1774 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011