Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.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 即使声明关闭,Windows窗体也会不断弹出_Vb.net_Login - Fatal编程技术网

Vb.net 即使声明关闭,Windows窗体也会不断弹出

Vb.net 即使声明关闭,Windows窗体也会不断弹出,vb.net,login,Vb.net,Login,我目前正在开发一个带有登录表单的通用文档跟踪系统。我使用Access 2013数据库作为后端来存储凭据。在这之前,一切都很好 守则: Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim login = Me.UsersPasswordsTableAdapter.UsernamePasswordString(txtUsername.

我目前正在开发一个带有登录表单的通用文档跟踪系统。我使用Access 2013数据库作为后端来存储凭据。在这之前,一切都很好

守则:

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
    Dim login = Me.UsersPasswordsTableAdapter.UsernamePasswordString(txtUsername.Text, txtPass.Text)

    If login Is Nothing Then
        MsgBox("Authentication Error! Please Try Again!", "MARINA XI" & vbCritical)
    Else
        MessageBox.Show("User " & txtUsername.Text & " verified" & vbNewLine & "Welcome!", "MARINA XI", MessageBoxButtons.OK, MessageBoxIcon.Information)
        frm_CUSTOMER_INTERFACE.lblAdmin.Text = CStr(txtUsername.Text)
        frm_CUSTOMER_INTERFACE.Show()
        Me.Close()
    End If
End Sub
没有检测到任何错误或其他恶意内容,我不知道为什么当上面的代码显示close时,这个小登录表单会不断弹出

哦,顺便说一下,我有一个这样的启动屏幕,时间为8.5秒,直到登录表单出现并关闭这个启动屏幕表单

其代码为ff:

Private Sub LoadOutClk_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoadOutClk.Tick
    If LoadOutClk.Interval = 8500 Then
        Me.Hide()
        frm_ADMIN_LOGIN.Show()

    End If
End Sub

登录表单的代码张贴在上方。

如果登录窗口先关闭,然后再次打开,则代码问题不在此处。我们需要查看调用loginForm.Show的代码。请告诉我您没有在DB中以纯文本形式存储密码?遗憾的是@JoelCoehoorn,我这样做了