Vedr. minimeringsknappen..

\'prøv at minimer

Private Sub Form_Resize()
  If Me.WindowState = 1 Then
    MsgBox \"Minimer\"
  End If
End Sub

Det er ikke det jeg vil...

det jeg vil er når brugeren klikker på minimerknappen så skal der ske noget!


//Rune

Private Sub Form_Resize()
If Me.WindowState = 1 Then
\'Det der skal ske...
MsgBox \"Nu er jeg minimeret :)\"
End If
End Sub

Det er vel den nemmeste måde at gøre det på!

well, i misforstår mig helt :-)

Det jeg vil ha\' den til er at den skal slet ikke minimere sig med i programlinjen.. men den skal minimere sig med i sysTray..! (ned ved siden af uret!) -jeg har koden til at smække den der ned.. men jeg ved ikke hvordan man får den til det så den ikke går ned i programlinjen men i stedet for i sysTray!

//Rune

Du skal indsætte din kode i formens resize-event.
Så vil koden blive afviklet i det øjeblik formen skifter størrelse.
Du skal så tjekke om brugeren minimerer formen eller trækker i formen eller maksimerer, og hvis bugeren minimerer, så kør din kode. Men
inden da, skal du aflyse minimeringen, som vil placere den på programlinien.

Kode-eksempel kommer om lidt.

MVH tjacob

Sådan: Dette eksempel åbner en MsgBox når du minimerer, og gendanner derefter formen.

Private Sub Form_Resize()

    If Form1.WindowState = vbMinimized Then
        MsgBox \"Du har minimeret formen.\"
        Form1.WindowState = vbNormal
        \'her indsættes din sys-tray kode
    End If

End Sub

MVH tjacob

Jeg opdager nu at det faktisk var det, sjh svarede 23.12. Så giv pointene til ham. Hvorfor kunne du ikke bruge det? Det afvikler koden når du minimerer formen??????

well, whatever, 15 points!

-Har droppet forsøget!