Option Explicit
Const MaxTimes As Integer = 3
Public intMyTimes As Integer

Private Sub Form_Load()
    intMyTimes = 1
    cboUserName.Addltem " 管理员 "
    cboUserName.Addltem " 操作员1 "
    cboUserName.Addltem " 操作员2 "
End Sub
Private Sub Command1_Click()
      If cboUserName.Text <> " " Then
            If txtPassword.Text = " " Then
                MsgBox "请输入密码！"
                'txtPassword.SetFocus
            Else
               If txtPassword.Text <> "11" Then
                    If intMyTimes > MaxTimes Then
                        MsgBox "您无权使用该软件！"
                        End
                    Else
                        intMyTimes = intMyTimes + 1
                        MsgBox "密码不正确，请重新输入！"
                        'txtPassword.SetFocus
                    End If
                Else
                    MsgBox "登录成功！"
                End If
             End If
      Else
          MsgBox "操作员不能为空！"
          Exit Sub
      End If
End Sub
Private Sub Command2_Click()
     End
End Sub
是什么错误呢  刚学习VB  求指教

Addltem修改为additem

你窗体上放了 对应的控件吗？

这是我的窗体，我没引用到什么数据，只是一个简单的登录界面。谢谢

没引用控件，我没引用什么数据之类的，只是一个操作员的登录界面，谢谢

您好，刚一改为小写，点击下鼠标就又变为大写了，why?

变成大写说明你已经有控件，可以正常运行了。VB大小写不敏感。

现在运行时，显示第一个图那个错误框，然后我进行调试，就出现了第二张图那样的情况，请问下应该怎样更改才能完美运行呢？谢啦

那请问下  为什么会运行不了  弹出错误对话框  是什么问题呢  求指教

窗体上的控件名字与程序里的控件名对上了没有。

要么你用记事本打开 frm 文件 ，然后把里面的内容全部贴出来。

收到的鲜花

• VB求学路人 于 2014-09-24 17:33 送鲜花  3朵   附言：我很赞同