第五章簡(jiǎn)單窗體設(shè)計(jì)

第5章窗體和常用控件本章目標(biāo)

窗體（Form）文本控件

按鈕（Button）復(fù)選框和單選按鈕（CheckBox&RadioButton）分組框（GroupBox）列表框和組合框（ListBox&ComboBox）滾動(dòng)條（ScrollBar）計(jì)時(shí)器（Timer）圖片框（PictureBox）對(duì)話框（Dialog）鼠標(biāo)和鍵盤(pán)事件訓(xùn)練項(xiàng)目1：窗體（Form）的設(shè)置相關(guān)知識(shí)窗體（Form）是用戶交互的主要載體，是可視化程序設(shè)計(jì)的基礎(chǔ)界面，通常為矩形，通過(guò)組合不同控件和編寫(xiě)代碼，可從中得到信息并響應(yīng)該信息。窗體可以是標(biāo)準(zhǔn)窗口、多文檔界面（MDI）窗口、對(duì)話框或圖形化例程的顯示界面。窗體是對(duì)象類(lèi)，因?yàn)樗鼈儚腃ontrol類(lèi)繼承，與.NET框架中的所有對(duì)象一樣，窗體是類(lèi)的實(shí)例。如果查看窗體的對(duì)象層次，就會(huì)明白它實(shí)際上是從Object類(lèi)逐層派生出來(lái)的子類(lèi)。表5.1列出了Form類(lèi)的父類(lèi)，以及Form類(lèi)從每個(gè)父類(lèi)繼承的內(nèi)容的簡(jiǎn)短說(shuō)明。用“Windows窗體設(shè)計(jì)器”創(chuàng)建的窗體是類(lèi)。當(dāng)運(yùn)行中顯示窗體的實(shí)例時(shí)，此類(lèi)用作創(chuàng)建窗體的模板。這些對(duì)象公開(kāi)定義其外觀的屬性、行為的方法，以及與用戶交互的事件。通過(guò)設(shè)置窗體屬性及編寫(xiě)響應(yīng)其事件的代碼，可自定義該對(duì)象以滿足應(yīng)用程序的要求。雖然完全可以在“代碼編輯器”中創(chuàng)建窗體，但使用“Windows窗體設(shè)計(jì)器”創(chuàng)建和修改窗體更為簡(jiǎn)單。VB.NET與以前使用的窗體引擎相比，有幾個(gè)明顯的優(yōu)點(diǎn)。窗體可以自動(dòng)改變其中組件的大小，還可以把控件鎖定在特定的位置，也就是說(shuō)，無(wú)需借助第三方的工具來(lái)完成相應(yīng)的工作。此外，還可以創(chuàng)建透明的窗體。任務(wù)1：創(chuàng)建VB.NET窗體圖5.1創(chuàng)建并調(diào)整后的窗體當(dāng)用戶新建一個(gè)VB.NET項(xiàng)目時(shí)，VB.NET將創(chuàng)建一個(gè)默認(rèn)名為Form1的窗體，如圖5.1所示。

用戶通過(guò)修改窗體的Size屬性來(lái)修改窗體的大小，也可以通過(guò)鼠標(biāo)直接拖曳窗體周?chē)男》綁K或通過(guò)程序代碼來(lái)調(diào)整窗體的大小。對(duì)調(diào)整前后進(jìn)行比較可以發(fā)現(xiàn)，VB.NET定制窗體非常簡(jiǎn)單。窗體生成后的屬性都是默認(rèn)值，用戶可以通過(guò)“視圖”|“屬性窗口”菜單，或按“F4”鍵，或用鼠標(biāo)右鍵單擊窗體，在彈出的快捷菜單中選擇“屬性”命令來(lái)激活屬性窗口，并對(duì)屬性值重新設(shè)定。

窗體的常用屬性如表5.2所示。任務(wù)2：設(shè)置窗體的屬性屬性說(shuō)明Name窗體對(duì)象的名稱(chēng)WindowState獲取或設(shè)置窗體運(yùn)行時(shí)的顯示狀態(tài)StartPosition確定窗體運(yùn)行時(shí)的起始位置Text確定標(biāo)題欄顯示文本W(wǎng)idth確定窗體的寬度Height確定窗體的高度Left確定窗體左邊緣的橫坐標(biāo)xTop確定窗體上邊緣的縱坐標(biāo)yControlBox確定標(biāo)題欄是否顯示控制按鈕MaximizeBox確定標(biāo)題欄是否顯示最大化按鈕MinimizeBox確定標(biāo)題欄是否顯示最小化按鈕AcceptButton確定Enter鍵的默認(rèn)擊活按鈕CancelButton確定Esc鍵的默認(rèn)擊活按鈕Modal確定窗體是否為有模式顯示窗體（只讀）ActiveControl用于獲取或設(shè)置窗體上的活動(dòng)控件ActiveMdiChild用于獲取或設(shè)置多文檔界面的活動(dòng)子窗口AutoScroll確定控件位于工作區(qū)之外時(shí)是否顯示滾動(dòng)條BackColor設(shè)置窗體的背景顏色BackgroundImage設(shè)置窗體的背景圖像Enabled確定窗體是否可用（可與用戶交互）Font用于設(shè)置窗體上的顯示字體ForeColor用于設(shè)置窗體或控件的前景顏色VB.NET的窗體有多個(gè)方法和語(yǔ)句來(lái)控制窗體的加載、顯示、隱藏、卸載等。表5.3列出了窗體的常用方法。任務(wù)3：設(shè)置窗體的常用方法和事件方法說(shuō)明對(duì)象調(diào)用格式Show顯示窗體窗體名.Show()Hide隱藏窗體窗體名.Hide()Refresh窗體刷新窗體名.Refresh()Activate激活窗體并得到光標(biāo)窗體名.Activate()Close關(guān)閉窗體窗體名.Close()ShowDialog以模式對(duì)話框形式顯示窗體窗名.ShowDialog()這些方法或語(yǔ)句的語(yǔ)法格式如下：

窗體名稱(chēng).方法()

