Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vb.net 最小化功能仍然显示在工具栏上_Vb.net_Toolbar_Vb.net 2010_System Tray - Fatal编程技术网

Vb.net 最小化功能仍然显示在工具栏上

Vb.net 最小化功能仍然显示在工具栏上,vb.net,toolbar,vb.net-2010,system-tray,Vb.net,Toolbar,Vb.net 2010,System Tray,只是在tasktray中创建了一个简单的应用程序。它显示PC名称、IPV4地址和域。我这样做是为了当用户关闭应用程序时,它只会关闭托盘,除非从contextmenustrip中选择了EXIT。它工作得非常好。然后我添加了一些代码来尝试一些东西,但它没有提供太多,所以我删除了它。一旦移除,应用程序将停止向托盘移动。这毫无意义,因为它与之前的代码完全相同。最大化按钮应该被禁用 Private Sub Form1_Load(sender As Object, e As EventArgs) Handl

只是在tasktray中创建了一个简单的应用程序。它显示PC名称、IPV4地址和域。我这样做是为了当用户关闭应用程序时,它只会关闭托盘,除非从contextmenustrip中选择了EXIT。它工作得非常好。然后我添加了一些代码来尝试一些东西,但它没有提供太多,所以我删除了它。一旦移除,应用程序将停止向托盘移动。这毫无意义,因为它与之前的代码完全相同。最大化按钮应该被禁用

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

我想您的表单的ShowInTaskBar属性设置为false。但这会在任务栏而不是系统托盘中显示应用程序。可能会对您有所帮助。

最小化窗口只会将其放在您的任务栏中。如果您想完全隐藏它,只需将Visible属性设置为false,它应该可以工作,我想我会这样做。奇怪的是,它在之前就起作用了。但是谢谢你,这会有用的。谢谢你,这很有帮助