用 VB 編寫登錄程序} 》 { 編者按：在前幾期編程樂(lè)園中，我們一同學(xué)習(xí)了一些關(guān)于VB編程的基本概念和語(yǔ)法規(guī)則，

用VB編寫登錄程序VB

。 但離開(kāi)實(shí)例學(xué)習(xí)編程，無(wú)疑是枯燥無(wú)味、事倍功半的，所以我們?cè)诖送瞥觥翱磳?shí)例，學(xué)編程”欄目，邀請(qǐng)富有經(jīng)驗(yàn)的PFans介紹他們的典型實(shí)例，希望對(duì)PF

   

   

    用VB編寫登錄程序} 》

    {　　編者按：在前幾期編程樂(lè)園中，我們一同學(xué)習(xí)了一些關(guān)于VB編程的基本概念和語(yǔ)法規(guī)則。但離開(kāi)實(shí)例學(xué)習(xí)編程，無(wú)疑是枯燥無(wú)味、事倍功半的，所以我們?cè)诖送瞥觥翱磳?shí)例，學(xué)編程”欄目，邀請(qǐng)富有經(jīng)驗(yàn)的PFans介紹他們的典型實(shí)例，希望對(duì)PFans的編程之旅有所幫助。

    我們都知道，在進(jìn)入Windows操作系統(tǒng)時(shí)會(huì)出現(xiàn)一個(gè)登錄對(duì)話框，要求用戶輸入密碼后才能進(jìn)入Windows。我們用VB也可以編寫這樣的登錄窗口，其具體方法如下：

    界面設(shè)計(jì)：

    打開(kāi)“VB6.0”，出現(xiàn)“新建工程”對(duì)話框，選擇“標(biāo)準(zhǔn)EXE”單擊“打開(kāi)”即可新建一個(gè)工程。新建一個(gè)工程后，VB自動(dòng)生成了一個(gè)窗體，其默認(rèn)的名稱是Form1，且顯示的標(biāo)題也是Form1，顯然與我們要編寫的程序不符。我們可以更改這些設(shè)置，方法是：點(diǎn)擊Form1窗體，在右邊的屬性窗口中（如圖1）的“名稱”后輸入“Denglu”（在后面講的Denglu就是指的這個(gè)窗體），在“Caption”后輸入“登錄窗口”。窗體設(shè)置好后，我們便可以將控件放置到這個(gè)窗體中去了。

    “登錄窗口”中主要用到的是TextBox(文本框)控件，該控件主要是用于接收用戶輸入的文字并顯示出來(lái)。在該程序中我們便可以使用TextBox控件接收用戶輸入的信息來(lái)判斷是否是合法的用戶。另外，我們還將用到Label（標(biāo)簽）控件及CommandButton（命令按鈕）控件。Label控件用來(lái)顯示“用戶名”及“密碼”標(biāo)題；CommandButton控件用來(lái)設(shè)計(jì)“確定”及“取消”按鈕。下面我們將這些控件放置到窗體中：在工具箱中選擇“Label”控件（如圖2），在窗體中拖動(dòng)鼠標(biāo)直到一定的大小，然后在屬性窗口中的“Caption”屬性后為輸入“用戶名”，然后在其下方再拖動(dòng)一個(gè)Label控件，將Caption的值改為“密碼：”；在工具箱中選擇“TextBox”控件（如圖3），在“用戶名”后拖動(dòng)一個(gè)TextBox控件，用同樣的方法在“密碼：”后拖動(dòng)一個(gè)TextBox控件，然后在“屬性窗口”中將Text的值改為空（即刪除默認(rèn)的Text1），為了不顯示出用戶輸入的密碼，我們將第二個(gè)TextBox控件的PasswordChar屬性設(shè)置為＊（如圖5），這樣在用戶輸入密碼時(shí)顯示的就是＊了；在工具箱中選擇“CommandButton”控件（如圖4），將其拖動(dòng)到窗體的下方（一共兩個(gè)），分別設(shè)置其Caption屬性為“確定”和“取消”。調(diào)整好這些控件的位置（如圖6）后即可完成界面的設(shè)計(jì)，

電腦資料

《用VB編寫登錄程序VB》(http://www.lotusphilosophies.com)。

    程序代碼：

    該程序的主要目的是要判斷輸入的用戶名是否合法，所以我們首先編寫判斷用戶名的程序代碼。雙擊“確定”按鈕，添加如下的程序代碼：（黑體部分為系統(tǒng)自動(dòng)生成的代碼，楷體為注釋）

    Private Sub Command1_Click()

    ′判斷是否輸入了用戶名

    If Text1.Text=″″ Then　′如果Text1為空，即沒(méi)有輸入用戶

    MsgBox ″請(qǐng)輸入用戶名！″,vbOKOnly＋vbCritical,″錯(cuò)誤″

    Exit Sub　′退出這個(gè)過(guò)程

    Else　′如果輸入了用戶名

    If Text1.Text=″軟件世界″ And Text2.Text=″12345″ Then　′如果輸入的用戶名是″軟件世界″且密碼為″12345″

    MsgBox ″你是合法用戶，歡迎進(jìn)入！″,vbOKOnly＋vbInformation,″歡迎進(jìn)入″

    Else　′如果不是″軟件世界″或密碼不是″12345″

    MsgBox ″用戶名或密碼錯(cuò)誤！″,vbOKOnly＋vbCritical,″錯(cuò)誤″

    Text1.Text=″″

    Text2.Text=″″　′清空Text1及Text2控件中的文本內(nèi)容，讓用戶重新輸入

    End If

    End If

    End Sub

    在這一段代碼中，我們使用了If…Then…Else…End If。這是一個(gè)條件判斷語(yǔ)句，If Text1.Text=″″ Then這句代碼則是判斷Text1是否為空，如果為空，這個(gè)條件就成立，則執(zhí)行Then后的語(yǔ)句，如果Text1不為空，則這個(gè)條件不成立，程序?qū)��?huì)跳到Else處，執(zhí)行Else后的語(yǔ)句。

    程序測(cè)試：

    現(xiàn)在我們可以單擊“F5”鍵來(lái)運(yùn)行這個(gè)程序，看看其運(yùn)行效果。直接單擊“確定”按鈕，將會(huì)彈出一個(gè)對(duì)話框（如圖7）；在“用戶名”后輸入“軟件世界”，“密碼：”后輸入“12345”，再單擊“確定”按鈕，此時(shí)便會(huì)出現(xiàn)一個(gè)“歡迎進(jìn)行”的信息框（如圖8）。怎么樣，一個(gè)屬于自己的“登錄窗口”就制作好了。

    但這個(gè)程序目前還只能判斷在程序中已設(shè)置好了的用戶名及密碼，沒(méi)有靈活性，你可以發(fā)揮你的聰明才智，使其能夠判斷多個(gè)合法的用戶及密碼。如果你有什么疑問(wèn)，歡迎寫信與我交流，我的E－mail地址是：vber@21cn.com。

    （重慶　杜偉）}

    原文轉(zhuǎn)自：http://www.ltesting.net