Show方法用來(lái)顯示一個(gè)已經(jīng)裝入內(nèi)存的窗體，如果調(diào)用時(shí)該窗體沒(méi)有被加載，則VB.NET將自動(dòng)加載該窗體。例如，下面的代碼將在單擊窗體Form1后，自動(dòng)加載frmhello窗體。PrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.Click DimfrmhelloAsNewfrmhello() frmhello.Show()'顯示frmHello窗體EndSub注意：VB.NET中，窗體作為類(lèi)不能直接引用，使用前必須先聲明。如上面的代碼中先定義DimfrmhelloAsNewfrmhello()，然后才能調(diào)用該對(duì)象的Show方法。Close方法用來(lái)關(guān)閉窗體。當(dāng)窗體關(guān)閉之后，所有在運(yùn)行時(shí)放到窗體上的對(duì)象都是不可再訪問(wèn)的，而在設(shè)計(jì)時(shí)放到該窗體上的控件將保持不變，任何對(duì)這些控件的訪問(wèn)都會(huì)導(dǎo)致窗體重新打開(kāi)。Hide方法用來(lái)隱藏窗體，隱藏窗體時(shí)相當(dāng)于將窗體的Visible屬性設(shè)置為False。此時(shí)用戶將無(wú)法訪問(wèn)隱藏窗體上的控件，但是程序仍可以使用隱藏窗體上的空間。如果調(diào)用Hide方法時(shí)窗體還沒(méi)有加載，Hide方法將自動(dòng)加載該窗體，但是不顯示它。每個(gè)對(duì)象都可以對(duì)外界的有關(guān)動(dòng)作進(jìn)行識(shí)別和響應(yīng)，所有事件都是系統(tǒng)事先設(shè)計(jì)定義好的，并針對(duì)每個(gè)對(duì)象的特定動(dòng)作，開(kāi)發(fā)人員不能自己創(chuàng)建新的事件，只能給對(duì)象所能識(shí)別的事件編寫(xiě)代碼。窗體的常用事件如表5.4所示。當(dāng)程序運(yùn)行時(shí)，將自動(dòng)觸發(fā)Load事件，有關(guān)窗體的初始化可以放入該事件。事件說(shuō)明Load加載窗體Activated窗體激活Deactivate窗體成為非活動(dòng)窗體Resize窗體改變大小Paint重繪窗體Click單擊窗體DoubleClick雙擊窗體Closed窗體關(guān)閉界面設(shè)計(jì)：新建項(xiàng)目，并將窗體調(diào)整到合適的大小。程序代碼如下：PrivateSubForm1_Resize(ByValsenderAsObject,ByValeAsSystem.EventArgs)_ HandlesMyBase.Resize MsgBox("我變寬了！") '當(dāng)窗體改變大小時(shí)顯示該消息EndSubPrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)_ HandlesMyBase.Click Me.Width=Me.Width+20 '當(dāng)單擊窗體時(shí)讓該窗體的寬度增加20個(gè)像素點(diǎn)EndSub任務(wù)實(shí)現(xiàn)：?jiǎn)螕舸绑w，使窗體的寬度增加20個(gè)像素點(diǎn)。運(yùn)行界面如圖5.2所示

圖5.2單擊窗體前后界面及消息框要想設(shè)計(jì)實(shí)用的程序界面，光有窗體還不夠，還要在窗體中添加各種控件。控件在VB.NET程序設(shè)計(jì)中是一個(gè)非常重要的角色，也是VB.NET程序設(shè)計(jì)的重要基礎(chǔ)。它可以提供事件過(guò)程，供設(shè)計(jì)者編寫(xiě)程序代碼，從而完成程序各部分應(yīng)執(zhí)行的操作，還可以通過(guò)設(shè)置控件的屬性值設(shè)計(jì)出精美的用戶界面。下面將介紹幾個(gè)最常用的控件。訓(xùn)練項(xiàng)目2：常用窗體控件（Controls）

任務(wù)1：使用標(biāo)簽任務(wù)2：使用文本控件任務(wù)3：使用按鈕（Button）任務(wù)4：使用復(fù)選框和單選按鈕（CheckBox&RadioButton）任務(wù)5：使用分組框（GroupBox）任務(wù)6：使用列表框和組合框（ListBox&ComboBox）任務(wù)7：使用計(jì)時(shí)器（Timer）任務(wù)8：使用圖片框（PictureBox）任務(wù)9：使用對(duì)話框（Dialog）任務(wù)10：使用鼠標(biāo)和鍵盤(pán)事件任務(wù)1：使用標(biāo)簽（Label）相關(guān)知識(shí)：標(biāo)簽（Label）控件的功能是顯示字符串，通常顯示的是文字說(shuō)明信息，用來(lái)標(biāo)識(shí)輸入或輸出區(qū)域。VB.NET中包括2種標(biāo)簽控件，分別是Label控件和LinkLabel控件。LinkLabel控件（鏈接標(biāo)簽）是VB.NET新增的控件，通過(guò)它可以向應(yīng)用程序添加Web樣式的鏈接，它除了具有Label控件的所有屬性、方法和事件外，還具有超鏈接和鏈接顏色的屬性。表5.5給出了Label控件的常用屬性。對(duì)于Label控件一般不寫(xiě)事件代碼，盡管它也能響應(yīng)很多事件，如Click、Resize、TextChanged等，但是在實(shí)際使用中還是主要用來(lái)標(biāo)識(shí)信息。如果有特殊的需要，也可以編寫(xiě)事件代碼程序，以讓它能響應(yīng)相應(yīng)的事件。Visible設(shè)置標(biāo)簽是否顯示在窗體上任務(wù)實(shí)現(xiàn)：?jiǎn)螕翩溄訕?biāo)簽，并將單擊的次數(shù)記錄在普通標(biāo)簽上界面設(shè)計(jì)：（1）在窗體上放置一個(gè)鏈接標(biāo)簽和一個(gè)普通標(biāo)簽控件，設(shè)置AutoSize屬性為T(mén)rue，讓它能根據(jù)內(nèi)容自動(dòng)改變大小。（2）設(shè)置BorderStyle屬性為None，即以無(wú)邊框的形式顯示標(biāo)簽。（3）設(shè)置普通標(biāo)簽的Text屬性為“鏈接了0次”，鏈接標(biāo)簽的Text屬性為“請(qǐng)鏈接”。在鏈接標(biāo)簽的LinkClick事件中編寫(xiě)程序代碼如下：SharedcountAsIntegerPrivateSubLinkLabel1_LinkClicked(ByValsenderAsSystem.Object,ByValeAs_System.Windows.Forms.LinkLabelLinkClickedEventArgs)HandlesLinkLabel1.LinkClickedcount=count+1Label1.Text="鏈接了"&count&"次"EndSub程序運(yùn)行后的界面及單擊“請(qǐng)鏈接”標(biāo)簽5次后的界面如圖5.3和圖5.4所示。

