使用者密碼驗證登入，按鍵識別。
窗體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窗體名稱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
VB窗體置頂
private declare function setwindowpos lib user32 alias setwindowpos byval hwnd as long,byval hwndinsertafter as long,byval x as long,byval y as long,b...
vb窗體例項化與set語句的用法
類 class 是物件導向程式設計 oop，object oriented programming 實現資訊封裝的基礎。類是一種使用者定義的引用資料型別，也稱類型別。每個類包含資料說明和一組運算元據或傳遞訊息的函式。類的例項稱為物件。物件 object 是一件事 乙個實體 乙個名詞，可以獲得的東西，...
vb 建立圓角窗體
private declare function setwindowrgn lib user32 byval hwnd as long,byval hrgn as long,byval bredraw as boolean as long private declare function creat...