vb窗体程序设计实例

实现功能

用户密码验证登录，按键识别。

窗体1：两个标签，两个文本框，两个按钮。窗体2：一个文本框

窗体1代码

窗口名称Form1，标签1，2分别为Lbl1，Lbl2，确定，取消按钮为，cmd1，cmd2，用户名文本框和密码文本框为txt1，txt2

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

窗体2代码

窗体2窗体名称Form2，文本框名称Txt

Private Sub Form_Click() '窗体2的鼠标单击事件代码
  Form2.BackColor = RGB(0, 255, 0) '将窗体2的背景色设置为绿色
End Sub

Private 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 If
     Txt = Txt + Chr(KeyCode) '为Txt赋值为键代码对应的字符
     txt1.Text = "您按下了" + Txt '显示用户按下的键
  End If
End Sub

Private Sub Form_Load() '窗体2装载事件代码
Form2.KeyPreview = True '允许窗体响应键盘事件
txt1.Text = "" '设置标签的属性
End Sub

Private Sub Form_Resize() '窗体Resize事件代码
  txt1.Move Form1.Width / 2 - 800, Form1.Height / 2 - 400, 1600, 400 '设置标签的位置
End Sub