Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Minimieren des Programms
Autor: alert
Datum: 19.09.02 15:25
Hallo Legolas, kannst ja mal dies versuchen wenn du magst. gruß, alert 'Programm als Icon in den Systray neben der Uhr ablegen! ' 'Zubehör: '1 Form = Form1 (darf aber auch anders heißen) '1 CommandButton = Command1 ' 'Zunächst der Form-Eigenschaft ein Icon zuordnen ' 'Mit einem Klick auf den Command1 Button legt sich 'die Form als Icon im Systray neben der Uhr ab, und 'kann mit Doppelklick auf das Icon wieder maximiert werden. Option Explicit Private Const WM_LBUTTONDBLCLK = &H203 Private Const WM_RBUTTONUP = &H205 Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIF_MESSAGE = &H1 Private Const NIM_DELETE = &H2 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const WM_MOUSEMOVE = &H200 Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 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 TrayIcon As NOTIFYICONDATA Private Sub Command1_Click() App.TaskVisible = False Me.Hide With TrayIcon .cbSize = Len(TrayIcon) .hWnd = Me.hWnd .uId = vbNull .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE .ucallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon .szTip = "Beispieltooltip" & Chr$(0) 'ToolTip-Text End With Call Shell_NotifyIcon(NIM_ADD, TrayIcon) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Message As Long Static RR As Boolean Message = X / Screen.TwipsPerPixelX If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 'Links-Klick --> Fenster Maximieren Me.Show End Select RR = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) With TrayIcon .cbSize = Len(TrayIcon) .hWnd = Me.hWnd .uId = vbNull End With Call Shell_NotifyIcon(NIM_DELETE, TrayIcon) End Sub

Minimieren des Programms	95	Legolas	19.09.02 12:06
Re: Minimieren des Programms	254	Dieter	19.09.02 12:44
Re: Noch ein Problem Minimieren des Programms	54	Legolas	19.09.02 14:24
Re: Noch ein Problem Minimieren des Programms	231	Dieter	19.09.02 14:25
Re: Noch ein Problem Minimieren des Programms	56	Legolas	19.09.02 14:29
Re: Minimieren des Programms	51	alert	19.09.02 13:19
Re: Minimieren des Programms	53	alert	19.09.02 15:25

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