數(shù)據(jù)庫(kù)技術(shù)與應(yīng)用第7章-VBNET程序設(shè)計(jì)基礎(chǔ)ppt課件

1、 數(shù)據(jù)庫(kù)技術(shù)及應(yīng)用數(shù)據(jù)庫(kù)技術(shù)及應(yīng)用DB第第7章章 VB.NET程序設(shè)計(jì)基礎(chǔ)程序設(shè)計(jì)基礎(chǔ)本章主要內(nèi)容：本章主要內(nèi)容： 介紹介紹VB.NET的集成開(kāi)發(fā)環(huán)境；的集成開(kāi)發(fā)環(huán)境； 常用控件常用控件(主要屬性主要屬性,方法和事件方法和事件)的使用；的使用； VB.NET程序設(shè)計(jì)的基礎(chǔ)知識(shí)數(shù)據(jù)類(lèi)型、程序設(shè)計(jì)的基礎(chǔ)知識(shí)數(shù)據(jù)類(lèi)型、 表達(dá)式、程序控制結(jié)構(gòu)等）。（重點(diǎn)）表達(dá)式、程序控制結(jié)構(gòu)等）。（重點(diǎn)） 7.1 VB.NET基本概念基本概念7.1.1 VB.NET簡(jiǎn)介簡(jiǎn)介.NET開(kāi)發(fā)平臺(tái)：如下圖。開(kāi)發(fā)平臺(tái)：如下圖。7.1.1 VB.NET簡(jiǎn)介簡(jiǎn)介VS .NET開(kāi)發(fā)平臺(tái)開(kāi)發(fā)平臺(tái)中間語(yǔ)言程序中間語(yǔ)言程序(EXE)在不同

2、的在不同的CPU上運(yùn)行上運(yùn)行基礎(chǔ)類(lèi)庫(kù)基礎(chǔ)類(lèi)庫(kù)CLR第第1次編譯次編譯第第2次編譯次編譯VS.NETVB.NET VC+.NETVC#.NET VJ#.NETWindows應(yīng)用程序應(yīng)用程序ASP.NET程序程序數(shù)據(jù)和數(shù)據(jù)和XML類(lèi)類(lèi)(ADO.NET,SQL,XML,XSLT etc.)7.1.1 VB.NET簡(jiǎn)介簡(jiǎn)介1. .NET開(kāi)發(fā)平臺(tái)的特點(diǎn)開(kāi)發(fā)平臺(tái)的特點(diǎn)支持多種語(yǔ)言編程環(huán)境。支持多種語(yǔ)言編程環(huán)境。VS.NET是一個(gè)是一個(gè)集成開(kāi)發(fā)環(huán)境，集成集成開(kāi)發(fā)環(huán)境，集成VB、VC、C#、J#。 允許它們共享工具并有助于創(chuàng)建混合語(yǔ)言允許它們共享工具并有助于創(chuàng)建混合語(yǔ)言解決方案。解決方案?？梢蚤_(kāi)發(fā)多種應(yīng)用程序

3、。如可以開(kāi)發(fā)多種應(yīng)用程序。如Windows應(yīng)用應(yīng)用程序、程序、ASP Web 應(yīng)用程序、應(yīng)用程序、XML Web services、挪動(dòng)、挪動(dòng)(Mobile)應(yīng)用程序等等應(yīng)用程序等等 。7.1.1 VS.NET簡(jiǎn)介簡(jiǎn)介使用同一個(gè)基礎(chǔ)類(lèi)庫(kù)。在傳統(tǒng)的語(yǔ)言編程使用同一個(gè)基礎(chǔ)類(lèi)庫(kù)。在傳統(tǒng)的語(yǔ)言編程環(huán)境中，不同的語(yǔ)言有不同的函數(shù)庫(kù)，而環(huán)境中，不同的語(yǔ)言有不同的函數(shù)庫(kù)，而且調(diào)用方式也不同，不同語(yǔ)言的函數(shù)庫(kù)是且調(diào)用方式也不同，不同語(yǔ)言的函數(shù)庫(kù)是不能通用的。在不能通用的。在VS.NET中，大家使用同中，大家使用同一個(gè)基礎(chǔ)類(lèi)庫(kù)。一個(gè)基礎(chǔ)類(lèi)庫(kù)。7.1.1 VS.NET簡(jiǎn)介簡(jiǎn)介 公共語(yǔ)言運(yùn)行時(shí)庫(kù)。公共語(yǔ)言運(yùn)行時(shí)庫(kù)。

4、 運(yùn)行時(shí)庫(kù)提供了執(zhí)行程序的服務(wù)，實(shí)現(xiàn)了運(yùn)行時(shí)庫(kù)提供了執(zhí)行程序的服務(wù)，實(shí)現(xiàn)了編程語(yǔ)言的統(tǒng)一。編程語(yǔ)言的統(tǒng)一。 .NET程序需要程序需要2次編譯才能在次編譯才能在CPU上運(yùn)行。上運(yùn)行。首先編譯生成與首先編譯生成與CPU無(wú)關(guān)的中間語(yǔ)言，然無(wú)關(guān)的中間語(yǔ)言，然后在公共語(yǔ)言運(yùn)行時(shí)庫(kù)后在公共語(yǔ)言運(yùn)行時(shí)庫(kù)(CLR)的支持下，的支持下，中間語(yǔ)言程序被編譯成本地中間語(yǔ)言程序被編譯成本地CPU指令程序。指令程序。實(shí)現(xiàn)了實(shí)現(xiàn)了.NET跨平臺(tái)運(yùn)行的目標(biāo)。跨平臺(tái)運(yùn)行的目標(biāo)。2. VS.NET和和.NET框架框架.NET框架是與框架是與VS.NET緊密相聯(lián)緊密相聯(lián), VS.NET依依賴(lài)于賴(lài)于.NET框架提供的服務(wù)?？蚣芴峁?/p>

5、的服務(wù)。7.1.1 VS.NET簡(jiǎn)介簡(jiǎn)介. VS.NET和和.NET框架的關(guān)系如下圖所示?？蚣艿年P(guān)系如下圖所示。調(diào)用調(diào)用.NET框架服務(wù)框架服務(wù)調(diào)用編譯器的服務(wù)調(diào)用編譯器的服務(wù)運(yùn)行時(shí)調(diào)試支持運(yùn)行時(shí)調(diào)試支持工具窗口工具窗口代碼編輯器代碼編輯器可視化設(shè)計(jì)器可視化設(shè)計(jì)器集成開(kāi)發(fā)環(huán)境集成開(kāi)發(fā)環(huán)境VS.NET公共類(lèi)型系統(tǒng)公共類(lèi)型系統(tǒng)公共語(yǔ)言規(guī)范公共語(yǔ)言規(guī)范Just In Time編譯器編譯器執(zhí)行管理執(zhí)行管理.NET框架類(lèi)庫(kù)框架類(lèi)庫(kù)公共語(yǔ)言運(yùn)行庫(kù)公共語(yǔ)言運(yùn)行庫(kù)第方語(yǔ)言第方語(yǔ)言+C#VB.NETVJ#編譯器編譯器.NET框架框架. VB.NET和和VS.NETVB.NET是是VS.NET支持的多種語(yǔ)言之一。

