编程论坛 » VB6论坛 » VB题：登录窗口输入密码错误时，如何清空密码跟用户名

小巨 发表于 2008-5-11 14:02

VB题：登录窗口输入密码错误时，如何清空密码跟用户名

Option Explicit
Private Sub Command1_Click()
    Dim intResult As Integer
   
    intResult = MsgBox("你选择了退出登录，真的退出？", vbYesNo, "登录验证")
    If intResult = vbYes Then End
End Sub

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
        MsgBox text2 & ",请重新输入口令!"
  End If
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------
我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？

hxfly 发表于 2008-5-11 14:08

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
text1.text=""
text2.text=""
        MsgBox text2 & ",请重新输入口令!"
  End If
End Sub

小巨 发表于 2008-5-11 14:08

我想要实现当输入密码错误的时候，在重新输入的时候要清空text1跟text2里面的内容 该如何做？
还想要在重新输入时候让光标自己停留在text2那里等待重新输入。
麻烦大家帮忙看看！[tk02]

小巨 发表于 2008-5-11 14:10

谢谢拉！第一个问题解决拉！

另外我 还想要在重新输入时候让光标自己停留在text1那里等待重新输入。  是text1

dwh2005 发表于 2008-5-11 15:43

回复 3# 的帖子

Private Sub Command2_Click()
    If text1 = "123" Then
        MsgBox text2 & "你好!"
    Else
text1.text=""
text2.text=""
        MsgBox text2 & ",请重新输入口令!"
        text1.SetFocus
  End If
End Sub

[[it] 本帖最后由 dwh2005 于 2008-5-11 15:44 编辑 [/it]]

小巨 发表于 2008-5-11 17:13

谢谢拉! [tk16]

jxyga111 发表于 2008-5-20 11:57

在提示用戶名錯誤 前打
text1.text=""

查看完整版本: VB题：登录窗口输入密码错误时，如何清空密码跟用户名