Vis Ikon i Tray

systray, taskbar  eller task-manager ????

ehm - systray ... i guess... aller nederst i højre hjørne ... hvor det der lille \"Lyd Ikon\" også er! :o]

der er mange der efterlyser det - jeg tror det er 3 gang den her uge :0) - nå men du kan hente et lille program jeg har lavet (med kildekode) på www.friserverplads.dk/jelzin101/experten.ace
eller
www.friserverplads.dk/jelzin101/experten.zip

- du skal bare være opmærksom på at funktionen kræver en picturebox (jeg har bare placeret den yderligt på formen og så formindsket den....

hvis du har problemer med det så bare spørg igen.

//Jelzin101

Den er helt fjong - men når man vil \"poppe den op igen\" så bliver ikonet i trayen..
Det ska\' forsvinde når man klikker på det

det er faktisk nemt nok.... bare indsæt koden fra query_unload i en ny sub og indsæt den under de events hvor den skal fjernes her kommer hele koden efter at den er ændret :
\'Written By Stephan Marc Hansen 040901
\' Copyright (C) 2001, All rights reserved
Dim Knap(0 To 17) As String
Dim Keyk(0 To 17)
Dim Knappen As String
Dim interval As Integer

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

Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4

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 Declare Function Shell_NotifyIcon Lib \"shell32\" Alias \"Shell_NotifyIconA\" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim t As NOTIFYICONDATA
Private Sub Combo1_Click()
Knappen = Keyk(Combo1.ListIndex)
End Sub

Private Sub endprg_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim i
AutoSize = True
Knap(0) = \"F1\": Keyk(0) = \"{F1}\"
Knap(1) = \"F2\": Keyk(1) = \"{F2}\"
Knap(2) = \"F3\": Keyk(2) = \"{F3}\"
Knap(3) = \"F4\": Keyk(3) = \"{F4}\"
Knap(4) = \"F5\": Keyk(4) = \"{F5}\"
Knap(5) = \"F6\": Keyk(5) = \"{F6}\"
Knap(6) = \"F7\": Keyk(6) = \"{F7}\"
Knap(7) = \"F8\": Keyk(7) = \"{F8}\"
Knap(8) = \"F9\": Keyk(8) = \"{F9}\"
Knap(9) = \"F10\": Keyk(9) = \"{F10}\"
Knap(10) = \"F11\": Keyk(10) = \"{F11}\"
Knap(11) = \"F12\": Keyk(11) = \"{F12}\"
Knap(12) = \"Backspace\": Keyk(12) = \"{BKSP}\"
Knap(13) = \"Break\": Keyk(13) = \"{BREAK}\"
Knap(14) = \"Caps Lock\": Keyk(14) = \"{CAPSLOCK}\"
Knap(15) = \"DEL\": Keyk(15) = \"{DELETE}\"
Knap(16) = \"DOWN\": Keyk(16) = \"{DOWN}\"
Knap(17) = \"END\": Keyk(17) = \"{END}\"
For i = 0 To UBound(Knap)
Combo1.AddItem Knap(i)
Next i
Combo1.ListIndex = 0
End Sub
Private Sub minimitotray_Click()
    t.cbSize = Len(t)
    t.hWnd = pichook.hWnd
    t.uId = 1&
    t.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
    t.ucallbackMessage = WM_MOUSEMOVE
    t.hIcon = Me.Icon
    t.szTip = \"The Dino Program\" & Chr$(0)
    Shell_NotifyIcon NIM_ADD, t
    Me.Hide
    App.TaskVisible = False
End Sub
Private Sub startprg_Click()
If startprg.Caption = \"&Start\" Then
interval = (Val(Text1.Text)) * 1000
startprg.Caption = \"s&Top\"
Timer1.Enabled = True
Else
startprg.Caption = \"&Start\"
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Timer()
SendKeys (Knappen)
End Sub
Private Sub VScroll1_Change()
Text1.Text = VScroll1.Value
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Remove_Ikon
End Sub
Private Sub mnuMain_Click(index As Integer)
    Unload Me
End Sub
Private Sub Mnugendan_Click(index As Integer)
  Me.Show
End Sub
Private Sub pichook_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Static rec As Boolean, msg As Long
    msg = X / Screen.TwipsPerPixelX
    If rec = False Then
        rec = True
        Select Case msg
            Case WM_LBUTTONDBLCLK:
                Me.Show
                Remove_Ikon
            Case WM_LBUTTONDOWN:
                Me.Show
                Remove_Ikon
            Case WM_RBUTTONUP:
                Me.PopupMenu mnuBar
                Remove_Ikon
        End Select
        rec = False
    End If
End Sub

Private Sub Remove_Ikon()
    t.cbSize = Len(t)
    t.hWnd = pichook.hWnd
    t.uId = 1&
    Shell_NotifyIcon NIM_DELETE, t
End Sub

lækkert! :)

tak for pts.

Tak for den, Jelzin - du er bare alle tiders...!

max nice ! :D