6、是微軟支持的多種語(yǔ)言之一。是微軟推出的第個(gè)基于推出的第個(gè)基于.NET框架的開(kāi)發(fā)工具，是完全框架的開(kāi)發(fā)工具，是完全面向?qū)ο蟮木幊陶Z(yǔ)言，支持繼承、重載、構(gòu)造等面向?qū)ο蟮木幊陶Z(yǔ)言，支持繼承、重載、構(gòu)造等面向?qū)ο蠓椒?。面向?qū)ο蠓椒ā?.1.1 VS.NET簡(jiǎn)介簡(jiǎn)介7.1.2 VB.NET集成開(kāi)發(fā)環(huán)境集成開(kāi)發(fā)環(huán)境進(jìn)入進(jìn)入VB.NET主要窗口介紹主要窗口介紹VB.NET主窗口主窗口 窗體設(shè)計(jì)器窗窗體設(shè)計(jì)器窗口口代碼設(shè)計(jì)代碼設(shè)計(jì) 屬性窗口屬性窗口解決方案資源管理器窗口解決方案資源管理器窗口工具箱窗口工具箱窗口 其它窗口在其它窗口在“視圖菜單中選擇）視圖菜單中選擇）一個(gè)應(yīng)用程序由項(xiàng)目構(gòu)成，一個(gè)項(xiàng)目對(duì)應(yīng)一個(gè)項(xiàng)目

7、一個(gè)應(yīng)用程序由項(xiàng)目構(gòu)成，一個(gè)項(xiàng)目對(duì)應(yīng)一個(gè)項(xiàng)目文件夾，其中包括項(xiàng)目涉及的所有文件。文件夾，其中包括項(xiàng)目涉及的所有文件。7.1.3 建立簡(jiǎn)單的應(yīng)用程序建立簡(jiǎn)單的應(yīng)用程序本節(jié)我們通過(guò)本節(jié)我們通過(guò)2個(gè)簡(jiǎn)單例子說(shuō)明完整個(gè)簡(jiǎn)單例子說(shuō)明完整VB.NET應(yīng)用程序的建立過(guò)程。應(yīng)用程序的建立過(guò)程。建立一個(gè)應(yīng)用程序分以下幾步進(jìn)行建立一個(gè)應(yīng)用程序分以下幾步進(jìn)行: 建立用戶(hù)界面的各個(gè)對(duì)象建立用戶(hù)界面的各個(gè)對(duì)象; 對(duì)象屬性的可視化設(shè)置對(duì)象屬性的可視化設(shè)置; 對(duì)象事件過(guò)程編碼對(duì)象事件過(guò)程編碼; 保管、調(diào)試和運(yùn)行程序。保管、調(diào)試和運(yùn)行程序。7.1.3 建立簡(jiǎn)單的應(yīng)用程序建立簡(jiǎn)單的應(yīng)用程序例例7.1 界面見(jiàn)下頁(yè)圖所示。界面見(jiàn)下

8、頁(yè)圖所示。7.1.3 建立簡(jiǎn)單的應(yīng)用程序建立簡(jiǎn)單的應(yīng)用程序例例7.2 界面見(jiàn)下頁(yè)。通過(guò)按鈕操作讓界面見(jiàn)下頁(yè)。通過(guò)按鈕操作讓“歡歡迎使用迎使用VB.NET在窗口中移動(dòng)。步驟：在窗口中移動(dòng)。步驟：設(shè)計(jì)用戶(hù)界面并設(shè)置控件屬性設(shè)計(jì)用戶(hù)界面并設(shè)置控件屬性編寫(xiě)事件過(guò)程編寫(xiě)事件過(guò)程7.1.3 建立簡(jiǎn)單的應(yīng)用程序建立簡(jiǎn)單的應(yīng)用程序 Private Sub Timer1_Tick(ByVal sender , ByVal e As ) If Label1.Left Me.Width Then Label1.Left = -200 Else Label1.Left = Label1.Left + 8 End If

9、 End Sub Private Sub Button2_Click( ) . 手動(dòng)移動(dòng)手動(dòng)移動(dòng) Timer1.Enabled = False Timer1_Tick(sender, e) 調(diào)用一次調(diào)用一次Timer1_Tick End Sub Private Sub Button1_Click( ) . 自動(dòng)移動(dòng)自動(dòng)移動(dòng) Timer1.Enabled = TrueEnd Sub7.1.4 如何使用幫助系統(tǒng)如何使用幫助系統(tǒng) VS.NET中聯(lián)機(jī)幫助系統(tǒng)是基于中聯(lián)機(jī)幫助系統(tǒng)是基于MSDN library。VS.NET的的MSDN library可以隨可以隨其安裝時(shí)一起安裝，也可以以后安裝。其安裝時(shí)

10、一起安裝，也可以以后安裝。 幫助有下面常用的四種方式。幫助有下面常用的四種方式。 1. 動(dòng)態(tài)幫助動(dòng)態(tài)幫助 動(dòng)態(tài)幫助跟蹤用戶(hù)的動(dòng)作，并自動(dòng)地顯示動(dòng)態(tài)幫助跟蹤用戶(hù)的動(dòng)作，并自動(dòng)地顯示一系列幫助主題。選擇一系列幫助主題。選擇“協(xié)助協(xié)助/動(dòng)態(tài)幫助動(dòng)態(tài)幫助菜單項(xiàng)，打開(kāi)動(dòng)態(tài)幫助窗口。菜單項(xiàng)，打開(kāi)動(dòng)態(tài)幫助窗口。 鼠標(biāo)指向哪，幫助就到哪！鼠標(biāo)指向哪，幫助就到哪！7.1.4 如何使用幫助系統(tǒng)如何使用幫助系統(tǒng)2. 索引索引選擇選擇“協(xié)助協(xié)助/索引菜單項(xiàng)，打開(kāi)索引幫助索引菜單項(xiàng)，打開(kāi)索引幫助窗口。窗口。7.1.4 如何使用幫助系統(tǒng)如何使用幫助系統(tǒng)3. 使用上下文相關(guān)幫助使用上下文相關(guān)幫助按按“F1鍵使用上下文相關(guān)幫

11、助。它可以鍵使用上下文相關(guān)幫助。它可以根據(jù)當(dāng)前選定的內(nèi)容直接定位幫助內(nèi)容。根據(jù)當(dāng)前選定的內(nèi)容直接定位幫助內(nèi)容。（電腦操作演示）（電腦操作演示）4. 網(wǎng)絡(luò)資源網(wǎng)絡(luò)資源可通過(guò)可通過(guò)Microsoft.con/China/msdn網(wǎng)址，獲網(wǎng)址，獲得最新、最及時(shí)的有關(guān)幫助信息。得最新、最及時(shí)的有關(guān)幫助信息。7.1.4 如何使用幫助系統(tǒng)如何使用幫助系統(tǒng)7.2 VB.NET可視界面設(shè)計(jì)可視界面設(shè)計(jì)本節(jié)主要分以下幾方面內(nèi)容：本節(jié)主要分以下幾方面內(nèi)容：面向?qū)ο笤O(shè)計(jì)的基本概念。面向?qū)ο笤O(shè)計(jì)的基本概念。介紹若干常用控件的使用。介紹若干常用控件的使用。7.2 .1 VB.NET對(duì)象概念對(duì)象概念1. 對(duì)象和類(lèi)對(duì)象和類(lèi)

