VB 5/6-Tipp 0002: Blinkende Titelleiste

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Optionsfeld-Steuerelement "Option2"
' Steuerelement: Optionsfeld-Steuerelement "Option1"
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Timersteuerelement "Timer1"

Option Explicit

'Deklaration: Globale Form API-Funktionen
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal bInvert As Long) As Long

Private Sub Command1_Click()
    'Soll das Fenster manuell aufflackern?
    If Option1.Value <> 0 Then
        Call FlashWindow(Form1.hwnd, True)
    Else
        Option1.Value = True
    End If
End Sub

Private Sub Form_Load()
    'Control-Eigenschaften initialisieren
    Timer1.Enabled = True
    Timer1.Interval = 500
    Command1.Caption = "Manueller Schalter"

    Option1.Caption = "Manuell"
    Option2.Caption = "Automatisch"
    Option2.Value = True
End Sub

Private Sub Timer1_Timer()
    'Soll das Fenster automatisch aufflackern?
    If Option2.Value <> 0 Then
        Call FlashWindow(Form1.hwnd, True)
    End If
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------