Titelleiste blinken lassen Um die Aufmerksamkeit des Anwenders auf eine bestimmte Aktion zu lenken können Sie z.B. die Titelleiste eines Fensters kurz aufblinken lassen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  16.117
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 28 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.4 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Um die Aufmerksamkeit des Anwenders auf eine bestimmte Aktion zu lenken können Sie z.B. die Titelleiste eines Fensters kurz aufblinken lassen.

' zunächst die benötigten Deklarationen
Private Declare Function FlashWindow Lib "user32" ( _
  ByVal hwnd As Long, _
  ByVal bInvert As Long) As Long
 
' Titelleiste blinken lassen
Public Sub Flash(ByVal hWnd As Long, ByVal nCount As Integer)
  Dim tStart As Long
  Dim I As Integer
 
  For I = 1 To nCount
    FlashWindow hWnd, True
    tStart = Timer
    Do Until CLng(Timer) > tStart + 1
      DoEvents
    Loop
  Next I
  FlashWindow hWnd, False
End Sub

Anmerkungen:
Rufen Sie die Prozedur Flash innerhalb Ihres Programms auf, um die Titelleiste kurz aufblinken zu lassen. Der Parameter nCount gibt die Anzahl an, wie oft die Titelleiste aufblinken soll.

Beispiel:

Private Sub Command1_Click()
  Flash Me.hWnd, 3
End Sub