Private Sub Cmd1_Click() '确定按钮鼠标单击事件代码If txt1.Text = "user" Then '若用户名文本框输入正确Txt2.SetFocus '密码文本框激活ElseIf txt1.Text <> "user" Then '若用户名文本框输入不正确MsgBox "请输入正确的用户名！", vbOKOnly + vbInformation, "注意" '显示警告窗口End IfIf 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

窗体2代码

Private Sub Form_Click() '窗体2的鼠标单击事件代码Form2.BackColor = RGB(0, 255, 0) '将窗体2的背景色设置为绿色
End SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) '窗体2的KeyDown事件代码Dim ShiftDown, AltDown, CtrlDown '定义变量Dim Txt As String '定义变量ShiftDown = (Shift And vbShiftMask) > 0 'AltDown = (Shift And vbAltMask) > 0 'CtrlDown = (Shift And vbCtrlMask) > 0 'If KeyCode >= 48 And KeyCode <= 105 Then '设置键代码范围以显示字母和数字If ShiftDown And AltDown And CtrlDown Then '若Shift、Alt、Ctrl键被同时按下Txt = "Shif+Alt+Ctrl" '为Txt赋值ElseIf ShiftDown And AltDown Then '若Shift、Alt键被同时按下Txt = "Shif+Alt" '为Txt赋值ElseIf ShiftDown And CtrlDown Then '若Shift、Ctrl键被同时按下Txt = "Shif+Ctrl" '为Txt赋值ElseIf CtrltDown And AltDown Then '若Alt、Ctrl键被同时按下Txt = "Ctrl+Alt" '为Txt赋值ElseIf ShiftDown Then '若Shift键被同时按下Txt = "Shif" '为Txt赋值ElseIf AltDown Then '若Alt键被同时按下Txt = "Alt" '为Txt赋值ElseIf CtrlDown Then '若Ctrl键被同时按下Txt = "Ctrl" '为Txt赋值ElseIf Shift = 0 Then '若三键均未被按下Txt = "" '为Txt赋值End IfTxt = Txt + Chr(KeyCode) '为Txt赋值为键代码对应的字符txt1.Text = "您按下了" + Txt '显示用户按下的键End If
End SubPrivate Sub Form_Load() '窗体2装载事件代码
Form2.KeyPreview = True '允许窗体响应键盘事件
txt1.Text = "" '设置标签的属性
End SubPrivate Sub Form_Resize() '窗体Resize事件代码txt1.Move Form1.Width / 2 - 800, Form1.Height / 2 - 400, 1600, 400 '设置标签的位置
End Sub