Titelleiste blinken lassen Eine kleine Funktion, um die Aufmerksamkeit des Users auf eine bestimmte Aktion zu lenken.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  10.649
https://www.tools4vb.com	System:  Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

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.

' benötigte Deklarationen
Private Declare Auto Function FlashWindow Lib "user32" ( _
  ByVal hwnd As IntPtr, _
  ByVal bInvert As Integer) As Integer

''' <summary>
''' Lässt die Titelzeile des angegebenen Fensters kurz aufblinken
''' </summary>
''' <param name="hWnd">Handle des Fensters</param>
''' <param name="Count">Gibt an, wie oft die Titelzeile blinken soll</param>
Public Sub Flash(ByVal hWnd As Integer, ByVal Count As Integer)
  For i As Integer = 1 To Count * 2
    FlashWindow(hWnd, True)
 
    ' kurz warten
    Dim Start As Single = Microsoft.VisualBasic.Timer
    Do Until (Microsoft.VisualBasic.Timer) > Start + 0.5
      Application.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 Count gibt die Anzahl an, wie oft die Titelleiste aufblinken soll.

Beispiel:

Private Sub Button1_Click(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles Button1.Click
 
  Flash(Me.Handle.ToInt32, 3)
End Sub