---
title: "Ikon vid \"klockan\"?!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/27621-ikon-vid-klockan"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "erik_nordell"
published: "2001-07-09T11:59:00.000Z"
updated: "2002-05-04T08:29:33.000Z"
replies: 8
views: 578
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/27621-ikon-vid-klockan"
---

# Ikon vid "klockan"?!

## #1 — erik_nordell, 2001-07-09T11:59Z

Hur får jag en ikon bredvid klockan i aktivitetsfältet?!
Tex så som icq har?!
Hur gör man detta?!

Permalänk: https://www.webforum.nu/p/27621

## #2 — yohpops, 2001-07-26T07:53Z

du får använda api..

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias " Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
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

Permalänk: https://www.webforum.nu/p/396531

## #3 — OveRRidE, 2001-08-06T21:44Z

Kan nån utveckla det där lite?

Jag är ingen höjdare på VB men jag får ialla fall:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Compile error: Only comments may appear after Sub End, End Function, or End Property

:q

Permalänk: https://www.webforum.nu/p/396532

## #4 — fredrik, 2001-08-07T08:10Z

Du använder API.t på följande sätt.
Först lite deklarationer (alla konstanter används inte här, men de är bra att ha om du ska modda koden).
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDBLCLK = &H203
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONDBLCLK = &H206
Private Const WM_RBUTTONDOWN = &H204
Private Const WM_RBUTTONUP = &H205
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 mtIconData          As NOTIFYICONDATA
Dim mnLight             As Integer
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Long

Kod för att lägga till ikonen:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
    With mtIconData
        .cbSize = Len(mtIconData)
        .hWnd = Me.hWnd
        .uCallbackMessage = WM_MOUSEMOVE
        .uID = 1&
        .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
        .hIcon = imgTrayIcon(0).Picture
        .szTip = "Text..." & Chr$(0)
        If Shell_NotifyIcon(NIM_ADD, mtIconData) = 0 Then
            MsgBox "Kunde inte lägga till ikonen i sysTray!"
        End If
    End With

...och lite kod för att ta bort den efter sig:
\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>Kod:\<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600"\>
If Shell_NotifyIcon(NIM_DELETE, mtIconData) = 0 Then
        MsgBox "Kunde inte ta bort ikonen från sysTray!"
End If

Den ikonen som ska visas lägger du i en picture-box som du förslagsvis gör "visible=false". Picture-boxen ska heta imgTrayIcon och ha index 0. Det du skriver efter "szTip" blir den text som står när du håller musen över ikonen.

Permalänk: https://www.webforum.nu/p/396533

## #5 — OveRRidE, 2001-08-07T10:59Z

Tack! 

Jag skall hem o testa när jag jobbat klart. 

Får inte leka på jobbitd för chefen :e

Permalänk: https://www.webforum.nu/p/396534

## #6 — erik_nordell, 2002-04-04T18:09Z

det fungerar bra...
men jag har lite fler frågor =)
hur gör man för att "mitt program" ska öppnas när jag klickar på ikonen? dvs... så programmet får focus typ....

?!?!

Permalänk: https://www.webforum.nu/p/638040

## #7 — Picklezz, 2002-04-10T15:43Z

fönsternamn.zorder = "0"

Permalänk: https://www.webforum.nu/p/640923

## #8 — erik_nordell, 2002-05-01T14:15Z

Får det inte att funka.... 
ser ut såhär:
Private Sub Command3_Click()
If Shell_NotifyIcon(NIM_DELETE, mtIconData) = 0 Then
End If

With mtIconData
.cbSize = Len(mtIconData)
.hWnd = Me.hWnd
.uCallbackMessage = WM_MOUSEMOVE
.uID = 1&
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.hIcon = imgTrayIcon(1).Picture
.szTip = "Du är inloggad som erik_nordell" & Chr$(0)
Form1.ZOrder = "0"
If Shell_NotifyIcon(NIM_ADD, mtIconData) = 0 Then
End If
End With
End Sub

Permalänk: https://www.webforum.nu/p/663642

## #9 — Varj, 2002-05-04T08:29Z

Me.ZOrder (0)  ska det visst vara istället
jag använde bara Me.SetFocus men zorder verkar mycket bättre :) tack för tipset

Permalänk: https://www.webforum.nu/p/665469

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/27621-ikon-vid-klockan