圖5.3程序初始界面圖5.4單擊“請(qǐng)鏈接”標(biāo)簽5次后的界面任務(wù)2：使用文本框（TextBox）相關(guān)知識(shí)：文本框（TextBox）控件用來(lái)顯示輸入和輸出的文本信息，是開(kāi)發(fā)應(yīng)用程序時(shí)最常用的控件。TextBox控件是相當(dāng)靈活的數(shù)據(jù)顯示工具，通常用于編輯文本，不過(guò)也可使其成為只讀控件。它可以顯示單行文本，也可以顯示多個(gè)行；還可以對(duì)文本換行控件大小及添加基本格式進(jìn)行設(shè)置。TextBox控件為在該控件中顯示或輸入的文本提供單格式化樣式。若要顯示多種類(lèi)型的帶格式文本，則要使用其他控件。TextBox控件顯示的文本包含在Text屬性中。默認(rèn)情況下，最多可在一個(gè)文本框中輸入2048個(gè)字符。如果將MultiLine屬性設(shè)置為T(mén)rue，則最多可輸入32KB的文本。Text屬性可以在設(shè)計(jì)時(shí)使用“屬性”窗口設(shè)置，或在運(yùn)行時(shí)用代碼設(shè)置，或在運(yùn)行時(shí)通過(guò)用戶輸入來(lái)設(shè)置?？梢栽谶\(yùn)行時(shí)通過(guò)讀取Text屬性來(lái)檢索文本框的當(dāng)前內(nèi)容。表5.6列出了TextBox控件的常用屬性。表5.6

TextBox控件的常用屬性TextBox控件最常用的事件是TextChanged事件，該事件在文本框的Text屬性發(fā)生改變時(shí)觸發(fā)。文本框還有自己的方法，它們?yōu)殚_(kāi)發(fā)人員設(shè)置文本框提供了方便。表5.7

TextBox控件的常用方法任務(wù)實(shí)現(xiàn)：在一個(gè)文本框中輸入字符，另外的文本框中同步顯示相應(yīng)的內(nèi)容PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAs_System.EventArgs)HandlesTextBox1.TextChangedTextBox1.SelectAll() '選中TextBox1中的所有文本TextBox1.Copy() '將選中的文本復(fù)制到剪貼板上TextBox2.Clear() '將TextBox2中的所有文本刪除TextBox2.Paste()'將選中文本用剪貼板上的文本替換TextBox1.SelectionStart=Len(TextBox1.Text) '取消TextBox1文本的選中狀態(tài)EndSub界面設(shè)計(jì)：

在窗體上放置兩個(gè)文本框，并設(shè)置它們的Text屬性均為空。程序代碼如下：設(shè)計(jì)時(shí)的界面和運(yùn)行后的界面見(jiàn)圖5.5和圖5.6。圖5.5設(shè)計(jì)時(shí)的界面圖5.6運(yùn)行后的界面任務(wù)3：使用

按鈕（Button）相關(guān)知識(shí)：按鈕（Button）控件主要用來(lái)執(zhí)行某一命令功能，也稱(chēng)命令按鈕。命令按鈕的最常用事件是Click事件。通常在Click事件中編寫(xiě)一段代碼，當(dāng)用戶用鼠標(biāo)單擊這個(gè)按鈕時(shí)，就會(huì)執(zhí)行某一特定的功能。表5.8

Button控件的常用屬性總體要求：圖5.7程序初始界面在任務(wù)4的基礎(chǔ)上，增加兩個(gè)標(biāo)簽和按鈕控件（其中一個(gè)按鈕具有圖標(biāo)），如圖5.7所示，對(duì)各對(duì)象的屬性分別設(shè)定，并編程實(shí)現(xiàn)如下功能：（1）密碼以“*”的形式顯示，用戶名和密碼最大長(zhǎng)度為6個(gè)字符。（2）如果用戶名為“ABC”且密碼為“123”則顯示“歡迎光臨！”，否則顯示“密碼或用戶名錯(cuò)誤！”。（3）如果輸入3次不對(duì)，則將“登錄”按鈕禁用。并顯示“你無(wú)權(quán)登錄！”。圖5.7程序初始界面任務(wù)實(shí)現(xiàn)：登錄界面的設(shè)計(jì)界面設(shè)計(jì)：

根據(jù)要求在窗體上放置2個(gè)文本框、2個(gè)標(biāo)簽、2個(gè)按鈕，并按表5.9設(shè)置初始屬性值。

表5.9界面中控件的初始屬性值

根據(jù)要求，命令按鈕代碼程序如下。

