Kontakt

Symbole im Systray erstellen

Mit diesem Programm ist es möglich, Symbole im Systembereich der Taskleiste (neben der Uhr) zu erzeugen. Dadurch können (System-)Programme von der Taskleiste entfernt werden und sind trotzdem noch leicht zugänglich. Für diesen Tipp benötigen Sie das VBFTrayIcon-OCX (Download), das Sie privat kostenlos verwenden dürfen. Dieses müssen Sie dann in ihr Programm einfügen (Menü Projekt->Komponenten->Durchsuchen). Platzieren sie es dann auf einer Form und setzen die Name-Eigenschaft auf tiIcon1. Danach können Sie es folgendermaßen verwenden:

'Die Dateiverzeichnisse müssen u.U. angepasst werden!
Private Sub Form_Load()
  Set tiIcon1.Picture = LoadPicture("C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Computer\Cdrom02.ico")
  tiIcon1.InfoText = "www.visualbasicforum.de"
  tiIcon1.ShowIcon
End Sub

Private Sub Form_Unload(Cancel As Integer)
  tiIcon1.HideIcon
  'Sonst bleibt das Symbol angezeigt!
End Sub

Private Sub Command1_Click()
  'Ändern des Symbols
  Set tiIcon1.Picture = LoadPicture("C:\Programme\Microsoft Visual Studio\Common\Graphics\Icons\Computer\Disk01.ico")
  tiIcon1.ModifyIcon
End Sub

Private Sub tiIcon1_MouseUp(Button As Integer)
  MsgBox "www.visualbasicforum.de"
End Sub


Das Symbol, das an die Picture-Eigenschaft übergeben wird muß ein echtes Symbol sein! Sie können also kein Bitmap mit geänderter Erweiterung verwenden.
Wie Sie u.U. schon gemerkt haben, verfügt das Symbol über kein Click-Ereignis. Sie sollten stattdessen das MouseUp-Ereignis verwenden. Es können bein Klick auch Popupmenüs o.ä. angezeigt werden.