12、對(duì)象：是對(duì)客觀世界中的事物的抽象。用事對(duì)象：是對(duì)客觀世界中的事物的抽象。用事物的特征物的特征(屬性屬性)和行為和行為(方法方法)來(lái)描述。來(lái)描述。例如例如:一個(gè)人一個(gè)人,一扇窗口一扇窗口,一個(gè)按鈕等都是對(duì)象。一個(gè)按鈕等都是對(duì)象。對(duì)象是面向?qū)ο缶幊痰幕驹貙?duì)象是面向?qū)ο缶幊痰幕驹? 類(lèi)：是對(duì)一組相似對(duì)象的抽象描述，這些類(lèi)：是對(duì)一組相似對(duì)象的抽象描述，這些對(duì)象具有相同種類(lèi)的屬性和方法。對(duì)象具有相同種類(lèi)的屬性和方法。 類(lèi)與對(duì)象的關(guān)系：類(lèi)是抽象的，對(duì)象是具類(lèi)與對(duì)象的關(guān)系：類(lèi)是抽象的，對(duì)象是具體的。類(lèi)是對(duì)象的抽象，對(duì)象是類(lèi)的實(shí)例。體的。類(lèi)是對(duì)象的抽象，對(duì)象是類(lèi)的實(shí)例。類(lèi)是創(chuàng)建對(duì)象實(shí)例的模板。類(lèi)是創(chuàng)建

13、對(duì)象實(shí)例的模板。 例如：例如：“橋梁是抽象的類(lèi)，則具體的橋橋梁是抽象的類(lèi)，則具體的橋梁，如楊浦大橋、南京長(zhǎng)江大橋等則是對(duì)梁，如楊浦大橋、南京長(zhǎng)江大橋等則是對(duì)象。象。 7.2 .1 VB.NET對(duì)象概念對(duì)象概念 在在VB.NETVB.NET中，工具箱中的各種圖標(biāo)就是系中，工具箱中的各種圖標(biāo)就是系統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類(lèi)。統(tǒng)設(shè)計(jì)好的標(biāo)準(zhǔn)控件類(lèi)。 當(dāng)我們把所要的控件從工具箱中拿到窗當(dāng)我們把所要的控件從工具箱中拿到窗體中時(shí)，就是創(chuàng)建了這個(gè)控件類(lèi)的一個(gè)對(duì)體中時(shí)，就是創(chuàng)建了這個(gè)控件類(lèi)的一個(gè)對(duì)象。該對(duì)象繼承了類(lèi)的所有屬性和方法，象。該對(duì)象繼承了類(lèi)的所有屬性和方法，當(dāng)然用戶(hù)可根據(jù)需要修改屬性的值。當(dāng)然用戶(hù)可根據(jù)需

14、要修改屬性的值。7.2 .1 VB.NET對(duì)象概念對(duì)象概念2. 2. 對(duì)象的屬性、事件和方法對(duì)象的屬性、事件和方法VB.NETVB.NET的控件對(duì)象具有自己的屬性、方法和的控件對(duì)象具有自己的屬性、方法和事件。事件。(1)(1)屬性屬性: : 標(biāo)識(shí)了對(duì)象的特征。標(biāo)識(shí)了對(duì)象的特征。例如例如: :一個(gè)按鈕對(duì)象一個(gè)按鈕對(duì)象, ,有屬性有屬性: :字體字體(Font)(Font)、前景顏色、前景顏色(Forecolor)(Forecolor)、背景、背景顏色顏色(Backcolor)(Backcolor)、文本、文本(Text)(Text)、是否可、是否可操作操作(Enabled)(Enabled)等等

15、。等等。7.2 .1 VB.NET對(duì)象概念對(duì)象概念(2)(2)方法方法: : 附屬于對(duì)象的行為和動(dòng)作。附屬于對(duì)象的行為和動(dòng)作。 例如例如: :一個(gè)一個(gè)“窗體窗體”(form)(form)對(duì)象，方法有：對(duì)象，方法有： Add(Add(往窗體中加入控件對(duì)象往窗體中加入控件對(duì)象) )、Close(Close(窗窗口關(guān)閉口關(guān)閉) )等等。等等。 “ “方法是指使對(duì)象行動(dòng)的命令，它是通過(guò)方法是指使對(duì)象行動(dòng)的命令，它是通過(guò)調(diào)用來(lái)使用的。調(diào)用來(lái)使用的。 對(duì)象方法的調(diào)用格式：對(duì)象方法的調(diào)用格式： 對(duì)象名對(duì)象名. .方法方法(參數(shù)參數(shù))例如：例如：Textbox1.Focus() Textbox1Textbox

16、1.Focus() Textbox1獲得焦獲得焦點(diǎn)點(diǎn)7.2 .1 VB.NET對(duì)象概念對(duì)象概念(3)(3)事件事件事件即發(fā)生的事情。是指對(duì)象可以識(shí)別和響事件即發(fā)生的事情。是指對(duì)象可以識(shí)別和響應(yīng)的操作。事件是觸發(fā)執(zhí)行的。應(yīng)的操作。事件是觸發(fā)執(zhí)行的。如：?jiǎn)螕羰髽?biāo)左鍵如：?jiǎn)螕羰髽?biāo)左鍵(Click),(Click),雙擊鼠標(biāo)左鍵雙擊鼠標(biāo)左鍵(DoubleClick)(DoubleClick)等等. .事件可以由用戶(hù)操作觸發(fā)事件可以由用戶(hù)操作觸發(fā), ,也可以由系統(tǒng)自動(dòng)也可以由系統(tǒng)自動(dòng)觸發(fā)觸發(fā)( (例如例如, ,出錯(cuò)出錯(cuò)).).當(dāng)事件發(fā)生之后當(dāng)事件發(fā)生之后, ,需要需要觸發(fā)一些操作觸發(fā)一些操作, ,這就需

17、要用戶(hù)編寫(xiě)相應(yīng)的這就需要用戶(hù)編寫(xiě)相應(yīng)的代碼對(duì)此進(jìn)行響應(yīng)。這些代碼就構(gòu)成了代碼對(duì)此進(jìn)行響應(yīng)。這些代碼就構(gòu)成了“事件過(guò)程事件過(guò)程”。7.2 .1 VB.NET對(duì)象概念對(duì)象概念VB.NET是采用事件驅(qū)動(dòng)程序設(shè)計(jì)方法。是采用事件驅(qū)動(dòng)程序設(shè)計(jì)方法。程序執(zhí)行后系統(tǒng)等待某個(gè)事件的發(fā)生，程序執(zhí)行后系統(tǒng)等待某個(gè)事件的發(fā)生，然后去執(zhí)行處理此事件的事件過(guò)程，待然后去執(zhí)行處理此事件的事件過(guò)程，待事件過(guò)程執(zhí)行完后，系統(tǒng)又處于等待某事件過(guò)程執(zhí)行完后，系統(tǒng)又處于等待某事件發(fā)生狀態(tài)，這就是事件驅(qū)動(dòng)程序設(shè)事件發(fā)生狀態(tài)，這就是事件驅(qū)動(dòng)程序設(shè)計(jì)方法。計(jì)方法。7.2 .1 VB.NET對(duì)象概念對(duì)象概念對(duì)象、事件和事件過(guò)程之間的關(guān)系如

