![]() |
|
Tipp 0110
|
Programm als blinkendes Icon im SystemTray
|
 |
|
Autor/Einsender:
Datum: |
|
Michael Werner
11.03.2006 |
|
| Entwicklungsumgebung: |
|
VB.Net 2003 |
| Framework: |
|
1.1 |
|
|
|
Wer kennt sie nicht, die kleinen Symbole unten rechts in der Taskleiste. Dieser Tipp demonstriert, wie mit zwei unterschiedlichen Icons und
einem Timer das SystemTray-Symbol in der Windows-Taskleiste bei minimiertem Fenster auch blinken kann.
|
|
Neben dem Anzeigen eines PopUp-Menüs, dem Erkennen von Klick, Doppelklick, der Unterscheidung zwischen der linken und rechten Maustaste,
ist auch auch die Anzeige eines Tool-Tipps möglich.
|
|
| |
Private ic As Icon = New Icon("../vbfunicon.ico")
Private ic1 As Icon = New Icon("../vbfunicon1.ico")
Private Sub NotifyIcon1_MouseDown(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles NotifyIcon1.MouseDown
If e.Button = MouseButtons.Left Then
Me.Show()
Me.WindowState = FormWindowState.Normal
Timer1.Enabled = False
NotifyIcon1.Icon = ic
End If
End Sub
Private Sub Form1_Resize(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles MyBase.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.Hide()
NotifyIcon1.Visible = True
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
Static IsStandard As Boolean
IsStandard = Not IsStandard
If IsStandard Then
NotifyIcon1.Icon = ic1
Else
NotifyIcon1.Icon = ic
End If
End Sub
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (7,5 kB)
|
Downloads bisher: [ 723 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 