Ein kleines Problem Verfasst am: 16.09.2003, 19:57
Ich habe folgenden Code in mein Progamm eingefuegt:
Private Sub cmdSysTray_Click()
Me.Hide
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 = Picture1.Picture
Shell_NotifyIcon NIM_ADD, TIcon
End Sub
Das kalppt aber nur, wenn:
TIcon.hIcon = Picture1.Picture gleich 0
wenn Picture1.Picture <> 0 dann wird dein Icon zum Bar geaddet und danerenfalls ist das Icon ohne Bild.
Registrieren
Login