18、下圖。對(duì)象、事件和事件過(guò)程之間的關(guān)系如下圖。對(duì)象對(duì)象事件過(guò)程事件過(guò)程觸發(fā)觸發(fā)執(zhí)行執(zhí)行事件事件.對(duì)象的通用屬性對(duì)象的通用屬性主要屬性：主要屬性：(1) name(對(duì)象名稱(chēng)對(duì)象名稱(chēng))：每個(gè)對(duì)象都有一個(gè)：每個(gè)對(duì)象都有一個(gè)唯一標(biāo)識(shí)唯一標(biāo)識(shí)名字。對(duì)象創(chuàng)建時(shí)，系統(tǒng)自動(dòng)名字。對(duì)象創(chuàng)建時(shí)，系統(tǒng)自動(dòng)給它默認(rèn)名，如給它默認(rèn)名，如form1、textbox1等，但等，但用戶(hù)可修改。用戶(hù)可修改。(2) text(對(duì)象顯示文本對(duì)象顯示文本):form, textbox, button, label等大多數(shù)控件都有此屬性等大多數(shù)控件都有此屬性.7.2 .1 VB.NET對(duì)象概念對(duì)象概念(3) Location(控件對(duì)象的

19、位置控件對(duì)象的位置)： 控件左上角相對(duì)容器的位置，由一對(duì)整數(shù)控件左上角相對(duì)容器的位置，由一對(duì)整數(shù)表示，單位為像素。表示，單位為像素。 （可以用（可以用left和和top表示）表示） 例如：例如：button1.location=new point(88,48)注：注：New表示創(chuàng)建一個(gè)新的表示創(chuàng)建一個(gè)新的point類(lèi)的對(duì)象。類(lèi)的對(duì)象。等價(jià)于：等價(jià)于： button1.left=88, button1=48 7.2.1 VB.NET對(duì)象概念對(duì)象概念8848(4) size(控件對(duì)象的大小控件對(duì)象的大小)： 也由一對(duì)整數(shù)表示，單位為像素。也由一對(duì)整數(shù)表示，單位為像素。 （可（可以用以用width和

20、和height表示）表示） 例如：例如：button1.Size=new Size(80,32)等價(jià)于：等價(jià)于： button1.width=80 button1.height=32 7.2.2 窗體和常用控件窗體和常用控件 8032Point, size, colorPoint, size, color都是結(jié)構(gòu)都是結(jié)構(gòu)(5) font(字體字體)：設(shè)置對(duì)象顯示文字的字體。：設(shè)置對(duì)象顯示文字的字體。 Label1.Font=New Font(“隸書(shū)隸書(shū)”, 14)(6) ForeColor、BackColor(前景顏色和背景顏前景顏色和背景顏色色):設(shè)置對(duì)象顯示文字的顏色和背景顏色設(shè)置對(duì)象顯示

21、文字的顏色和背景顏色 Label1. ForeColor=Color.Blue(7) Cursor(光標(biāo)光標(biāo))：給出鼠標(biāo)位于對(duì)象上時(shí)顯：給出鼠標(biāo)位于對(duì)象上時(shí)顯示的光標(biāo)。示的光標(biāo)。 Button1.Cursor=new Cursor(“光標(biāo)文件名光標(biāo)文件名”)7.2.2 窗體和常用控件窗體和常用控件 (8) Enabled:設(shè)置對(duì)象是否可操作設(shè)置對(duì)象是否可操作true或或false。(9) Visible：設(shè)置對(duì)象是否可見(jiàn)：設(shè)置對(duì)象是否可見(jiàn)true或或false。(10) TabIndex:決定程序運(yùn)行時(shí)，按決定程序運(yùn)行時(shí)，按Tab鍵，鍵，焦點(diǎn)在控件移動(dòng)的順序。焦點(diǎn)在控件移動(dòng)的順序。7.2.2

22、窗體和常用控件窗體和常用控件 窗體對(duì)象就是窗體對(duì)象就是Form對(duì)象。對(duì)象。主要屬性：主要屬性：ControlBox(窗體控制框窗體控制框true或或false)、BackgroundImage(背景圖片背景圖片)7.2.2 窗體窗體WindowsState：設(shè)置程序運(yùn)行時(shí)：設(shè)置程序運(yùn)行時(shí), 窗體是正窗體是正 常常(Normal)、最大化、最小化、最大化、最小化MaximizeBox(最大化按鈕要否？默認(rèn)最大化按鈕要否？默認(rèn)true)MinimizeBox (最小化按鈕要否？默認(rèn)最小化按鈕要否？默認(rèn)true)2. 常用事件：常用事件：Load事件事件:當(dāng)窗體被裝入工作區(qū)時(shí)觸發(fā)。一當(dāng)窗體被裝入工作

23、區(qū)時(shí)觸發(fā)。一般該事件代碼中，對(duì)變量或?qū)ο蟮膶傩园阍撌录a中，對(duì)變量或?qū)ο蟮膶傩栽O(shè)初值。設(shè)初值。Click(單擊鼠標(biāo)事件單擊鼠標(biāo)事件)、DblClick(雙擊鼠標(biāo)事件雙擊鼠標(biāo)事件)、Activated(窗口被激活時(shí)觸發(fā)窗口被激活時(shí)觸發(fā))7.2.2 窗體和常用控件窗體和常用控件 例例7.2：見(jiàn)：見(jiàn)P172。7.2.2 窗體和常用控件窗體和常用控件 單擊窗體雙擊窗體7.2.2 窗體和常用控件窗體和常用控件 Private Sub Form1_Load() Me.FormBorderStyle = FormBorderStyle.Fixed3D Me.Text = 例例7.3 Me.Maximize

24、Box = False Me.MinimizeBox = False Me.BackgroundImage = nothing 去掉背景圖片去掉背景圖片End Sub Private Sub form1_Click() Me.Text = 單擊窗體單擊窗體 Me.BackgroundImage = _ Image.FromFile(“tongji2.jpg) Me.WindowState = _ FormWindowState.MaximizedEnd Sub 7.2.2 窗體和常用控件窗體和常用控件 Private Sub form1_DoubleClick() Me.Text = “雙擊窗

25、體雙擊窗體” Me.WindowState = _ FormWindowState.Normal Me.Size = New Size(264, 256) Me.BackgroundImage = _Image.FromFile(“tongji1.gif)End Sub7.2.2 窗體和常用控件窗體和常用控件 3. 常用方法常用方法 Show(顯示顯示)、 Hide(隱藏隱藏)、 ShowDialog (以對(duì)話(huà)框模式顯示窗體，即以對(duì)話(huà)框模式顯示窗體，即控制用戶(hù)只能對(duì)該窗體操作，對(duì)窗體之控制用戶(hù)只能對(duì)該窗體操作，對(duì)窗體之外的東西無(wú)法操作，直到用戶(hù)關(guān)閉該窗外的東西無(wú)法操作，直到用戶(hù)關(guān)閉該窗體體)。

26、7.2.2 窗體和常用控件窗體和常用控件 4. 多重窗體多重窗體 對(duì)于較復(fù)雜應(yīng)用程序，往往需要多個(gè)窗對(duì)于較復(fù)雜應(yīng)用程序，往往需要多個(gè)窗體來(lái)實(shí)現(xiàn)。在多重窗體中，每個(gè)窗體可體來(lái)實(shí)現(xiàn)。在多重窗體中，每個(gè)窗體可以有自己的界面和程序代碼，完成各自以有自己的界面和程序代碼，完成各自的功能。的功能。7.2.2 窗體和常用控件窗體和常用控件 VB.NETVB.NET創(chuàng)建的窗體是類(lèi)，必須通過(guò)創(chuàng)建的窗體是類(lèi)，必須通過(guò)NewNew實(shí)例實(shí)例化為對(duì)象。化為對(duì)象。添加窗體添加窗體 選擇選擇“工程工程/添加添加Windows窗體命令窗體命令.在對(duì)話(huà)框中選擇在對(duì)話(huà)框中選擇“Windows窗體即可窗體即可.啟動(dòng)窗體的設(shè)置啟動(dòng)窗

