Question

我有一个课程，我将获取我的登录表单的用户名和密码的值，并将其传递给管理员表单。

  Public Property getUsername() As String
    Get
        Return Login.username.Text
    End Get
    Set(value As String)
        uname = value
    End Set
End Property
Public Property getPassword() As String
    Get
        Return Login.password.Text
    End Get
    Set(value As String)
        pword = value
    End Set
End Property

函数getName（）

  Public Function getName()
    con.Open()
    Dim sd As New SqlDataAdapter("select * from AdminAcc where Username = '" & getUsername() & "'", con)
    Dim dt As New DataTable
    sd.Fill(dt)
    con.Close()
    getName = dt.Rows(0)(1).ToString()

End Function

我想在表单中显示该用户的名称，所以我尝试了这个：

Private Sub AdminM_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    admingreeting.Text = "Hi, " + queryclass.getName()
End Sub

它实际上正在工作，但是当我尝试退出应用程序停止并出现中断模式窗口时。

Private Sub btnsignout_Click(sender As Object, e As EventArgs) Handles btnsignout.Click
    If MsgBox("Are you sure you want to sign out?", vbQuestion + vbYesNo) = vbYes Then
        Login.Show()
        Me.Close()
    End If
End Sub

我尝试使用me.hide（）并且它有效，但是当我尝试登录另一个acc时，前一个getName（）中的值没有改变。

Answer 1

我不确定你所说的是否会解决你的问题，但是请尝试更改Shutdown Mode：

如果您打开项目的“属性”窗口，则可以在“应用程序”选项卡上设置“关闭模式”。默认值是“启动表单关闭”时。将其更改为“当最后一个表单关闭时”。

Me.Close不工作，出现Break Mode窗口

1 个答案: