不完全确定这里发生了什么,因为我之前从未见过这个错误,而且我使用的代码非常简单。我想为基于文本的视频游戏制作注册表单,其中用户名与其他几个游戏中的角色用户名进行核对。如果用户尝试使用其中一个字符存在于游戏中的用户名,则会显示一个显示用户名不可用的标签。
我通过在代码设置中添加用户名行并将其与设置的几个字符串值进行比较(稍后将更新以检查已存在的用户名)来完成此操作,然后将其引用整个代码多次。用户名输入框名为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