title image


Smiley Symbol im Systemtray anzeigen
Hallo Leute,



bei activevb.de habe ich mir ein Beispielprojekt runtergeladen, bzgl.



Icon im Systray setzen.



Funktioniert auch wunderbar.



Private Declare Function Shell_NotifyIcon Lib "shell32" Alias _

"Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As _

NOTIFYICONDATA) As Boolean



Const NIM_ADD As Long = &H0&

Const NIM_MODIFY As Long = &H1&

Const NIM_DELETE As Long = &H2&

Const NIF_MESSAGE As Long = &H1&

Const NIF_ICON As Long = &H2&

Const NIF_TIP As Long = &H4&



Const WM_MOUSEMOVE As Long = &H200&

Const WM_LBUTTONDOWN As Long = &H201&

Const WM_LBUTTONUP As Long = &H202&

Const WM_LBUTTONDBLCLK As Long = &H203&

Const WM_RBUTTONDOWN As Long = &H204&

Const WM_RBUTTONUP As Long = &H205&

Const WM_RBUTTONDBLCLK As Long = &H206&



Private Type NOTIFYICONDATA

cbSize As Long

hWnd As Long

uId As Long

uFlags As Long

ucallbackMessage As Long

hIcon As Long

szTip As String * 64

End Type



Dim TIcon As NOTIFYICONDATA



MIT DEM FOLGENDEN BEFEHL SETZE ICH DAS ICON:



TIcon.cbSize = Len(TIcon)

TIcon.hWnd = Picture1.hWnd

TIcon.uId = 1&

TIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

TIcon.ucallbackMessage = WM_MOUSEMOVE

TIcon.hIcon = Me.Icon

TIcon.szTip = "ICH-BIN-DA-TOOL" & Chr$(0)



Shell_NotifyIcon NIM_ADD, TIcon





Wie kann ich den nun das gesetze ICON im Systemtray ändern???



Wenn ich die oben gennanten Werte ändere und mit dem

Shell_NotifyIcon NIM_MODIFY, TIcon

gibt es als Rückgabewert FALSE



Ich muss also einmal das ICON und den szTip ändern.



Danke schonmal im vorraus:






kind regards Mit freundlichen Grüßen Polat

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: