Programma verbergen in notifyicon

[WILLIAMXXX]

Eén groot nadeel is als je het form groter maakt met de muis dan wordt die ook verbrogen, is er niet een gebeurtenis dat je hebt van:

Private sub form1_"minaliseren"(blablabla)
Me.Hide()
End sub

of een tweede oplossing:

Private sub form1_closing(blablabla)
'hier een code zodat het form niet wordt afgesloten...
Me.Hide()
End sub

 

[That Guy]

gebruik de form1.windowstate om te checken of het form word verkleint of niet!
(in combinatie met een timer ofzo)

V.:thumb:

 

[WILLIAMXXX]

Ja, dat is een idee, maar is er niet een manier om het afsluien te annuleren...

 

[RonaldGJ]

Cancel = -1
Als je dat bij Unload zet, dan klik je op het kruisje en sluit hij niet af!
Bij minimaliseren moet je gewoon doen zoals ik zei:

If Form1.WindowState = vbMinimized Then
...
...
...
End Sub

 

[WILLIAMXXX]

Dat cancel kent die niet, is er niet een event die erbij hoort?

 

[That Guy]

vb6.0:

Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

wat is bij jou dan de "Private sub form1_closing(parameters)" parameters?


V.:thumb:

 

[WILLIAMXXX]

Zo:

   Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

    End Sub

Welke van de 2 moet ik doen dan

 

[That Guy]

ik denk de "closING" omdat "closED" al "afgesloten" is... dus in de "closing" moet je iets met de cancel werken (die "e" zal het wel zijn)

V.:thumb:

 

[WILLIAMXXX]

Oke, bedankt het werkt ik heb nu deze code:

Public Class Form1

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel -= 1
        Me.Hide()
        Me.Visible = False
        Me.NotifyIcon1.Visible = True
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Visible = False
        Me.NotifyIcon1.Visible = True
    End Sub

    Private Sub NotifyIcon1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles NotifyIcon1.DoubleClick
        Me.Visible = True
        NotifyIcon1.Visible = False
    End Sub
End Class

 

[RonaldGJ]

Mooi dat ie het doet:thumb:

Gr. Ronald!

 

[WILLIAMXXX]

Seker mooi...