Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Systray Icon
Autor: sCareIO
Datum: 14.04.04 17:06
Hi, Hier der Code... Dekleration lass ich mal weg ! Load Ereignis 'SYSTRAY ICON With m_nfiIconData .hWnd = Me.hWnd .uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle .szTip = "XLeaner-first edition" & vbNullChar .cbSize = Len(m_nfiIconData) Form1.mnuPopUpShowForm.Enabled = False End With Call Shell_NotifyIcon(NIM_ADD, m_nfiIconData) ----------------------------------------------------------------------------------------------------------- MouseMove Ereignis Dim lngMsg As Single lngMsg = X / Screen.TwipsPerPixelX Select Case lngMsg Case WM_RBUTTONUP Call SetForegroundWindow(frmDummy.hWnd) frmDummy.PopupMenu mnuPopUp, , , , mnuPopUpShowForm Case WM_MOUSEMOVE Case WM_LBUTTONDOWN Case WM_LBUTTONDBLCLK Case WM_RBUTTONDOWN Case WM_RBUTTONDBLCLK Case Else End Select --------------------------------------------------------------------------------------------------------------- Resize Ereignis If Me.WindowState = vbMinimized Then With m_nfiIconData .hWnd = Me.hWnd .uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle .szTip = "XLeaner - first edition" & vbNullChar .cbSize = Len(m_nfiIconData) Me.Hide Form1.mnuPopUpShowForm.Enabled = True End With Call Shell_NotifyIcon(NIM_ADD, m_nfiIconData) ------------------------------------------------------------------------------------------------------------- Wenn ich nun die Form Enabled=false setze, dann kann man das Menü aufklappen...ansonsten aber nicht ! mfg sCareIO

Systray Icon	532	sCareIO	14.04.04 14:15
Re: Systray Icon	270	Dieter	14.04.04 16:04
Re: Systray Icon	277	sCareIO	14.04.04 17:06
Re: Systray Icon	287	Dieter	14.04.04 17:49
Re: Systray Icon	260	sCareIO	14.04.04 18:15

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen