Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: 3 kleine Fragen,BITTE beantworten
Autor: Daniel001
Datum: 26.05.05 01:52
Private Sub Form_Resize() If Me.WindowState = vbMinimized Then Me.Visible = False ' Symbol der Anwendung zum SysTray hinzufügen 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 = Me.Caption & vbNullChar End With Shell_NotifyIcon NIM_ADD, nid ' Anwendung jetzt "verstecken" Me.Hide Else Me.Visible = True End If End Sub Private Sub cmdHide_Click() ' Symbol der Anwendung zum SysTray hinzufügen 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 = Me.Caption & vbNullChar End With Shell_NotifyIcon NIM_ADD, nid ' Anwendung jetzt "verstecken" Me.Hide End Sub Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) ' Das MouseMove Ereignis wird ausgelöst, wenn die ' Maus über das Symbol im Systray geführt wird Dim lMsg As Long Dim sFilter As String lMsg = X / Screen.TwipsPerPixelX Select Case lMsg Case WM_LBUTTONDOWN ' linke Maustaste wird gedrückt Case WM_LBUTTONUP ' linke Maustaste wird losgelassen Case WM_LBUTTONDBLCLK Me.Show Shell_NotifyIcon NIM_DELETE, nid ' linke Maustaste - Doppelklick Case WM_RBUTTONDOWN ' rechte Maustaste wird gedrückt Case WM_RBUTTONUP ' rechte Maustaste wird losgelassen ' (jetzt z.B. Popup-Menü öffnen) PopupMenu MenuPopUp Case WM_RBUTTONDBLCLK ' rechte Maustaste - Doppeklick End Select End Sub Private Sub mnuPopUp_Click(Index As Integer) ' Symbol aus dem Systray entfernen Shell_NotifyIcon NIM_DELETE, nid Select Case Index Case 0 ' Wiederherstellen Me.Show Case 1 ' Beenden End End Select End Sub Private Sub Form_Unload(Cancel As Integer) ' Symbol aus dem Systray entfernen, ' wenn das Programm beended wird Shell_NotifyIcon NIM_DELETE, nid End Sub Private Sub sdgsertg_Click() End Sub ------------------------------------------------------------------------------------------------------- und noch das module habe ich auch eingefügt, trotzdem funktioniert es nicht wie Brave es sagte, wenn ich doppelt drauf klicke verschwindet das icon aber das programm wird nicht angezeigt, wenn ich es aber mit dem command1 trace geht es einwandfrei, mit dem ( _ ) geht es nicht, habe ich etwas falsch gemacht? Mfg

3 kleine Fragen,BITTE beantworten	693	Daniel001	24.05.05 22:49
Re: 3 kleine Fragen,BITTE beantworten	412	mst547	24.05.05 23:00
Re: 3 kleine Fragen,BITTE beantworten	404	Daniel001	24.05.05 23:30
Re: 3 kleine Fragen,BITTE beantworten	369	Daniel001	24.05.05 23:31
Re: 3 kleine Fragen,BITTE beantworten	375	Hutti	25.05.05 00:37
Re: 3 kleine Fragen,BITTE beantworten	386	mst547	25.05.05 08:14
Re: 3 kleine Fragen,BITTE beantworten	387	Daniel001	25.05.05 14:26
Re: 3 kleine Fragen,BITTE beantworten	360	brave@heart	25.05.05 17:25
Re: 3 kleine Fragen,BITTE beantworten	360	Daniel001	26.05.05 01:52
Re: 3 kleine Fragen,BITTE beantworten	370	brave@heart	26.05.05 11:21
Re: 3 kleine Fragen,BITTE beantworten	363	Daniel001	29.05.05 00:49
Re: 3 kleine Fragen,BITTE beantworten	373	brave@heart	29.05.05 12:47
Re: 3 kleine Fragen,BITTE beantworten	381	Daniel001	29.05.05 15:54

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