Notifyicon ?

... ved at bruge kode ;)

nej... jeg har noget kode som du gerne må få...

Lave en ny Module (højre killer i projekt vinduet-->Add-->Module



DefInt A-Z

Declare Function Shell_NotifyIconA Lib \"SHELL32\" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function GetVersionEx& Lib \"kernel32.dll\" Alias \"GetVersionExA\" (lpStruct As OsVersionInfo)
Declare Function AbortSystemShutdown& Lib \"advapi32.dll\" Alias \"AbortSystemShutdownA\" (ByVal lpMachineName$)
Declare Function ExitWindowsEx& Lib \"user32\" (ByVal uFlags&, ByVal dwReserved&)
Declare Function GetWindowsDirectory Lib \"kernel32\" Alias \"GetWindowsDirectoryA\" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Global Const MAX_PATH = 260
Public WinPath As String

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

Global Const NIM_ADD = &H0& \'constants & flags for NotifyIcons
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200
Global NI As NOTIFYICONDATA

Type OsVersionInfo
    dwVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatform As Long
    szCSDVersion As String * 128
End Type

Global Const ICONID = 1

Private OsVer As OsVersionInfo
Global Const VER_PLATFORM_WIN32_WINDOWS = 1
Global Const VER_PLATFORM_WIN32_NT = 2

Global Const EWX_FORCE = 4 \'constants needed for exiting Windows
Global Const EWX_LOGOFF = 0
Global Const EWX_REBOOT = 2
Global Const EWX_SHUTDOWN = 1

Trayicon= er ikone du bruger, det er en Picturebox... der har navn Trayicon ;)


NI.cbSize = Len(NI) \'set the length of this structure
NI.hwnd = Trayicon.hwnd \'control to receive messages from
NI.uID = 0 \'uniqueID
NI.uID = NI.uID + 1
NI.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP \'operation flags
NI.uCallbackMessage = WM_MOUSEMOVE \'recieve messages from mouse activities
NI.hIcon = Trayicon.Picture \'the location of the icon to display
NI.szTip = \"Dobbel klik for at lukke windows\" + Chr$(0) \'the tool tip to display
lResult = Shell_NotifyIconA(NIM_ADD, NI) \'add the icon to the system tray
     
Dim lTemp&, sBuffer$, lBufferSize& \'declare the needed variables

sBuffer = Space(145)
lBufferSize = Len(sBuffer)
lTemp = GetWindowsDirectory(sBuffer, lBufferSize) \'get the Windows directory
WinPath = Left$(sBuffer, lTemp) \'set the WinPath string

det der skal du sætte i Formets-load

og husk i Unload at putte=
result = Shell_NotifyIconA(NIM_DELETE, NI)
\'så den sletter ikonet igen...

den her skal du putte i Trayicon:

Private Sub Trayicon_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim Msg As Long
Msg = (X And &HFF) * &H100

Select Case Msg
      Case 0 \'mouse moves
     
      Case &HF00 \'left mouse button down
     
      Case &H1E00 \'left mouse button up
     
      Case &H2D00 \'left mouse button double click
      lResult = ExitWindowsEx(EWX_SHUTDOWN, 0&) \'shut down the computer when mouse is double clicked
      Case &H3C00 \'right mouse button down
      PopupMenu Shutdown \'show the popup menu
      Case &H4B00 \'right mouse button up
     
      Case &H5A00 \'right mouse button double click

End Select
 
End Sub

Simpelt spørgsmål, hvad er et Trayicon ?

Trayicon er et Picturebox du har lavet på dit Form?? hvis du læser op har jeg skrevet det op i teksten... ?

og Putte mener jeg bare sæt det i din Code-vindue..

fico, gi mig din e-mail, så jeg kan sende et eks. til dig ;)

pb@fico.dk

Tak jeg fik det faktisk selv til at virke.

!
Carnage@mail1.stofanet.dk
Jeg har selv prøvet at rode med eksempler fra www.planetsourcecode.com & D kom der
ikke noget godt ud af. Til gengæld ser din løsning mere overskuelig ud, \'vbghost\'
Jeg vil meget gerne modtage et eksempel :)

Cheers, Zim