Question

初学VB，求大神帮忙哈。我希望按下回车键以后能够执行command1弹出的msgbox，之后返回到

初学VB，求大神帮忙哈。我希望按下回车键以后能够执行command1弹出的msgbox，之后返回到text2，将其中内容全选。代码及窗口如图。
我写出来的代码应该是有问题吧……它不能按命令执行。
在线等。后有追分





Answer 1

Private Sub cmdBye_Click()
If MsgBox("真的要说再见吗？", vbYesNo, "") = vbYes Then
Unload Me
End If
End Sub

Private Sub cmdOK_Click()
Static i
If txtName = "" Then
    MsgBox "大侠！您是黑客吗，黑客也不能用空用户名啊！"
    Exit Sub
ElseIf txtPwd = "" Then
    MsgBox "最近试图使用空密码进入游戏的人又多了一个。"
    Exit Sub
End If
If txtName = "John" And txtPwd = "8888" Then
    MsgBox "Welcome " & txtName.Text
    '此处省略数万行
Else
    i = i + 1
    If i > 1 Then
        MsgBox txtName & ",你连续" & i & "次输错密码啦！！！"
    Else
        MsgBox "密码好像不对呀！再想想吧。"
    End If
    txtPwd.SelStart = 0
    txtPwd.SelLength = Len(txtPwd.Text)
    txtPwd.SetFocus
End If
End Sub

Private Sub txtPwd_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then cmdOK_Click
End Sub

思路有点乱了，将就着看吧！