27、體的設(shè)置 系統(tǒng)默認(rèn)系統(tǒng)默認(rèn)form1為程序運(yùn)行時(shí)的啟動(dòng)窗為程序運(yùn)行時(shí)的啟動(dòng)窗體，可以修改設(shè)置，將其他窗體如體，可以修改設(shè)置，將其他窗體如form2設(shè)置為啟動(dòng)窗體。設(shè)置為啟動(dòng)窗體。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 (2) 窗體實(shí)例化和顯示窗體實(shí)例化和顯示 在多重窗體程序中在多重窗體程序中,只有啟動(dòng)窗體只有啟動(dòng)窗體(假定為假定為Form1)的實(shí)例化是的實(shí)例化是vb自動(dòng)完成的自動(dòng)完成的. 其他所有窗體都是通過(guò)代碼實(shí)例化并顯示其他所有窗體都是通過(guò)代碼實(shí)例化并顯示的的. 例如顯示窗體例如顯示窗體form2要使用下列語(yǔ)句要使用下列語(yǔ)句: dim f2 as

28、 new form2 定義定義f2為類(lèi)為類(lèi)form2的對(duì)象的對(duì)象 f2.show( ) 或或 f2.showDialog()(3). 不同窗體間數(shù)據(jù)的訪(fǎng)問(wèn)不同窗體間數(shù)據(jù)的訪(fǎng)問(wèn)兩個(gè)窗體之間數(shù)據(jù)的訪(fǎng)問(wèn)有下列兩個(gè)窗體之間數(shù)據(jù)的訪(fǎng)問(wèn)有下列2種形式種形式. a. 窗體實(shí)例化后，窗體數(shù)據(jù)的互訪(fǎng)窗體實(shí)例化后，窗體數(shù)據(jù)的互訪(fǎng) 窗體窗體form1訪(fǎng)問(wèn)窗體訪(fǎng)問(wèn)窗體form2上的數(shù)據(jù)上的數(shù)據(jù). Form1中代碼形式如下中代碼形式如下: 7.2.2 窗體和常用控件窗體和常用控件 Dim frm2 as new from2 Frm2.showdialog() 顯示窗體顯示窗體frm2 me.textbox1.text=

29、frm2.textbox1.text注意寫(xiě)法注意寫(xiě)法: 不能寫(xiě)為不能寫(xiě)為form27.2.2 窗體和常用控件窗體和常用控件 窗體窗體form2訪(fǎng)問(wèn)窗體訪(fǎng)問(wèn)窗體form1上的數(shù)據(jù)上的數(shù)據(jù). Form2中某事件代碼形式如下中某事件代碼形式如下: Dim frm1 as new from1 me.textbox1.text=frm1.textbox1.text Frm1.show() 顯示窗體顯示窗體frm1Form2中中, text1box1.text=form1.textbox.text錯(cuò)誤錯(cuò)誤b. 通過(guò)在模塊中定義公共變量實(shí)現(xiàn)相互訪(fǎng)問(wèn)通過(guò)在模塊中定義公共變量實(shí)現(xiàn)相互訪(fǎng)問(wèn).如：建立一個(gè)模塊如：建

30、立一個(gè)模塊Module1。在其中定義公共。在其中定義公共變量：變量： Public x as Imteger7.2.2 窗體和常用控件窗體和常用控件 例例7.3(P175)：多重窗體應(yīng)用：多重窗體應(yīng)用示例。示例。 標(biāo)簽控件用于顯示文本信息，不能輸入文標(biāo)簽控件用于顯示文本信息，不能輸入文本信息輸入用文本框）。本信息輸入用文本框）。 1. label標(biāo)簽控件）標(biāo)簽控件）(1) (1) 主要屬性主要屬性NameName、texttext、 locationlocation、forecolorforecolor、size size 、backcolor backcolor 、visible visib

31、le 、Font(Font(字體字體) )、BorderStyle(BorderStyle(邊框風(fēng)格邊框風(fēng)格) ) 、7.2.3 常用控件常用控件 (2) (2) 主要事件主要事件ClickClick、DoubleClickDoubleClick、ChangeChange改動(dòng)）改動(dòng)）Contextmenu(快捷菜單快捷菜單),TextAlign(文字在標(biāo)簽中的對(duì)齊方式文字在標(biāo)簽中的對(duì)齊方式)、 image(背景圖片背景圖片)、AutoSize(自動(dòng)大小自動(dòng)大小)7.2.3 常用控件常用控件 文本框是一個(gè)文本編輯框，用戶(hù)可以在該文本框是一個(gè)文本編輯框，用戶(hù)可以在該框中輸入、編輯、修改和顯示文本內(nèi)

32、容。框中輸入、編輯、修改和顯示文本內(nèi)容。 2. TextBox文本框）文本框）(1) (1) 主要屬性主要屬性NameName、locationlocation、forecolorforecolor、size size 、backcolor backcolor 、visible visible 、 Font(Font(字體字體) )、BorderStyle(BorderStyle(邊框風(fēng)格邊框風(fēng)格) ) 其他屬性見(jiàn)下頁(yè)其他屬性見(jiàn)下頁(yè)7.2.3 常用控件常用控件 屬性類(lèi)型意義Text字符串框中編輯內(nèi)容MaxLength整型允許輸入最多字符數(shù)MultiLine邏輯允許多行輸入否，falseScro

33、llBars枚舉選擇滾動(dòng)條,MultiLine為true時(shí)PassWordChar字符文本框用于輸入口令時(shí)，顯示的字符ReadOnly邏輯只讀，F(xiàn)alseSelectionStart整型選定的正文開(kāi)始的位置，第1個(gè)字符位置為0SelectionLength整型選定的正文長(zhǎng)度SelectedText字符串選定的正文內(nèi)容7.2.3 常用控件常用控件 (2) (2) 主要事件主要事件TextChanged:TextChanged:文本框中內(nèi)容改變時(shí)觸發(fā)文本框中內(nèi)容改變時(shí)觸發(fā). . KeyPress/KeyDown KeyPress/KeyDown：當(dāng)焦點(diǎn)在文本框上時(shí)，：當(dāng)焦點(diǎn)在文本框上時(shí)，用戶(hù)按了鍵

