Moin, hier mal eine Anleitung wie man das Programm in der Taskleiste blinken lassen kann, um z.b. zu zeigen das etwas geschehen ist :D
Also als erstes erstmal ein Modul erstellen.
Alles anzeigen
Nun kann man über den Aufruf
das Programm in der Taskleiste blinken lassen.
Wobei die 5 für die Anzahl steht, wie oft geblinkt wird und 1000 die Blinkgeschwindigkeit in Millisekunden(Bei 0 gilt die Standartgechwindigkeit)
Also als erstes erstmal ein Modul erstellen.
Quellcode
- Private Declare Auto Function FlashWindowEx Lib "user32" _
- (ByRef FWI As FLASHWINFO) As Boolean
- Public Const FLASHW_STOP = 0 'Den Blinkvorgang beenden und zum Originalzustand zurücksetzen
- Public Const FLASHW_CAPTION = &H1 'Die Titelleiste des Fensters blinken lassen
- Public Const FLASHW_TRAY = &H2 'Button in der Taskleiste zum blinken bringen
- Public Const FLASHW_ALL = (FLASHW_CAPTION Or FLASHW_TRAY) 'FLASHW_CAPTION und FLASHW_TRAY werden zusammengeführt
- Private Structure FLASHWINFO 'FLASHWINFO eine Struktur geben
- Dim cbSize As UInt16
- Dim hwnd As IntPtr
- Dim dwFlags As UInt32
- Dim uCount As UInt16
- Dim dwTimeout As UInt32
- End Structure
- ' Mit dieser Funktion kann man ein Fenster blinken lassen um z.B. den Benutzer auf neue aktivität im Programm aufmerksam zu machen.
- Public Sub FlashWindow(ByVal Handle As Integer, ByVal FlashMode As Integer, ByVal FlashCount As Integer, Optional ByVal Speed As Integer = 0)
- Dim FlashInfo As New FLASHWINFO
- FlashInfo.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(FlashInfo)
- FlashInfo.dwFlags = FlashMode
- FlashInfo.dwTimeout = Speed
- FlashInfo.hwnd = Handle
- FlashInfo.uCount = FlashCount
- FlashWindowEx(FlashInfo)
- End Sub
Nun kann man über den Aufruf
das Programm in der Taskleiste blinken lassen.
Wobei die 5 für die Anzahl steht, wie oft geblinkt wird und 1000 die Blinkgeschwindigkeit in Millisekunden(Bei 0 gilt die Standartgechwindigkeit)