|
Registrieren
Login  |
MfG |
|||||||||||||||||||||||||||||||||||||||||||||||||||
Überflieger
Anmeldedatum: 01.05.2008
Beiträge: 699
Verfasst am: 27.05.2008, 18:19 |
|
| SystemTray Modul: Visual Basic: [code]Option Explicit ' alle benötigten API-Deklarationen Public Declare Sub keybd_event Lib "user32" _ (ByVal bVk As Byte, ByVal bScan As Byte, _ ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const KEYEVENTF_KEYUP = &H2 Public Const VK_LWIN = &H5B Public 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 Public Const NIM_ADD = &H0 Public Const NIM_MODIFY = &H1 Public Const NIM_DELETE = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_ICON = &H2 Public Const NIF_TIP = &H4 Public Const WM_MOUSEMOVE = &H200 ' Konstanten für linke Maustaste Public Const WM_LBUTTONDBLCLK = &H203 ' Doppelklick Public Const WM_LBUTTONDOWN = &H201 ' Maus gedrückt Public Const WM_LBUTTONUP = &H202 ' Maus losgelassen ' Konstanten für rechte Maustaste Public Const WM_RBUTTONDBLCLK = &H206 ' Doppelklick Public Const WM_RBUTTONDOWN = &H204 ' Maus gedrückt Public Const WM_RBUTTONUP = &H205 ' Maus losgelassen Public Declare Function Shell_NotifyIcon Lib _ "shell32" Alias "Shell_NotifyIconA" ( _ ByVal dwMessage As Long, _ pnid As NOTIFYICONDATA) As Boolean Public nid As NOTIFYICONDATA [/code] Aufruf: In den Systray: Visual Basic: [code] With nid .cbSize = Len(nid) .hWnd = Me.hWnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .uCallBackMessage = WM_MOUSEMOVE .hIcon = Me.Icon .szTip = "Tooltip blabla" End With Shell_NotifyIcon NIM_ADD, nid Me.Visible = False[/code] Und wieder raus: Visual Basic: [code]Shell_NotifyIcon NIM_DELETE, nid Me.Visible = True[/code] |
|
Newbie
Anmeldedatum: 23.05.2008
Beiträge: 2
Verfasst am: 27.05.2008, 21:35 |
|
(ReED;3050) Hallo Andreas, bitte achte das nächste mal auf den Bereich in dem die Frage gestellt wurde. Dieser lässt sich aus dem Pfad auslesen, der oberhalb des Posts steht. | |
