我目前正在为学校做一个项目,它包括一个登录和注册系统。
这是我做的一个功能。“taken”变量将被传回主程序。
Dim taken As Boolean
Dim temp As String
For counter = 1 To totalrecords
FileGet(1, player_info)
temp = player_info.username
If TextBox2.Text = temp Then
msgbox("this is a messagebox")
taken = True
End If
Next
这是检查是否有任何用户名正在使用的代码部分。如果是这样,则采取 = true,然后显示一条消息。
现在,由于某种原因,没有执行 if 语句部分。消息框根本不显示。我已经通过使用多个相同的用户名对此进行了测试,并且第二个(相同的)用户名仍然添加到文件中。我很困惑。
我认为部分不起作用 -
If TextBox2.Text = temp Then
taken = True
End If