34、時(shí)觸發(fā)。用戶(hù)按了鍵時(shí)觸發(fā)。LostFocusLostFocus：當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā)：當(dāng)文本框失去焦點(diǎn)時(shí)觸發(fā). .Gotfocus: Gotfocus: 當(dāng)文本框得到焦點(diǎn)時(shí)觸發(fā)當(dāng)文本框得到焦點(diǎn)時(shí)觸發(fā). .(3) (3) 主要方法主要方法Focus: Focus: 將光標(biāo)移到文本框上將光標(biāo)移到文本框上. . 例如例如: : TextBox1.Focus() TextBox1.Focus() 7.2.3 常用控件常用控件 7.2.2 窗體和常用控件窗體和常用控件 例如例如: :Sub textbox1_keypress(,ByVal e )Sub textbox1_keypress(,ByVal

35、 e ) If asc(e.keychar)=13 then If asc(e.keychar)=13 then endif endifEnd SubEnd Sub或或 If e.keychar=chr(13) then .3. Button命令按鈕）命令按鈕）(1) (1) 主要屬性主要屬性NameName、texttext、 locationlocation、forecolorforecolor、size size 、backcolor backcolor 、visible visible 、Font(Font(字體字體) )、EnabledEnabled、BorderStyle(Bord

36、erStyle(邊框風(fēng)格邊框風(fēng)格) )、 TextAlignTextAlign image( image(圖片圖片, , 建圖形按鈕時(shí)用建圖形按鈕時(shí)用) )、7.2.3 常用控件常用控件 例例7.4 按鈕應(yīng)用。界面、功能如下圖所示。按鈕應(yīng)用。界面、功能如下圖所示。TextBox1.Font = New Font(隸書(shū)隸書(shū), 16, FontStyle.Italic)7.2.2 窗體和常用控件窗體和常用控件 演示演示收集收集3 3個(gè)圖片，個(gè)圖片，存放在項(xiàng)目的存放在項(xiàng)目的binbin文件夾下。文件夾下。4. 單選按鈕、復(fù)選框和分組框單選按鈕、復(fù)選框和分組框 單選按鈕單選按鈕(RadioButton

37、) 與復(fù)選框與復(fù)選框(ChekBox)的區(qū)別：的區(qū)別： 單選按鈕任何時(shí)候最多只能選擇一項(xiàng)單選按鈕任何時(shí)候最多只能選擇一項(xiàng), 一一般利用般利用Panel(面板面板)或或GroupBox(分組框分組框)將相同性質(zhì)按鈕歸類(lèi)在一組；復(fù)選框列出將相同性質(zhì)按鈕歸類(lèi)在一組；復(fù)選框列出多項(xiàng)，用戶(hù)可從中選擇一項(xiàng)或多項(xiàng)。見(jiàn)下多項(xiàng)，用戶(hù)可從中選擇一項(xiàng)或多項(xiàng)。見(jiàn)下頁(yè)圖所示。頁(yè)圖所示。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 單選按鈕復(fù)選框(1) (1) 主要屬性主要屬性 NameName、Font(Font(字體字體) )、forecolorforecolor、 visibl

38、e visible 、EnabledEnabled、 texttext、 Checked: Checked: 邏輯值，表示單選按鈕或復(fù)選框邏輯值，表示單選按鈕或復(fù)選框選中否。選中否。(2) (2) 主要事件主要事件 ClickClick、 CheckedChanged(CheckedChanged(對(duì)象值改變時(shí)觸對(duì)象值改變時(shí)觸發(fā)發(fā)) )7.2.3 常用控件常用控件 Panel(面板面板)與與GroupBox(分組框分組框) 都是用于都是用于將相同性質(zhì)的對(duì)象歸類(lèi)。當(dāng)我們移動(dòng)分組將相同性質(zhì)的對(duì)象歸類(lèi)。當(dāng)我們移動(dòng)分組框或面板時(shí)，其中的對(duì)象也會(huì)跟著移動(dòng)?？蚧蛎姘鍟r(shí)，其中的對(duì)象也會(huì)跟著移動(dòng)。分組框的主要

39、屬性：分組框的主要屬性： text, BackgroundImage , font面板的主要屬性面板的主要屬性: BorderStyle , BackColor, BackgroundImage7.2.3 常用控件常用控件 5. 列表框和組合框列表框和組合框 列表框列表框(ListBox)：在框中提供若干選項(xiàng)供用戶(hù)選擇。：在框中提供若干選項(xiàng)供用戶(hù)選擇。只允許用戶(hù)選擇，不能輸入。只允許用戶(hù)選擇，不能輸入。 組合框組合框(ComboBox)：由文本框和下拉列表框組合：由文本框和下拉列表框組合而成。用戶(hù)即可以在文本框中輸入又可在下拉列表而成。用戶(hù)即可以在文本框中輸入又可在下拉列表中選擇。中選擇。7.

40、2.3 常用控件常用控件 列表框組合框(1) 主要屬性主要屬性Items: 集合。存儲(chǔ)列表框或組合框中的所有集合。存儲(chǔ)列表框或組合框中的所有選項(xiàng)。選項(xiàng)。SelectedIndex: 整型。程序運(yùn)行時(shí)被選定的整型。程序運(yùn)行時(shí)被選定的項(xiàng)的序號(hào)。第項(xiàng)的序號(hào)。第1項(xiàng)的序號(hào)為項(xiàng)的序號(hào)為0。SelectedItem:字符。被選定的項(xiàng)的內(nèi)容。字符。被選定的項(xiàng)的內(nèi)容。Text：用戶(hù)輸入或選擇的值。：用戶(hù)輸入或選擇的值。 Items.Count: 整型。程序中引用，值為列表整型。程序中引用，值為列表框或組合框中的項(xiàng)數(shù)?？蚧蚪M合框中的項(xiàng)數(shù)。Sorted:邏輯。列表框或組合框的選項(xiàng)是否按邏輯。列表框或組合框的選項(xiàng)是

41、否按字母表順序排序字母表順序排序.7.2.3 常用控件常用控件 DropDownStyle: 設(shè)置組合框外觀和功能。設(shè)置組合框外觀和功能。當(dāng)當(dāng)ComboBox1.DropDownStyle= ComboBoxStyle. DropDownList時(shí)時(shí)組合框只能通過(guò)選擇得到文本。組合框只能通過(guò)選擇得到文本。當(dāng)當(dāng)ComboBox1.DropDownStyle= ComboBoxStyle. DropDown時(shí)時(shí)組合框即可通過(guò)輸入又可選擇得到文本。組合框即可通過(guò)輸入又可選擇得到文本。 組合框?qū)Ｓ袑傩裕航M合框?qū)Ｓ袑傩裕?.2.3 常用控件常用控件 當(dāng)當(dāng)ComboBox1.DropDownStyle=

42、ComboBoxStyle. Simple時(shí)時(shí)組合框即可輸入也可選擇得到文本。但外觀有改變。組合框即可輸入也可選擇得到文本。但外觀有改變。下拉列表將不折起。如下圖所示。下拉列表將不折起。如下圖所示。7.2.3 常用控件常用控件 Simple(2) 常用方法常用方法Items.Add: 把一個(gè)選項(xiàng)加入到列表框或組合框。把一個(gè)選項(xiàng)加入到列表框或組合框。 Listbox1.items.Add(“computer”)Items.Remove : 從列表框或組合框中刪除指定從列表框或組合框中刪除指定的選項(xiàng)。的選項(xiàng)。Listbox1.items.remove(“computer”)Items.Remove

43、At(Index):刪除列表框或組合框刪除列表框或組合框中指定位置上的選項(xiàng)。中指定位置上的選項(xiàng)。 Listbox1.items.removeAt(1)Items.Clear:清除列表框或組合框中的所有選項(xiàng)。清除列表框或組合框中的所有選項(xiàng)。7.2.3 常用控件常用控件 (3) 常用事件常用事件Click、DoubleClick、SelectedIndexChanged(SelectedIndex屬性值屬性值改變后觸發(fā)改變后觸發(fā))例例7.5 列表框控件程序。界面如圖。列表框控件程序。界面如圖。7.2.3 常用控件常用控件 6. 滾動(dòng)條和進(jìn)度條滾動(dòng)條和進(jìn)度條 滾動(dòng)條滾動(dòng)條(ScrollBar)：通常

