VB.NET登录成功后无法隐藏登录按钮

debugcn 发表于 Dev

雨果

我已经尝试过其他方法，但是无法隐藏按钮。目的是仅显示登录按钮，当我们成功登录后，该按钮变为不可见，其他按钮显示。

这是表格“ Inicio”：

    Public LoginDone As String = "0"

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

        If LoginDone = "0" Then
            btnLogin1.Visible = True
            btnInicio.Visible = False
            btnConta.Visible = False
        Else
            btnLogin1.Visible = False
            btnInicio.Visible = True
            btnConta.Visible = True
        End If

    End Sub

表格“登录”：

  If table.Rows.Count = 0 Then

            MessageBox.Show("Login Inválido") 'Failed login

        Else

            MessageBox.Show("Iniciada sessão com sucesso") 'Sucess login

            Inicio.LoginDone = "1"

            Me.Hide()

        End If

在愤怒

表格“ Inicio”：

Public Sub LoginState(ByVal result As Boolean)
    hideSubmenu()

    If result = True Then
        btnLogin1.Visible = True
        btnInicio.Visible = False
        btnConta.Visible = False
    Else
        btnLogin1.Visible = False
        btnInicio.Visible = True
        btnConta.Visible = True
    End If
    Me.Show()
End Sub

表格“登录”：

If table.Rows.Count = 0 Then
    MessageBox.Show("Login Inválido") 'Failed login
    Login.LoginState(False)
Else
    MessageBox.Show("Iniciada sessão com sucesso") 'Sucess login
    Login.LoginState(True)
    Me.Hide()
End If

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。