“退出”按鈕的程序代碼：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton2.ClickEnd'當(dāng)單擊"退出"按鈕時(shí)，結(jié)束程序運(yùn)行EndSub程序運(yùn)行后的各種界面效果如圖5.8所示，第一次輸入了正確的用戶名和密碼，則顯示“歡迎光臨！”；第二次輸入了錯(cuò)誤的密碼和用戶名，則顯示“密碼或用戶名錯(cuò)誤！”；三次輸入錯(cuò)誤時(shí)，則提示“你無(wú)權(quán)登錄！”，同時(shí)將“登錄按鈕”禁用，變成了灰色的。圖5.8程序運(yùn)行后的各種界面效果圖任務(wù)4：使用復(fù)選框和單選按鈕（CheckBox&RadioButton）相關(guān)知識(shí)：復(fù)選框（CheckBox）和單選按鈕（RadioButton）控件功能相近，都是選擇類(lèi)控件，用來(lái)設(shè)置要或不要某一選項(xiàng)功能。CheckBox控件指示某特定選項(xiàng)是打開(kāi)的還是關(guān)閉的。它常用于為用戶提供是/否或真/假選項(xiàng)?？梢猿山M使用CheckBox控件以顯示多重選項(xiàng)，用戶可以從中選擇一項(xiàng)或多項(xiàng)。RadioButton控件為用戶提供由兩個(gè)或多個(gè)互斥選項(xiàng)組成的選項(xiàng)集。雖然CheckBox控件和RadioButton控件看似功能類(lèi)似，卻存在重要差異。它們的相似之處在于，它們都用于指示用戶的可選項(xiàng)；不同之處在于，在單選按鈕組中一次只能選擇一個(gè)單選按鈕，當(dāng)用戶選擇某單選按鈕后，同一組中的其他單選按鈕不能同時(shí)選定。但是對(duì)于CheckBox控件可以選擇任意數(shù)量的選擇項(xiàng)。多個(gè)復(fù)選框或單選按鈕可以使用GroupBox控件進(jìn)行分組。這對(duì)于用戶界面設(shè)計(jì)很有用，因?yàn)槌山M控件可以在窗體設(shè)計(jì)器上一起移動(dòng)。定義單選按鈕組還將告訴用戶：“這里有一組選項(xiàng)，您可以從中選擇一個(gè)且只能選擇一個(gè)。”CheckBox控件和RadioButton控件的常用屬性。

CheckBox控件和RadioButton控件的最常用事件是CheckedChanged事件和Click事件，當(dāng)單擊鼠標(biāo)時(shí)，CheckBox控件會(huì)觸發(fā)Click事件和CheckedChanged事件，但是RadioButton控件可能只觸發(fā)Click事件，不一定觸發(fā)CheckedChanged事件。表5.10CheckBox和RadioButton控件的常用屬性（1）當(dāng)單擊“跑步”或“打球”時(shí)，在文本框中顯示你的愛(ài)好為跑步或打球。（2）當(dāng)單擊“男”或“女”時(shí)，在文本框中顯示你的性別。界面設(shè)計(jì)：在窗體上放置2個(gè)CheckBox控件和2個(gè)RadioButton控件，再裝入1個(gè)TextBox控件，并適當(dāng)調(diào)整大小和設(shè)置初始的屬性值。圖5.9程序初始界面任務(wù)實(shí)現(xiàn)：設(shè)計(jì)如圖5.9所示的界面，實(shí)現(xiàn)以下功能圖5.10顯示了部分運(yùn)行效果。在上面的程序中，CheckBox控件的Click事件代碼，可以不加修改地放在CheckChanged事件中運(yùn)行。該控件的Checked屬性和CheckedState屬性是不同的，Checked屬性只有兩個(gè)值True和False，而CheckedState屬性有3個(gè)值，分別是CheckState.Checked、CheckState.Indeterminate和CheckState.Unchecked。圖5.10部分運(yùn)行效果注意：在同一容器中的單選按鈕屬于同一組。如本例中的RadioButton1和RadioButton2都在窗體中，因此屬于同一組單選按鈕。任務(wù)5：使用分組框（GroupBox）相關(guān)知識(shí)：分組框（GroupBox）控件用于為其他控件提供可識(shí)別的分組。它是一個(gè)容器控件，使用分組框能按功能細(xì)分窗體。它對(duì)所有選項(xiàng)進(jìn)行分組，為用戶提供邏輯可視化線索。GroupBox控件類(lèi)似于Panel控件，但只有GroupBox控件顯示標(biāo)題，而且只有Panel控件可以有滾動(dòng)條。一般不對(duì)分組框編寫(xiě)事件過(guò)程，盡管它也能響應(yīng)很多事件，用戶通常只用它的分組功能來(lái)細(xì)化界面。當(dāng)設(shè)置分組框的Visible屬性為False時(shí)，該分組框內(nèi)的對(duì)象將一起被隱藏。分組框的其他常用屬性是Text屬性和Name屬性，Text顯示分組框的標(biāo)題信息，Name屬性是分組框的名字，在程序中引用時(shí)要指定Name屬性?？傮w要求：設(shè)計(jì)如圖5.11所示的界面，適當(dāng)調(diào)整控件大小和位置，并設(shè)置初始屬性。將“性別”分成一組，將“收入狀況”分成另一組，要求單擊命令按鈕能隱藏性別組，再次單擊，能顯示性別組。程序代碼如下：PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton1.ClickIfGroupBox1.VisibleThenGroupBox1.Visible=FalseElseGroupBox1.Visible=TrueEndIfEndSub任務(wù)實(shí)現(xiàn)：利用分組框，將控件分組。程序運(yùn)行的界面見(jiàn)圖5.11。上面的程序運(yùn)行時(shí)，讀者可以發(fā)現(xiàn)：“性別”這一組，能選擇男或女，兩者必須選擇一個(gè)，而且只能選擇一個(gè)。“收入狀況”這一組，兩者也是必須選擇一個(gè)，而且只能選擇一個(gè)。但是從整個(gè)窗體來(lái)看，卻選擇了兩個(gè)RadioButton，這是由于分組框使得2組單選鈕分別屬于不同的分組框容器，從而使用戶可以分別選擇選項(xiàng)。圖5.11程序運(yùn)行的兩種界面任務(wù)6：列表框和組合框（ListBox&ComboBox）相關(guān)知識(shí)：列表框（ListBox）和組合框（ComboBox）控件都能為用戶提供一個(gè)可供選擇的列表，ComboBox控件和ListBox控件具有相似行為，在某些情況下可以互換。但是也存在其中一種控件更適合于某任務(wù)的情況。組合框通常應(yīng)用于存在一組“建議”選項(xiàng)的情況，而列表框通常應(yīng)用于限制選項(xiàng)為列表中內(nèi)容的情況。組合框整合了一個(gè)文本框，可以輸入列表中沒(méi)有的選項(xiàng)，但是當(dāng)設(shè)置組合框的DropDownStyle屬性為ComboBoxStyle.DropDownList時(shí)例外。組合框在用戶單擊下箭頭鍵之前不顯示完整列表，它比列表框節(jié)約窗體空間。但是當(dāng)設(shè)置組合框的DropDownStyle屬性為ComboBoxStyle.Simple時(shí)，將顯示完整列表，反而比列表框占用的空間多。列表框（ListBox）

