求VB代码问题: 这是VB+SQL中“登陆界面”代码,麻烦大侠帮我看一下哪里有问题,他老是报错……

2025-01-04 13:49:19
推荐回答(1个)
回答1:

正确的源码

Private Sub Cmd_Click() '确定按钮鼠标单击事件代码
If txt1.Text = "user" Then '若用户名文本框输入正确
Txt2.SetFocus '密码文本框激活

Elself Txt1.Text <> "user" Then

Txt1.Setfocus
End If

简化后的代码
If Txt1.Text="user" then
Txt2.Setfocus
Else
Txt1.Setfocus
End If