44、附在窗體上協(xié)助：通常附在窗體上協(xié)助觀察數(shù)據(jù)或確定位置，也可用來(lái)作為數(shù)據(jù)觀察數(shù)據(jù)或確定位置，也可用來(lái)作為數(shù)據(jù)的輸入工具。的輸入工具。 滾動(dòng)條有垂直滾動(dòng)條滾動(dòng)條有垂直滾動(dòng)條(VScrollBar)和水平和水平滾動(dòng)條滾動(dòng)條(HScrollBar) 2種。種。 進(jìn)度條進(jìn)度條(ProgressBar)：通常指示事務(wù)處理：通常指示事務(wù)處理的進(jìn)度。的進(jìn)度。7.2.3 常用控件常用控件 (1) 主要屬性主要屬性Value:滑塊當(dāng)前位置所代表的值，缺省值為滑塊當(dāng)前位置所代表的值，缺省值為0。Minimun、Maximun :滾動(dòng)條可以調(diào)整的最滾動(dòng)條可以調(diào)整的最小值和最大值。小值和最大值。SmallChange:

45、滾動(dòng)條兩端的箭頭為微調(diào)箭頭，滾動(dòng)條兩端的箭頭為微調(diào)箭頭，用戶(hù)單擊微調(diào)箭頭時(shí)，用戶(hù)單擊微調(diào)箭頭時(shí)，Value屬性增加或?qū)傩栽黾踊驕p少的值。減少的值。(相當(dāng)于步長(zhǎng)相當(dāng)于步長(zhǎng))LargeChange:按下中間快卷區(qū)域時(shí)的移動(dòng)量。按下中間快卷區(qū)域時(shí)的移動(dòng)量。7.2.3 常用控件常用控件 (2) 主要事件主要事件Scroll、ValueChange:當(dāng)滾動(dòng)條內(nèi)滑塊位置當(dāng)滾動(dòng)條內(nèi)滑塊位置發(fā)生變化時(shí)，發(fā)生變化時(shí)，ValueChange的值隨之改變的值隨之改變時(shí)，觸發(fā)這兩個(gè)事件。時(shí)，觸發(fā)這兩個(gè)事件。例例滾動(dòng)條程序。三個(gè)滾動(dòng)條分別控制滾動(dòng)條程序。三個(gè)滾動(dòng)條分別控制PictureBox1的背景顏色的背景顏色red

46、、green、 Blue）。）。Minimun=0, maximun=255, largechange=10,SmallChange=1 . 見(jiàn)下圖。見(jiàn)下圖。7.2.2 窗體和常用控件窗體和常用控件 Private Sub HScrollBar1_Scroll()PictureBox1.BackColor = Color.FromArgb(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)End Sub7.2.3 常用控件常用控件 7. 定時(shí)器定時(shí)器 Timer(1) 主要屬性主要屬性Enabled: 為為false 時(shí)，定時(shí)器不起

47、作用。時(shí)，定時(shí)器不起作用。Interval: 兩次觸發(fā)兩次觸發(fā)tick事件的時(shí)間間隔。其事件的時(shí)間間隔。其值以值以ms0.001s為單位。即為單位。即1000為為1秒。秒。(2) 主要事件主要事件Tick: 時(shí)間間隔一到觸發(fā)該事件。時(shí)間間隔一到觸發(fā)該事件。7.2.3 常用控件常用控件 例例7.6 ：用定時(shí)器控制蝴蝶在窗體內(nèi)飛舞。：用定時(shí)器控制蝴蝶在窗體內(nèi)飛舞。 窗體中放三個(gè)窗體中放三個(gè)PictureBox控件。設(shè)計(jì)時(shí)，只控件。設(shè)計(jì)時(shí)，只有有PictureBox1的的visible=true。通過(guò)定時(shí)器。通過(guò)定時(shí)器控制在控制在PictureBox1中裝入中裝入PictureBox2 和和Pict

48、ureBox3的圖像來(lái)實(shí)現(xiàn)。的圖像來(lái)實(shí)現(xiàn)。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 事先收集事先收集2 2個(gè)不同蝴蝶圖片，存放在項(xiàng)目的個(gè)不同蝴蝶圖片，存放在項(xiàng)目的binbin文件夾下。文件夾下。8、日期挑選控件、日期挑選控件 DateTimePicker控件控件: 用戶(hù)不想輸入日期或時(shí)用戶(hù)不想輸入日期或時(shí)間），可以通過(guò)該控件選擇一個(gè)日期時(shí)間）。間），可以通過(guò)該控件選擇一個(gè)日期時(shí)間）。7.2.3 常用控件常用控件 (1) 主要屬性：主要屬性： Value: 對(duì)象的當(dāng)前值。對(duì)象的當(dāng)前值。Format：顯示日期的格式。：顯示日期的格式。 Long(2019年

49、年2月月25日日) short(2019/2/25) time(僅顯示時(shí)間僅顯示時(shí)間) custom(用戶(hù)所給格式用戶(hù)所給格式)ShowUpDown：控制顯示的樣式：控制顯示的樣式 Flase/trueFlaseTrue7.2.3 常用控件常用控件 例例7.7 程序界面如圖所示。程序界面如圖所示。Private Sub DateTimePicker1_ValueChanged () MessageBox.Show( DateTimePicker1.Value.date.ToString）End Sub7.2.3 常用控件常用控件 RichTextBox控件用于顯示、輸入和操作格式化的控件用于顯

50、示、輸入和操作格式化的文本。控件除了做文本。控件除了做 TextBox 控件所做的每件事控件所做的每件事外，還可以顯示字體、顏色和鏈接，從文件加外，還可以顯示字體、顏色和鏈接，從文件加載文本和加載嵌入的圖像，以及查找指定的字載文本和加載嵌入的圖像，以及查找指定的字符符(find方法方法)。RichTextBox 控件通常用于提供控件通常用于提供類(lèi)似字處理應(yīng)用程序如類(lèi)似字處理應(yīng)用程序如 Microsoft Word的的文本操作和顯示功能。文本操作和顯示功能。7.2.3 常用控件常用控件 9. RichTextBox控件控件RichTextBox沒(méi)有沒(méi)有PasswordChar屬性，但比屬性，但比

51、TextBox功能強(qiáng)大，主要有：功能強(qiáng)大，主要有：(1) 文本的長(zhǎng)度沒(méi)有文本的長(zhǎng)度沒(méi)有64k限制；限制；(2) 可對(duì)選中的文本設(shè)置格式，如可對(duì)選中的文本設(shè)置格式，如SelectionBackColor、SelectionColor、SelectionFont等等(3) 可方便用可方便用LoadFile和和SaveFile直接讀寫(xiě)文件。直接讀寫(xiě)文件。7.2.3 常用控件常用控件 7.2.3 常用控件常用控件 RichTextBox常用的常用的2個(gè)方法：個(gè)方法： SaveFile: 將將RichTextBox 控件中內(nèi)容保存控件中內(nèi)容保存到文件中到文件中 LoadFile:將文件內(nèi)容加載到將文件內(nèi)

52、容加載到 RichTextBox 控件中控件中 用法：用法：RichTextBox1. LoadFile(路徑文件路徑文件名名,流類(lèi)型流類(lèi)型) RichTextBox1. SaveFile(路徑文件路徑文件名名,流類(lèi)型流類(lèi)型) 功能：將功能：將 RTF 格式文件或標(biāo)準(zhǔn)格式文件或標(biāo)準(zhǔn) ASCII 文文本文件加載到本文件加載到RichTextBox 控件中控件中(或或 反之反之)。7.2.3 常用控件常用控件 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then RichTextBox1.LoadFile(OpenFileDialog1.Fi

53、leName, RichTextBoxStreamType.PlainText ) End If If SaveFileDialog1.ShowDialog() = DialogResult.OK Then RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText) End If 路徑和文件名路徑和文件名. 菜單設(shè)計(jì)菜單設(shè)計(jì) 有種形式的菜單：有種形式的菜單：MainMenu主菜單和主菜單和ContextMenu彈出式菜單，或稱(chēng)快捷菜單）。彈出式菜單，或稱(chēng)快捷菜單）。7.2.4 菜單和對(duì)話(huà)框菜單和