ListBox控件顯示一個(gè)項(xiàng)列表，用戶可從中選擇一項(xiàng)或多項(xiàng)。如果項(xiàng)總數(shù)超出可以顯示的項(xiàng)數(shù)，則自動(dòng)向ListBox控件添加滾動(dòng)條。ListBox控件的常用屬性見(jiàn)表5.11。

表5.11

ListBox控件的常用屬性ListBox控件的常用方法如下。1.Items.Add方法用于將項(xiàng)目添加到ListBox控件中，其語(yǔ)法格式如下：Object.Items.Add(Item)其中，Object指Listbox控件名，Item是要添加到列表框中的字符表達(dá)式。2.Items.Insert方法用于將項(xiàng)目插入到ListBox控件中，其語(yǔ)法格式如下：Object.Items.Insert(Item,Index)其中：（1）Object，指Listbox控件名，Item是要添加到列表框中的字符表達(dá)式。（2）Index，是可選參數(shù)，用來(lái)指定新項(xiàng)目在列表框中的位置。如果所給的Index值有效，則Item將放置在列表框相應(yīng)的位置。如果省略Index，當(dāng)Sorted屬性值為T(mén)rue時(shí)，Item將添加到恰當(dāng)?shù)呐判蛭恢茫划?dāng)Sorted屬性值為False時(shí)，Item將添加到列表的結(jié)尾。3.Items.Remove方法用于從ListBox控件中刪除一個(gè)項(xiàng)目，其語(yǔ)法格式如下：Object.Items.Remove(Item)其中：（1）Object，指Listbox控件名。（2）Item，用來(lái)指定要?jiǎng)h除的項(xiàng)目。4.Items.RemoveAt方法RemoveAt方法與Remove方法有所不同，它是按照索引方式刪除ListBox控件中的項(xiàng)目，其語(yǔ)法格式如下：Object.Items.RemoveAt(Index)其中：（1）Object，指Listbox控件名。（2）Index，用來(lái)指定要?jiǎng)h除的項(xiàng)目在列表框中的位置。5.Items.Clear方法Clear方法可以刪除ListBox控件的所有項(xiàng)目，其語(yǔ)法格式如下：Object.Items.Clear()修改和刪除列表框中的項(xiàng)目，可以通過(guò)以上的方法或在屬性窗口修改Items的屬性值來(lái)實(shí)現(xiàn)。單擊Items右邊的按鈕，將彈出“字符串集合編輯器”對(duì)話框（如圖5.12所示），用戶可以在其中修改列表框的項(xiàng)目。圖5.12列表框的“屬性”對(duì)話框和“字符串集合編輯器”對(duì)話框ListBox列表框最常用的事件是SelectedIndexChanged事件，當(dāng)鼠標(biāo)在列表框中單擊任一條目時(shí)，觸發(fā)該事件。其事件過(guò)程如下：

PrivateSub對(duì)象名_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_Handles對(duì)象名.SelectedIndexChanged……'添加自己的代碼EndSub設(shè)計(jì)如圖5.13所示的界面，當(dāng)單擊“增加條目”按鈕時(shí)，將文本框中的內(nèi)容添加到列表框中；當(dāng)單擊“刪除條目”按鈕時(shí)，將列表框的第一條列表項(xiàng)刪除。當(dāng)單擊列表框中的條目時(shí)，以消息框的形式顯示條目?jī)?nèi)容。界面設(shè)計(jì)：在窗體上添加1個(gè)列表框、1個(gè)文本框、3個(gè)按鈕。設(shè)置各對(duì)象的初始屬性并調(diào)整其大小，如圖5.13所示。程序運(yùn)行后的界面如圖5.14所示。圖5.13程序初始界面任務(wù)實(shí)現(xiàn)圖5.14程序運(yùn)行后的部分界面組合框（ComboBox）相關(guān)知識(shí)：組合框（ComboBox）控件的功能和ListBox控件非常相似，但它一次只能選取或輸入一個(gè)選項(xiàng)，而不能設(shè)定為多重選取模式。ComboBox控件默認(rèn)情況下分兩部分顯示：頂部是一個(gè)允許用戶鍵入列表項(xiàng)的文本框。下面是列表框，它顯示用戶可以選擇列表項(xiàng)。ComboBox控件與ListBox控件相同的屬性、方法、事件等，本節(jié)不再贅述，ComboBox控件的一些特有屬性，如表5.12所示。表5.12

