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:	Views:  15.646
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.