Réduire la fonction affiche toujours la barre

Question

Juste fait une application simple qui se trouve dans la barre des tâches. Il affiche le nom du PC, l'adresse IPV4 et le domaine. Je l'ai fait de sorte que quand un utilisateur ferme l'application, il se ferme uniquement à la barre d'état sauf si EXIT est sélectionné à partir du contextemenustrip. Cela a fonctionné totalement bien. Ensuite, j'ai ajouté du code pour essayer quelque chose et il n'a pas beaucoup offert, donc je l'ai supprimé. Une fois retirée, l'application a cessé de réduire au minimum le plateau. Cela n'a aucun sens parce que c'est exactement comme le code était avant. Et le bouton maxmimize est censé être désactivé.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    'Obtain Hostname and assign to label 
    strHostname = System.Net.Dns.GetHostName() 
    lblHostname.Text = strHostname.ToString 

    'Obtain IP Address and assign to label 
    Dim ipHostEntry = Dns.GetHostEntry(Dns.GetHostName) 
    Dim strIpAddress = ipHostEntry.AddressList.FirstOrDefault(Function(ip) ip.AddressFamily = AddressFamily.InterNetwork) 
    If strIpAddress IsNot Nothing Then 
     strIpAddress.ToString() 
    Else 
     lblIP.Text = "No IPV4 Address could be retrieved" 
    End If 

    lblIP.Text = strIpAddress.ToString 

    'Obtain Domain and assign to label 
    strDomain = Environment.UserDomainName 
    lblDomain.Text = strDomain.ToString 

End Sub 

Private Sub form1_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing 

    'This checks to see if the form was closed by the MENU (Boolean = True) 
    ' or if the user selected "X" which will minimize to task tray 
    'This is needed because X cannot be disabled without losing Minimize function 

    If BoolClose = False Then 
     e.Cancel = True 
     WindowState = FormWindowState.Minimized 

    Else 
     End 
    End If 
End Sub 

Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click 

    WindowState = FormWindowState.Normal 

End Sub 

Private Sub NotifyIcon1_MouseClick(sender As Object, e As MouseEventArgs) Handles NotifyIcon1.MouseClick 
    WindowState = FormWindowState.Normal 
End Sub 

Answer 1

Je pense que vous avez ShowInTaskBar la propriété de votre formulaire mis à false. Mais cela vous montrera l'application dans la barre des tâches et non dans la barre d'état système. Peut-être this vous aide.