![]() |
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
|
|
|
|
|
|
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 ]
|
|
|