ComboBox控件的特有屬性圖5.15顯示了取不同的DropDownStyle屬性值時(shí)ComboBox控件的外觀。圖5.15取不同的DropDownStyle屬性值時(shí)的ComboBox控件任務(wù)7：計(jì)時(shí)器（Timer）相關(guān)知識(shí)：計(jì)時(shí)器（Timer）控件是按標(biāo)準(zhǔn)時(shí)間間隔引發(fā)事件的控件。該控件的屬性不多，但在動(dòng)畫(huà)制作或定期執(zhí)行某種操作等方面很有用。該控件的屬性主要有：定義計(jì)時(shí)器時(shí)間間隔長(zhǎng)度的Interval屬性，其值以毫秒為單位；決定定時(shí)器是否有效的Enabled屬性。Timer控件的主要方法是Start和Stop，它們分別用于打開(kāi)和關(guān)閉計(jì)時(shí)器。計(jì)時(shí)器在關(guān)閉時(shí)重置；不存在暫停Timer組件的方法。Timer控件的事件只有一個(gè)。如果啟用了Timer組件，則每個(gè)時(shí)間間隔都將引發(fā)一個(gè)Tick事件。在Tick事件中添加代碼，則每個(gè)時(shí)間間隔將自動(dòng)執(zhí)行一次該代碼。界面設(shè)計(jì)：在窗體上放置兩個(gè)按鈕、一個(gè)圖片框和一個(gè)計(jì)時(shí)器，由于計(jì)時(shí)器控件運(yùn)行時(shí)不可見(jiàn)，所以設(shè)計(jì)時(shí)將被安排在窗體的下方，如圖5.17所示。適當(dāng)調(diào)整窗體中各對(duì)象的位置和大小，并設(shè)置各對(duì)象的屬性值。圖5.17設(shè)計(jì)階段界面示意圖任務(wù)實(shí)現(xiàn)：利用計(jì)時(shí)器實(shí)現(xiàn)圖片的自動(dòng)移動(dòng)表5.14列出了窗體上各個(gè)對(duì)象的屬性設(shè)定值。表5.14窗體中控件屬性表上面程序運(yùn)行后如果單擊“開(kāi)始移動(dòng)”按鈕，則圖片將慢慢地向右移動(dòng)。單擊“暫停移動(dòng)”按鈕，圖片將停止移動(dòng)，如圖5.18所示。與VisualBasic6.0不同，在VB.NET中，Timer對(duì)象不能自動(dòng)啟動(dòng)，必須調(diào)用Start方法才能啟動(dòng)。圖5.18運(yùn)行后的效果圖相關(guān)知識(shí)：圖片框（PictureBox）控件用于顯示位圖、GIF、JPEG、圖元文件或圖標(biāo)格式的圖形。所顯示的圖片由Image屬性確定，該屬性可在運(yùn)行時(shí)或設(shè)計(jì)時(shí)設(shè)置。SizeMode屬性控制圖像顯示的方式，如表5.15所示。任務(wù)8：使用圖片框（PictureBox）表5.15

PictureBox控件的常用屬性PictureBox控件的常用事件是Click事件，下面將演示單擊圖片框后，圖片框的圖片將消失。界面設(shè)計(jì)：設(shè)計(jì)如圖5.19所示的界面。在窗體上放1個(gè)標(biāo)簽、1個(gè)文本框、1個(gè)圖片框，并分別設(shè)置它們的屬性。其中圖片框的SizeMode屬性值為StretchImage，BorderStyle屬性值為Fixed3D。圖5.19設(shè)計(jì)階段界面示意圖任務(wù)實(shí)現(xiàn)：PictureBox控件演示程序功能：在文本框中輸入圖片文件的存放路徑和文件名并按回車(chē)鍵，圖片框裝入該圖片并顯示，如圖5.20所示，因?yàn)樵O(shè)置了SizeMode屬性值為StretchImage，所以圖片能自動(dòng)根據(jù)圖片框的大小填滿整個(gè)圖片框。用鼠標(biāo)單擊圖片框，圖片將從圖片框中刪除，如圖5.21所示。圖5.20裝入圖片圖5.21刪除圖片任務(wù)9：使用對(duì)話框（Dialog）如果需要OpenFileDialog、SaveFileDialog、FontDialog、ColorDialog、PrintDialog、PrintPreviewDialog等控件。這些控件在VB.NET與Commdlg.dll例程間提供接口，分別對(duì)應(yīng)打開(kāi)、保存、字體、顏色、打印和打印預(yù)覽對(duì)話框。運(yùn)行時(shí)只要調(diào)用這些控件的ShowDialog方法即可彈出相應(yīng)的對(duì)話框。打開(kāi)文件對(duì)話框（OpenFileDialog）相關(guān)知識(shí)OpenFileDialog控件提供一個(gè)標(biāo)準(zhǔn)的打開(kāi)文件對(duì)話框。其中可以指定驅(qū)動(dòng)器、文件夾、文件類(lèi)型和文件名。OpenFileDialog控件的常用屬性見(jiàn)表5.16。OpenFileDialog控件最常用的方法是ShowDialog方法，最常用的事件是FileOK事件，其他方法和事件見(jiàn)表5.17。表5.16

OpenFileDialog控件的常用屬性（續(xù)表）

表5.17

