Question

不完全确定这里发生了什么，因为我之前从未见过这个错误，而且我使用的代码非常简单。我想为基于文本的视频游戏制作注册表单，其中用户名与其他几个游戏中的角色用户名进行核对。如果用户尝试使用其中一个字符存在于游戏中的用户名，则会显示一个显示用户名不可用的标签。

我通过在代码设置中添加用户名行并将其与设置的几个字符串值进行比较（稍后将更新以检查已存在的用户名）来完成此操作，然后将其引用整个代码多次。用户名输入框名为UsernameInput，我将此值设置为My.Settings.Username中的用户名。没有密码是故意的。

但是，只要输入用户名，程序就会崩溃并点击“注册”，而不管用户名输入框的内容如何。我已附上我认为有用的所有内容的截图，但如果还有其他我应该展示或解释的内容，请告诉我。

Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

End Sub

Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

End Sub

Private Sub RegisterButton_Click(sender As Object, e As PaintEventArgs) Handles RegisterButton.Click
    Dim Username As String
    Username = My.Settings.Username.ToLower
    If Username.Contains("tryhard" Or "4c757a61" Or "vangelie" Or "signet") Then
        ErrorMessages.Visible = False
        UnavailableLabel.Visible = True
    ElseIf My.Settings.Username.Length > 14 Then
        ErrorMessages.Visible = False
        LengthLabel.Visible = True
    ElseIf My.Settings.Username = "" Then
        My.Settings.Username = "tryhard"
        Me.Close()
        TermsAndConditions.Show()
    Else
        Me.Close()
        TermsAndConditions.Show()
    End If
End Sub


Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click

End Sub

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

End Sub


Private Sub Label3_Click(sender As Object, e As EventArgs)

End Sub

Private Sub MissingUserLabel_Click(sender As Object, e As EventArgs) Handles MissingUserLabel.Click

End Sub

Private Sub UsernameInput_TextChanged_1(sender As Object, e As EventArgs) Handles UsernameInput.TextChanged
    My.Settings.Username = UsernameInput_TextChanged.Text
End Sub

The error

'View disassembly'

The form

Initial error message.

来自VB 2013的注册表格不具备来源

0 个答案: