實(shí)現(xiàn)功能

用戶密碼驗(yàn)證登錄，按鍵識別。
窗體1：兩個(gè)標(biāo)簽，兩個(gè)文本框，兩個(gè)按鈕。窗體2：一個(gè)文本框

窗體1代碼 窗口名稱Form1，標(biāo)簽1，2分別為Lbl1，Lbl2，確定，取消按鈕為，cmd1，cmd2，用戶名文本框和密碼文本框?yàn)閠xt1，txt2 Private Sub Cmd1_Click() '確定按鈕鼠標(biāo)單擊事件代碼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() '取消按鈕鼠標(biāo)單擊事件代碼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的鼠標(biāo)單擊事件代碼Form2.BackColor = RGB(0, 255, 0) '將窗體2的背景色設(shè)置為綠色 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 '設(shè)置鍵代碼范圍以顯示字母和數(shù)字If ShiftDown And AltDown And CtrlDown Then '若Shift、Alt、Ctrl鍵被同時(shí)按下Txt = "Shif+Alt+Ctrl" '為Txt賦值ElseIf ShiftDown And AltDown Then '若Shift、Alt鍵被同時(shí)按下Txt = "Shif+Alt" '為Txt賦值ElseIf ShiftDown And CtrlDown Then '若Shift、Ctrl鍵被同時(shí)按下Txt = "Shif+Ctrl" '為Txt賦值ElseIf CtrltDown And AltDown Then '若Alt、Ctrl鍵被同時(shí)按下Txt = "Ctrl+Alt" '為Txt賦值ElseIf ShiftDown Then '若Shift鍵被同時(shí)按下Txt = "Shif" '為Txt賦值ElseIf AltDown Then '若Alt鍵被同時(shí)按下Txt = "Alt" '為Txt賦值ElseIf CtrlDown Then '若Ctrl鍵被同時(shí)按下Txt = "Ctrl" '為Txt賦值ElseIf Shift = 0 Then '若三鍵均未被按下Txt = "" '為Txt賦值End IfTxt = Txt + Chr(KeyCode) '為Txt賦值為鍵代碼對應(yīng)的字符txt1.Text = "您按下了" + Txt '顯示用戶按下的鍵End If End SubPrivate Sub Form_Load() '窗體2裝載事件代碼 Form2.KeyPreview = True '允許窗體響應(yīng)鍵盤事件 txt1.Text = "" '設(shè)置標(biāo)簽的屬性 End SubPrivate Sub Form_Resize() '窗體Resize事件代碼txt1.Move Form1.Width / 2 - 800, Form1.Height / 2 - 400, 1600, 400 '設(shè)置標(biāo)簽的位置 End Sub

總結(jié)

以上是生活随笔為你收集整理的vb窗体程序设计实例的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。