OpenFileDialog控件的方法和事件當(dāng)在程序中調(diào)用OpenFileDialog控件的ShowDialog方法時(shí)，將顯示“打開(kāi)”對(duì)話框（見(jiàn)圖5.22）。圖5.22“打開(kāi)”對(duì)話框OpenFileDialog控件本身并不能打開(kāi)和讀入文件，它需要使用Stream類(lèi)來(lái)實(shí)現(xiàn)打開(kāi)和讀入文件的操作，Stream類(lèi)將在后續(xù)章節(jié)中講解。以下示例創(chuàng)建一個(gè)OpenFileDialog，設(shè)置幾個(gè)屬性，并用ShowDialog顯示“打開(kāi)”對(duì)話框，利用Stream類(lèi)將選定的文件讀入到文本框中。界面設(shè)計(jì)：如圖5.23所示，在窗體上放置1個(gè)文本框，設(shè)置其Multiline屬性為T(mén)rue；放置1個(gè)按鈕，設(shè)置其Text屬性為open；放置1個(gè)打開(kāi)文件對(duì)話框。要求程序運(yùn)行后，單擊“open”按鈕，自動(dòng)打開(kāi)對(duì)話框，選擇文本文件后，將該文本文件的內(nèi)容讀取到文本框中。圖5.23設(shè)計(jì)界面任務(wù)實(shí)現(xiàn)9-1：打開(kāi)文本文件OpenFileDialog控件的Fileter屬性的設(shè)定方法如下：篩選器說(shuō)明|篩選器模式對(duì)于每個(gè)篩選項(xiàng)，篩選器字符串都包含篩選器說(shuō)明，后接一垂直線條（|）和篩選器模式。不同篩選項(xiàng)的字符串由垂直線條隔開(kāi)。下面是篩選器字符串的一個(gè)示例：OpenFileDialog1.Fileter="文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"通過(guò)用分號(hào)分隔各種文件類(lèi)型，可以將多個(gè)篩選器模式添加到篩選器中。例如，“圖像文件（*.BMP;*.JPG;*.GIF）|*.BMP;*.JPG;*.GIF|所有文件（*.*）|*.*”篩選器字符串，可以篩選出擴(kuò)展名是BMP、JPG、GIF的圖像文件和所有文件。程序中，在按鈕的Click事件中只設(shè)置了OpenFileDialog控件的有關(guān)屬性，并調(diào)用該控件的ShowDialog方法，至于打開(kāi)文件后如何處理則放在OpenFileDialog控件的FileOk事件中。程序運(yùn)行后，單擊“open”按鈕，將打開(kāi)如圖5.22所示的對(duì)話框，選擇桌面上的test.txt文件后，單擊“打開(kāi)”按鈕，則text.txt文件的內(nèi)容將被讀出，并顯示在文本框中，如圖5.24所示。圖5.24讀出文件內(nèi)容后的界面保存文件對(duì)話框（SaveFileDialog）相關(guān)知識(shí)SaveFileDialog控件與OpenFileDialog控件類(lèi)似，它用于保存文件。SaveFileDialog控件的屬性也與OpenFileDialog控件類(lèi)似，但它也有其專(zhuān)用的屬性。表5.18是SaveFileDialog控件的常用屬性。SaveFileDialog控件的方法與事件和OpenFileDialog控件的方法與事件相同，這里不再贅述。和OpenFileDialog控件一樣，SaveFileDialog控件本身不能保存文件，要寫(xiě)入文件，必須使用Stream類(lèi)。在任務(wù)11-1的基礎(chǔ)上增加1個(gè)SaveFileDialog控件和按鈕，設(shè)置按鈕的Text屬性為Save保存。程序代碼如下：PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton2.ClickSaveFileDialog1.Filter="txtfiles(*.txt)|*.txt|Allfiles(*.*)|*.*"SaveFileDialog1.FilterIndex=2SaveFileDialog1.RestoreDirectory=TrueSaveFileDialog1.ShowDialog()EndSub任務(wù)實(shí)現(xiàn)9-2：保存文本文件圖5.25程序運(yùn)行界面圖5.26“另存為”對(duì)話框程序中，Save按鈕的Click事件中只設(shè)置了SaveFileDialog控件的有關(guān)屬性，并調(diào)用了該控件的ShowDialog方法，至于輸入或選擇文件后如何處理則放在SaveFileDialog控件的FileOk事件中。程序運(yùn)行后的界面如圖5.25所示，打開(kāi)文件后修改文本框中的內(nèi)容，然后單擊“Save”按鈕，彈出“另存為”對(duì)話框如圖5.26所示。

顏色對(duì)話框（ColorDialog）相關(guān)知識(shí)ColorDialog控件用于顯示顏色對(duì)話框，以便用戶為窗體的其他對(duì)象設(shè)置顏色，ColorDialog控件允許用戶選擇48種顏色，如圖5.27所示。當(dāng)用戶選擇“規(guī)定自定義顏色”按鈕時(shí)，將可以自己調(diào)整16種自定義顏色的設(shè)置，以滿足需求。圖5.27“顏色”對(duì)話框ColorDialog控件常用的屬性見(jiàn)表5.19。表5.19

ColorDialog控件的常用屬性ColorDialog控件的常用方法是Reset方法和ShowDialog方法。它的常用事件是HelpRequest事件。調(diào)用ColorDialog控件的ShowDialog方法時(shí)，根據(jù)用戶選擇的是“確定”按鈕還是“取消”按鈕，還是返回DialogResult為OK或Cancel。任務(wù)實(shí)現(xiàn)9-3：改變文本框顏色界面設(shè)計(jì)：在例5.12的基礎(chǔ)上增加1個(gè)ColorDialog控件和按鈕，設(shè)置按鈕的Text屬性為Color，見(jiàn)圖5.28。編程實(shí)現(xiàn)，當(dāng)單擊“color”按鈕時(shí)，能改變文本框的背景色。程序代碼如下：PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_HandlesButton3.ClickIfColorDialog1.ShowDialog()=DialogResult.OKThen '調(diào)用顏色對(duì)話框TextBox1.BackColor=ColorDialog1.Color'改變文本框的背景顏色EndIfEndSub圖5.28設(shè)計(jì)時(shí)的界面程序運(yùn)行后，單擊“color”按鈕，彈出“顏色”對(duì)話框，并根據(jù)用戶選擇的顏色改變文本框的背景色，如圖5.29所示。圖5.29“顏色”對(duì)話框和改變了背景色的文本框字體對(duì)話框（FontDialog）相關(guān)知識(shí)FontDialog控件顯示字體對(duì)話框，在一個(gè)用戶熟悉的標(biāo)準(zhǔn)對(duì)話框中顯示可用的字體列表，用戶可以根據(jù)需要為窗體上的其他對(duì)象選擇合適的字體。FontDialog控件的常用屬性見(jiàn)表5.20。（續(xù)表）

FontDialog控件的常用方法是ShowDialog方法和Reset方法，常用的事件是Apply事件。當(dāng)單擊對(duì)話框中的“應(yīng)用”按鈕時(shí)觸發(fā)該事件。界面設(shè)計(jì)：在上一任務(wù)的基礎(chǔ)上增加1個(gè)FontDialog控件；再增加1個(gè)按鈕，設(shè)置按鈕的Text屬性為Font，見(jiàn)圖5.30。編程實(shí)現(xiàn)，當(dāng)單擊“Font”按鈕時(shí)，能改變文本框中的字體。圖5.30設(shè)計(jì)時(shí)的界面任務(wù)實(shí)現(xiàn)9-4：字體對(duì)話框示例。程序運(yùn)行后，單擊“Font”按鈕，將彈出“字體”對(duì)話框，如圖5.31所示。選擇適當(dāng)?shù)淖煮w后單擊“應(yīng)用”按鈕或“確定”按鈕，均可改變文本框中的字體及其顏色。程序改變字體前后的界面如圖5.32所示。圖5.31“字體”對(duì)話框類(lèi)似地，讀者還可以根據(jù)需要，選用其他的公用對(duì)話框，如打印對(duì)話框、頁(yè)面設(shè)置對(duì)話框、打印預(yù)覽對(duì)話框等。圖5.32字體改變前后的界面任務(wù)10：使用鼠標(biāo)和鍵盤(pán)事件第1章中已經(jīng)對(duì)事件的概念做了描述，事件的種類(lèi)很多，要掌握所有的事件不是一件容易的事，本節(jié)將介紹VB.NET中最常用的兩大類(lèi)事件：鼠標(biāo)事件和鍵盤(pán)事件。鼠標(biāo)事件

