編者按：在前幾期編程樂園中，我們一同學習了一些關于VB編程的基本概念和語法規則。但離開實例學習編程，無疑是枯燥無味、事倍功半的，所以我們在此推出“看實例，學編程”欄目，邀請富有經驗的PFans介紹他們的典型實例，希望對PFans的編程之旅有所幫助。
我們都知道，在進入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）。怎么樣，一個屬于自己的“登錄窗口”就制作好了。
但這個程序目前還只能判斷在程序中已設置好了的用戶名及密碼，沒有靈活性，你可以發揮你的聰明才智，使其能夠判斷多個合法的用戶及密碼。如果你有什么疑問，歡迎寫信與我交流，我的E－mail地址是：vber@21cn.com。
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
