我們都知道,在進入Windows操作系統時會出現一個登錄對話框,要求用戶輸入密碼後才能進入Windows。我們用VB也可以編寫這樣的登錄窗口,其具體方法如下:
界面設計:
打開“VB6.0”,出現“新建工程”對話框,選擇“標准EXE”單擊“打開”即可新建一個工程。新建一個工程後,VB自動生成了一個窗體,其默認的名稱是Form1,且顯示的標題也是Form1,顯然與我們要編寫的程序不符。我們可以更改這些設置,方法是:點擊Form1窗體,在右邊的屬性窗口中(如圖1)的“名稱”後輸入“Denglu”(在後面講的Denglu就是指的這個窗體),在“Caption”後輸入“登錄窗口”。窗體設置好後,我們便可以將控件放置到這個窗體中去了。
“登錄窗口”中主要用到的是TextBox(文本框)控件,該控件主要是用於接收用戶輸入的文字並顯示出來。在該程序中我們便可以使用TextBox控件接收用戶輸入的信息來判斷是否是合法的用戶。另外,我們還將用到Label(標簽)控件及CommandButton(命令按鈕)控件。Label控件用來顯示“用戶名”及“密碼”標題;CommandButton控件用來設計“確定”及“取消”按鈕。下面我們將這些控件放置到窗體中:在工具箱中選擇“Label”控件(如圖2),在窗體中拖動鼠標直到一定的大小,然後在屬性窗口中的“Caption”屬性後為輸入“用戶名”,然後在其下方再拖動一個Label控件,將Caption的值改為“密碼:”;在工具箱中選擇“TextBox”控件(如圖3),在“用戶名”後拖動一個TextBox控件,用同樣的方法在“密碼:”後拖動一個TextBox控件,然後在“屬性窗口”中將Text的值改為空(即刪除默認的Text1),為了不顯示出用戶輸入的密碼,我們將第二個TextBox控件的PasswordChar屬性設置為*(如圖5),這樣在用戶輸入密碼時顯示的就是*了;在工具箱中選擇“CommandButton”控件(如圖4),將其拖動到窗體的下方(一共兩個),分別設置其Caption屬性為“確定”和“取消”。調整好這些控件的位置(如圖6)後即可完成界面的設計。
程序代碼:
該程序的主要目的是要判斷輸入的用戶名是否合法,所以我們首先編寫判斷用戶名的程序代碼。雙擊“確定”按鈕,添加如下的程序代碼:(黑體部分為系統自動生成的代碼,楷體為注釋)
Private Sub Command1_Click()
′判斷是否輸入了用戶名
If Text1.Text=″″ Then ′如果Text1為空,即沒有輸入用戶
MsgBox ″請輸入用戶名!″,vbOKOnly+vbCritical,″錯誤″
Exit Sub ′退出這個過程
Else ′如果輸入了用戶名
If Text1.Text=″軟件世界″ And Text2.Text=″12345″ Then ′如果輸入的用戶名是″軟件世界″且密碼為″12345″
MsgBox ″你是合法用戶,歡迎進入!″,vbOKOnly+vbInformation,″歡迎進入″
Else ′如果不是″軟件世界″或密碼不是″12345″
MsgBox ″用戶名或密碼錯誤!″,vbOKOnly+vbCritical,″錯誤″
Text1.Text=″″
Text2.Text=″″ ′清空Text1及Text2控件中的文本內容,讓用戶重新輸入
End If
End If
End Sub
在這一段代碼中,我們使用了If…Then…Else…End If。這是一個條件判斷語句,If Text1.Text=″″ Then這句代碼則是判斷Text1是否為空,如果為空,這個條件就成立,則執行Then後的語句,如果Text1不為空,則這個條件不成立,程序將會跳到Else處,執行Else後的語句。
程序測試:
現在我們可以單擊“F5”鍵來運行這個程序,看看其運行效果。直接單擊“確定”按鈕,將會彈出一個對話框(如圖7);在“用戶名”後輸入“軟件世界”,“密碼:”後輸入“12345”,再單擊“確定”按鈕,此時便會出現一個“歡迎進行”的信息框(如圖8)。怎麼樣,一個屬於自己的“登錄窗口”就制作好了。
但這個程序目前還只能判斷在程序中已設置好了的用戶名及密碼,沒有靈活性,你可以發揮你的聰明才智,使其能夠判斷多個合法的用戶及密碼。