鼠標(biāo)事件是VB.NET中最常用的事件，它是由鼠標(biāo)觸發(fā)的。鼠標(biāo)事件包括Click、DoubleClick、MouseMove、MouseDown、MouseUp等，本章的許多例子已經(jīng)用到了鼠標(biāo)的相關(guān)事件。表5.21列出了鼠標(biāo)事件及觸發(fā)條件對(duì)應(yīng)表。表5.21鼠標(biāo)事件及觸發(fā)條件對(duì)應(yīng)表在窗體中放置1個(gè)文本框和1個(gè)標(biāo)簽按鈕，設(shè)置文本框的ScrollBars屬性為Vertical，Multiline屬性為T(mén)rue，給Label1的鼠標(biāo)事件編寫(xiě)以下程序。每一種事件觸發(fā)后都將在文本框中顯示該事件名稱(chēng)，從中可以看出單擊鼠標(biāo)和雙擊鼠標(biāo)時(shí)事件的執(zhí)行順序。圖5.33顯示了雙擊Label1控件后的事件順序。Label1對(duì)象的幾種鼠標(biāo)事件程序：PrivateSubLabel1_MouseDown(ByValsenderAsObject,ByValeAs_System.Windows.Forms.MouseEventArgs)HandlesLabel1.MouseDownTextBox1.Text=TextBox1.Text&"MouseDown事件"&vbCrLfEndSubPrivateSubLabel1_MouseUp(ByValsenderAsObject,ByValeAs_System.Windows.Forms.MouseEventArgs)HandlesLabel1.MouseUpTextBox1.Text=TextBox1.Text&"MouseUp事件"&vbCrLfEndSub任務(wù)實(shí)現(xiàn)10-1：鼠標(biāo)事件的測(cè)試鼠標(biāo)事件還能檢測(cè)出按下和釋放的是哪個(gè)鍵，還能檢測(cè)鼠標(biāo)當(dāng)前的位置。在鼠標(biāo)事件中，要確定鼠標(biāo)的位置或鼠標(biāo)的哪個(gè)鍵在操作，必須通過(guò)鼠標(biāo)事件中的對(duì)象參數(shù)e的有關(guān)屬性來(lái)識(shí)別。該對(duì)象參數(shù)具有Button屬性和X,Y屬性，Button屬性返回鼠標(biāo)的鍵值，X,Y屬性返回鼠標(biāo)的位置。PrivateSubLabel1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)_HandlesLabel1.ClickTextBox1.Text=TextBox1.Text&"Click事件"&vbCrLfEndSubPrivateSubLabel1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)_HandlesLabel1.DoubleClickTextBox1.Text=TextBox1.Text&"DoubleClick事件"&vbCrLfEndSub本示例程序通過(guò)對(duì)象參數(shù)e，實(shí)現(xiàn)如下功能：當(dāng)在文本框中按住鼠標(biāo)左鍵移動(dòng)時(shí)，將顯示鼠標(biāo)在文本框中的相對(duì)位置，并把位置的X,Y坐標(biāo)顯示在文本框中。程序運(yùn)行時(shí)，文本框中的內(nèi)容會(huì)隨著鼠標(biāo)的移動(dòng)而變化。運(yùn)行界面見(jiàn)圖5.34。圖5.33雙擊Label1控件后的界面圖5.34運(yùn)行界面任務(wù)實(shí)現(xiàn)10-2：鼠標(biāo)事件對(duì)象e的測(cè)試鍵盤(pán)事件鍵盤(pán)事件也是VB.NET中最常用的事件，它是由鍵盤(pán)觸發(fā)的。鍵盤(pán)事件包括KeyDown、KeyUp和KeyPress等事件，分別代表鍵被按下、鍵彈起和一個(gè)完整的按鍵事件。KeyDown和KeyUp事件中，可以通過(guò)對(duì)象參數(shù)e的Keycode屬性或KeyData屬性來(lái)捕獲用戶按下的是哪個(gè)鍵，也可以通過(guò)e參數(shù)的Alt、Control和Shift屬性來(lái)判定用戶是否按下了功能鍵。KeyPress事件中，可以通過(guò)對(duì)象參數(shù)e的KeyChar屬性來(lái)判定用戶的按鍵。例5.10中就用到了鍵盤(pán)的KeyPress事件，程序代碼如下：PrivateSubTextBox1_KeyPress(ByValsenderAsObject,ByValeAs_System.Windows.Forms.KeyPressEventArgs)HandlesTextBox1.KeyPressIfe.KeyChar=Chr(13)ThenPictureBox2.Image=System.Drawing.Image.FromFile(TextBox1.Text)EndIfEndSub該事件中通過(guò)對(duì)象參數(shù)e的KeyChar屬性，判定用戶是否按下了回車(chē)鍵。如果按下了回車(chē)鍵，則給圖片框裝上以文本中內(nèi)容為文件名的圖片。學(xué)生訓(xùn)練：利用滾動(dòng)條實(shí)現(xiàn)圖片的滾動(dòng)顯示通過(guò)前面的學(xué)習(xí)，讀者已經(jīng)可以利用適當(dāng)?shù)目丶M合，結(jié)合事件編程和一定的算法，實(shí)現(xiàn)比較復(fù)雜的程序設(shè)計(jì)。界面設(shè)計(jì)： 在窗體中放置2個(gè)滾動(dòng)條、1個(gè)Panel控件、1個(gè)放置在Panel控件中的圖片框。給圖片框選擇一幅圖片，圖片的尺寸比顯示區(qū)域大，采用滾動(dòng)條，使圖片能在顯示區(qū)域中滾動(dòng)顯示。界面控件的屬性如表5.22所示。運(yùn)行界面如圖5.35所示。利用滾動(dòng)條可以實(shí)現(xiàn)圖片的滾動(dòng)顯示。表5.22窗體中控件屬性表程序代碼如下：PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_Handle