VB会的就请进看看这是什么？？？？？？？？？

来源：百度知道 编辑：UC知道 时间：2024/06/06 11:13:54
Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码
If Txt1.Text = "user" Then '若用户名文本框输入正确
Txt2.SetFocus '密码文本框激活
ElseIf Txt1.Text <> "user" Then '若用户名文本框输入不正确
MsgBox "请输入正确的用户名！", vbOKOnly + vbInformation, "注意" '显示警告窗口
End If
If Txt2.Text = "123456" Then '若密码文本框输入正确
Form1.Hide '窗体1隐藏
Form2.Show '窗体2显示
ElseIf Txt2.Text <> "123456" Then '若密码文本框输入不正确
MsgBox "请输入正确的密码！", vbOKOnly + vbInformation, "注意" '显示警告窗口
End If
End Sub
Private Sub Cmd2_Click() '取消按钮鼠标单击事件代码
End '退出程序
End Sub
Private Sub Form_Load() '窗体1加载事件代码
Form2.Show '窗体2显示
Form1.Show 1 '窗体1为模式窗体，即始终位于窗体2前面
End Sub

Private Sub Tet1_KeyDown(KeyCode As Integer, Shift As Integer) '用户名文本框KeyDown事件代码
If Txt1.Text = "user" And KeyCode = vbKeyRetur

您看看这些能帮助您解答疑虑吗?

1:空格在命令里是一样的,它们会自动更改过来;

2:在'之后是解释的内容空格内容不会影响程序的运行,与之无关;

3:如果一行没写完要用_ 然后换行接着写,空格也无所谓;

4:空格作为字符占位,就有影响了.空格越多占位越多.

什么空格阿？
你把存在疑问的几个地方指出来啊？
都不明白你在说什么呢。

我发现很多错误,不是少了text1 里面的e就是else和if一起..

不知道我改的这个可以吗?

Private Sub Cmd1_Click()
If Text1.Text = "user" Then
Text2.SetFocus
Else
If Text1.Text <> "user" Then
MsgBox "请输入正确的用户名！", 0 + 48, "注意"
End If
If Text2.Text = "123456" Then
Form1.Hide
Form2.Show
Else
If Text2.Text <> "123456" Then
MsgBox "请输入正确的密码！", 0 + 48, "提示"
End If
End If
End If
End Sub
Private Sub Cmd2_Click()
End
End Sub

Private Sub Form_Load()
Form2.Hide
Form1.Show
End Sub

Private Sub Tet1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text