54、對(duì)話(huà)框 (1) 菜單建立：菜單建立：選擇工具箱中的選擇工具箱中的“MainMenu控件，并在控件，并在窗口中拖曳出合適的大?。淮翱谥型弦烦龊线m的大??； 此時(shí)此時(shí)MainMenu對(duì)象出現(xiàn)在窗體外的區(qū)域?qū)ο蟪霈F(xiàn)在窗體外的區(qū)域直接在直接在“請(qǐng)?jiān)诖颂庉斎氲奶摽蛑休斎胨?qǐng)?jiān)诖颂庉斎氲奶摽蛑休斎胨牟藛螖?shù)據(jù)。的菜單數(shù)據(jù)。 見(jiàn)下圖。見(jiàn)下圖。7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 (2) 主要屬性主要屬性Name: 菜單或菜單項(xiàng)名。菜單或菜單項(xiàng)名。Text：菜單顯示的文本。字母前有表示該字母是：菜單顯示的文本。字母前有表示該字母是熱鍵，熱鍵，“-”顯示菜單項(xiàng)分割線(xiàn)。顯示

55、菜單項(xiàng)分割線(xiàn)。ShortCut：快捷鍵。：快捷鍵。Checked：文本前有：文本前有“”，表示被選中。，表示被選中。(3) 菜單項(xiàng)事件菜單項(xiàng)事件: 主要是主要是Click事件事件7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 (4) 彈出菜單彈出菜單設(shè)計(jì)方法類(lèi)似設(shè)計(jì)方法類(lèi)似Mainmenu。為某個(gè)對(duì)象的為某個(gè)對(duì)象的ContextMenu屬性指定快捷菜單屬性指定快捷菜單ContextMenu 1。當(dāng)鼠標(biāo)移到對(duì)象上，按鼠標(biāo)右鍵打。當(dāng)鼠標(biāo)移到對(duì)象上，按鼠標(biāo)右鍵打開(kāi)此菜單。開(kāi)此菜單。. 輸入和顯示對(duì)話(huà)框輸入和顯示對(duì)話(huà)框7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 輸入和輸出對(duì)話(huà)框不是控件，是由系統(tǒng)提供的函數(shù)輸入和輸出對(duì)

56、話(huà)框不是控件，是由系統(tǒng)提供的函數(shù)實(shí)現(xiàn)。實(shí)現(xiàn)。(1) InputBox輸入函數(shù)：輸入函數(shù)： InputBox(提示提示,標(biāo)題標(biāo)題,默認(rèn)值默認(rèn)值,Xpos,Ypos ) 函數(shù)返回用戶(hù)輸入的值，函數(shù)值類(lèi)型是字符串。函數(shù)返回用戶(hù)輸入的值，函數(shù)值類(lèi)型是字符串。提示提示默認(rèn)值默認(rèn)值標(biāo)題標(biāo)題X,Y坐標(biāo)坐標(biāo)取消，則返回長(zhǎng)度為取消，則返回長(zhǎng)度為0的字符串的字符串7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 InputBox對(duì)話(huà)框?qū)υ?huà)框例如：例如：Dim an as string, gz as Decimal =0an=InputBox(“請(qǐng)輸入工資請(qǐng)輸入工資:”,“計(jì)算工資計(jì)算工資”,0)If an.trim.leng

57、th0 Then Gz=CDec(an) Textbox1.text=gzEnd If注：注： InputBox函數(shù)值是字符串型，上例中系統(tǒng)會(huì)將函數(shù)值是字符串型，上例中系統(tǒng)會(huì)將字符串型強(qiáng)制轉(zhuǎn)換為字符串型強(qiáng)制轉(zhuǎn)換為Decimal.7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 (2) MsgBox輸出函數(shù)輸出函數(shù)功能：打開(kāi)一個(gè)信息窗口，等待用戶(hù)選擇一功能：打開(kāi)一個(gè)信息窗口，等待用戶(hù)選擇一個(gè)按鈕。函數(shù)返回值是一個(gè)整數(shù)，不同整個(gè)按鈕。函數(shù)返回值是一個(gè)整數(shù)，不同整數(shù)代表用戶(hù)按了不同按鈕。數(shù)代表用戶(hù)按了不同按鈕。 若不需要返回值，可作為一個(gè)獨(dú)立的語(yǔ)句若不需要返回值，可作為一個(gè)獨(dú)立的語(yǔ)句使用。使用。 格式：格式：

58、MsgBox(“提示提示”，按鈕，按鈕，“標(biāo)題標(biāo)題”) Messagebox.Show(“提示提示”, “標(biāo)題標(biāo)題”, 按鈕按鈕)7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 MsgBox(“提示提示”，按鈕，按鈕，“標(biāo)題標(biāo)題”)例：例：MsgBox(“真的要?jiǎng)h除嗎真的要?jiǎng)h除嗎?”, MsgBoxStyle.YesNo + MsgBoxStyle.Question , “信息提示信息提示”)或或 MsgBox(“真的要?jiǎng)h除嗎真的要?jiǎng)h除嗎?”, 4+32 , “信息提示信息提示”)7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 分組分組枚舉值枚舉值按鈕值按鈕值對(duì)話(huà)框中心是的按鈕對(duì)話(huà)框中心是的按鈕按鈕按鈕個(gè)數(shù)個(gè)數(shù)O

59、kOnly0“確定確定” OkCancel1“確定確定”、“取消取消”AbortRetryIgnore2“終止終止”、“重試重試”、“忽忽略略”YesNoCancel3“是是”、“否否”、“取消取消”YesNo4“是是”、“否否”RetryCancel5“重試重試”、 “取消取消”圖標(biāo)圖標(biāo)類(lèi)型類(lèi)型Critical16關(guān)鍵信息圖標(biāo)關(guān)鍵信息圖標(biāo)Question32問(wèn)號(hào)圖標(biāo)問(wèn)號(hào)圖標(biāo)Exclamation48警告圖標(biāo)警告圖標(biāo) Information64信息圖標(biāo)信息圖標(biāo)按鈕設(shè)置值及其意義按鈕設(shè)置值及其意義7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 枚舉值枚舉值內(nèi)部常數(shù)內(nèi)部常數(shù)返回值返回值被單擊的按鈕按鈕被單擊

60、的按鈕按鈕OkvbOk1“確定確定” CancelvbCancel2“取消取消”AbortvbAbort3“終止終止”RetryvbRetry4“重試重試”IgnorevbIgnore5 “忽略忽略”YesvbYes6“是是”NovbNo7“否否”函數(shù)返回與所選按鈕的關(guān)系函數(shù)返回與所選按鈕的關(guān)系7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 例例7.8編寫(xiě)一個(gè)賬號(hào)和密碼輸入檢查程序。編寫(xiě)一個(gè)賬號(hào)和密碼輸入檢查程序。P186MsgBox(密碼錯(cuò)誤密碼錯(cuò)誤, MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, 警告警告)7.2.4 菜單和對(duì)話(huà)框菜單和對(duì)話(huà)框 . 通用