自动登录过程（隐藏表格）vb.NET Windows表格

Question

好的，我在这里遇到了麻烦。 我正在为应用程序创建一个登录窗口，但是我试图让该应用程序在启动时自动登录（即执行用户登录时发生的功能），而不显示登录屏幕（如果进行了设置）已经具有存储的电子邮件和密码。 我有一个通知系统托盘图标，该图标显示该应用程序何时运行以及何时不可见该窗体，并弹出气球通知，以便用户知道它仍在运行，然后单击该图标以打开登录屏幕。

看一下下面的代码。 我知道此If Not事件正在被调用并正常工作，因为它执行语句中的所有事情， 除了 隐藏表单。 为什么它不变为不可见？ 我也尝试了Me.Hide，同样的问题。 弹出气球通知，文本框填充以前存储的数据...但是表格仍然可见...

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

    'Checks settings to see if email and password have already been stored and enters them into text fields, proceeds to automatically update access list
    If Not String.IsNullOrEmpty(My.Settings.Email) And Not String.IsNullOrEmpty(My.Settings.Password) Then
        TxtEmail.Text = My.Settings.Email
        TxtPassword.Text = My.Settings.Password

        Me.Visible = False

        'Displays Balloon Tip
        ntfySystemTrayIcon.ShowBalloonTip(800)
    End If

End Sub

作为补充，我添加了一个测试按钮来隐藏表单，它可以完美地工作：

Private Sub BtnHide_Click(sender As Object, e As EventArgs) Handles BtnHide.Click
    'Hides form(for testing notification tray icon and balloon tip
    Me.Visible = False
    ntfySystemTrayIcon.ShowBalloonTip(1000)
End Sub

Answer 1

（删除了我愚蠢的默认调试指令，因为它们根本没有帮助）

更新

好的，所以以前也有类似的问题，请看这里： C＃/。NET-WinForms-实例化表单而不显示它

简短说明：通常使用诸如form1.show之类的内容，因此在form_load完成后，它始终更改为visible = true。

使用指示的事件form_shown并添加visible = false

或另一个用户建议将启动属性更改为最小化，然后激活以将程序隐藏在任务栏中。 这有助于防止烦人的闪烁。 我想之后您可以将选项改回来。

更新2以下似乎很好用：

Private _IsVisible As Boolean
Public Property IsVisible() As Boolean
    Get
        Return _IsVisible
    End Get
    Set(ByVal value As Boolean)
        _IsVisible = value
        If _IsVisible Then
            Me.WindowState = FormWindowState.Normal
            Me.ShowInTaskbar = True
            Me.Visible = True
            Me.Activate()
        Else
            Me.WindowState = FormWindowState.Minimized
            Me.ShowInTaskbar = False
            Me.Visible = False
        End If
    End Set
End Property

如果要消除小任务栏闪烁，请更改表格属性showInTaskbar。 在form_load期间更改它时，任务栏上的动作似乎很短。

为了使其完美，在表单中。添加以下代码：

Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    Me.Visible = IsVisible
End Sub

现在就可以使用了

IsVisible = False

在form_Load中，或者如果您想显示它

IsVisible = True

Answer 2

只是一些想法：

如果在_Load事件中完成了所有任务，请尝试仅调用End。 当然，这也会删除您的任务栏图标。

另一种可能性是在_Shown事件中调用Me.Visible。 这可能会导致屏幕闪烁。 如果是这样，也许您可​​以将表单放在_Load的屏幕外。