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

2、PU上運(yùn)轉(zhuǎn)上運(yùn)轉(zhuǎn)根底類庫根底類庫CLR第第1次編譯次編譯第第2次編譯次編譯VS.NETVB.NET VC+.NETVC#.NET VJ#.NETWindows運(yùn)用程序運(yùn)用程序ASP.NET程序程序數(shù)據(jù)和數(shù)據(jù)和XML類類(ADO.NET,SQL,XML,XSLT etc.)7.1.1 VB.NET簡介簡介1. .NET開發(fā)平臺的特點(diǎn)開發(fā)平臺的特點(diǎn)支持多種言語編程環(huán)境。支持多種言語編程環(huán)境。VS.NET是一個(gè)是一個(gè)集成開發(fā)環(huán)境，集成集成開發(fā)環(huán)境，集成VB、VC、C#、J#。 允許它們共享工具并有助于創(chuàng)建混合言語允許它們共享工具并有助于創(chuàng)建混合言語處理方案。處理方案?？梢蚤_發(fā)多種運(yùn)用程序。如可以開發(fā)

3、多種運(yùn)用程序。如Windows運(yùn)用運(yùn)用程序、程序、ASP Web 運(yùn)用程序、運(yùn)用程序、XML Web services、挪動、挪動(Mobile)運(yùn)用程序等等運(yùn)用程序等等 。7.1.1 VS.NET簡介簡介運(yùn)用同一個(gè)根底類庫。在傳統(tǒng)的言語編程運(yùn)用同一個(gè)根底類庫。在傳統(tǒng)的言語編程環(huán)境中，不同的言語有不同的函數(shù)庫，而環(huán)境中，不同的言語有不同的函數(shù)庫，而且調(diào)用方式也不同，不同言語的函數(shù)庫是且調(diào)用方式也不同，不同言語的函數(shù)庫是不能通用的。在不能通用的。在VS.NET中，大家運(yùn)用同中，大家運(yùn)用同一個(gè)根底類庫。一個(gè)根底類庫。7.1.1 VS.NET簡介簡介 公共言語運(yùn)轉(zhuǎn)時(shí)庫。公共言語運(yùn)轉(zhuǎn)時(shí)庫。 運(yùn)轉(zhuǎn)時(shí)庫提

4、供了執(zhí)行程序的效力，實(shí)現(xiàn)了運(yùn)轉(zhuǎn)時(shí)庫提供了執(zhí)行程序的效力，實(shí)現(xiàn)了編程言語的一致。編程言語的一致。 .NET程序需求程序需求2次編譯才干在次編譯才干在CPU上運(yùn)轉(zhuǎn)。上運(yùn)轉(zhuǎn)。首先編譯生成與首先編譯生成與CPU無關(guān)的中間言語，然無關(guān)的中間言語，然后在公共言語運(yùn)轉(zhuǎn)時(shí)庫后在公共言語運(yùn)轉(zhuǎn)時(shí)庫(CLR)的支持下，的支持下，中間言語程序被編譯本錢地中間言語程序被編譯本錢地CPU指令程序。指令程序。實(shí)現(xiàn)了實(shí)現(xiàn)了.NET跨平臺運(yùn)轉(zhuǎn)的目的?？缙脚_運(yùn)轉(zhuǎn)的目的。2. VS.NET和和.NET框架框架.NET框架是與框架是與VS.NET嚴(yán)密相聯(lián)嚴(yán)密相聯(lián), VS.NET依依賴于賴于.NET框架提供的效力。框架提供的效力。7.

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

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

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

8、.1.3 建立簡單的運(yùn)用程序建立簡單的運(yùn)用程序例例7.2 界面見下頁。經(jīng)過按鈕操作讓界面見下頁。經(jīng)過按鈕操作讓“歡歡迎運(yùn)用迎運(yùn)用VB.NET在窗口中挪動。步驟：在窗口中挪動。步驟：設(shè)計(jì)用戶界面并設(shè)置控件屬性設(shè)計(jì)用戶界面并設(shè)置控件屬性編寫事件過程編寫事件過程7.1.3 建立簡單的運(yùn)用程序建立簡單的運(yùn)用程序 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 End S

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

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

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

12、界中的事物的籠統(tǒng)。用事對象：是對客觀世界中的事物的籠統(tǒng)。用事物的特征物的特征(屬性屬性)和行為和行為(方法方法)來描畫。來描畫。例如例如:一個(gè)人一個(gè)人,一扇窗口一扇窗口,一個(gè)按鈕等都是對象。一個(gè)按鈕等都是對象。對象是面向?qū)ο缶幊痰母驹貙ο笫敲嫦驅(qū)ο缶幊痰母驹? 類：是對一組類似對象的籠統(tǒng)描畫，這些類：是對一組類似對象的籠統(tǒng)描畫，這些對象具有一樣種類的屬性和方法。對象具有一樣種類的屬性和方法。 類與對象的關(guān)系：類是籠統(tǒng)的，對象是詳類與對象的關(guān)系：類是籠統(tǒng)的，對象是詳細(xì)的。類是對象的籠統(tǒng)，對象是類的實(shí)例。細(xì)的。類是對象的籠統(tǒng)，對象是類的實(shí)例。類是創(chuàng)建對象實(shí)例的模板。類是創(chuàng)建對象實(shí)例的模板。

13、 例如：例如：“橋梁是籠統(tǒng)的類，那么詳細(xì)的橋梁是籠統(tǒng)的類，那么詳細(xì)的橋梁，如楊浦大橋、南京長江大橋等那么橋梁，如楊浦大橋、南京長江大橋等那么是對象。是對象。 7.2 .1 VB.NET對象概念對象概念 在在VB.NETVB.NET中，工具箱中的各種圖標(biāo)就是系中，工具箱中的各種圖標(biāo)就是系統(tǒng)設(shè)計(jì)好的規(guī)范控件類。統(tǒng)設(shè)計(jì)好的規(guī)范控件類。 當(dāng)我們把所要的控件從工具箱中拿到窗當(dāng)我們把所要的控件從工具箱中拿到窗體中時(shí)，就是創(chuàng)建了這個(gè)控件類的一個(gè)對體中時(shí)，就是創(chuàng)建了這個(gè)控件類的一個(gè)對象。該對象承繼了類的一切屬性和方法，象。該對象承繼了類的一切屬性和方法，當(dāng)然用戶可根據(jù)需求修正屬性的值。當(dāng)然用戶可根據(jù)需求修正屬

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

15、7.2 .1 VB.NET對象概念對象概念(2)(2)方法方法: : 附屬于對象的行為和動作。附屬于對象的行為和動作。 例如例如: :一個(gè)一個(gè)“窗體窗體(form)(form)對象，方法有：對象，方法有： Add(Add(往窗體中參與控件對象往窗體中參與控件對象) )、Close(Close(窗窗口封鎖口封鎖) )等等。等等。 “ “方法是指使對象行動的命令，它是經(jīng)過方法是指使對象行動的命令，它是經(jīng)過調(diào)用來運(yùn)用的。調(diào)用來運(yùn)用的。 對象方法的調(diào)用格式：對象方法的調(diào)用格式： 對象名對象名. .方法方法(參數(shù)參數(shù))例如：例如：Textbox1.Focus() Textbox1Textbox1.Foc

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

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

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

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

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

21、abel1. ForeColor=Color.Blue(7) Cursor(光標(biāo)光標(biāo))：給出鼠標(biāo)位于對象上時(shí)顯：給出鼠標(biāo)位于對象上時(shí)顯示的光標(biāo)。示的光標(biāo)。 Button1.Cursor=new Cursor(“光標(biāo)文件名光標(biāo)文件名)7.2.2 窗體和常用控件窗體和常用控件 (8) Enabled:設(shè)置對象能否可操作設(shè)置對象能否可操作true或或false。(9) Visible：設(shè)置對象能否可見：設(shè)置對象能否可見true或或false。(10) TabIndex:決議程序運(yùn)轉(zhuǎn)時(shí)，按決議程序運(yùn)轉(zhuǎn)時(shí)，按Tab鍵，鍵，焦點(diǎn)在控件挪動的順序。焦點(diǎn)在控件挪動的順序。7.2.2 窗體和常用控件窗體和常用控

22、件 窗體對象就是窗體對象就是Form對象。對象。主要屬性：主要屬性：ControlBox(窗體控制框窗體控制框true或或false)、BackgroundImage(背景圖片背景圖片)7.2.2 窗體窗體WindowsState：設(shè)置程序運(yùn)轉(zhuǎn)時(shí)：設(shè)置程序運(yùn)轉(zhuǎn)時(shí), 窗體是正窗體是正 常常(Normal)、最大化、最小化、最大化、最小化MaximizeBox(最大化按鈕要否？默許最大化按鈕要否？默許true)MinimizeBox (最小化按鈕要否？默許最小化按鈕要否？默許true)2. 常用事件：常用事件：Load事件事件:當(dāng)窗體被裝入任務(wù)區(qū)時(shí)觸發(fā)。普當(dāng)窗體被裝入任務(wù)區(qū)時(shí)觸發(fā)。普通該事件代碼中

23、，對變量或?qū)ο蟮膶傩酝ㄔ撌录a中，對變量或?qū)ο蟮膶傩栽O(shè)初值。設(shè)初值。Click(單擊鼠標(biāo)事件單擊鼠標(biāo)事件)、DblClick(雙擊鼠標(biāo)事件雙擊鼠標(biāo)事件)、Activated(窗口被激活時(shí)觸發(fā)窗口被激活時(shí)觸發(fā))7.2.2 窗體和常用控件窗體和常用控件 例例7.2：見：見P172。7.2.2 窗體和常用控件窗體和常用控件 單擊窗體雙擊窗體7.2.2 窗體和常用控件窗體和常用控件 Private Sub Form1_Load() Me.FormBorderStyle = FormBorderStyle.Fixed3D Me.Text = 例例7.3 Me.MaximizeBox = False M

24、e.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 = “雙擊窗體雙擊窗體 Me.Wind

25、owState = _ FormWindowState.Normal Me.Size = New Size(264, 256) Me.BackgroundImage = _Image.FromFile(“tongji1.gif)End Sub7.2.2 窗體和常用控件窗體和常用控件 3. 常用方法常用方法 Show(顯示顯示)、 Hide(隱藏隱藏)、 ShowDialog (以對話框方式顯示窗體，即以對話框方式顯示窗體，即控制用戶只能對該窗體操作，對窗體之控制用戶只能對該窗體操作，對窗體之外的東西無法操作，直到用戶封鎖該窗外的東西無法操作，直到用戶封鎖該窗體體)。7.2.2 窗體和常用控件窗

26、體和常用控件 4. 多重窗體多重窗體 對于較復(fù)雜運(yùn)用程序，往往需求多個(gè)窗對于較復(fù)雜運(yùn)用程序，往往需求多個(gè)窗體來實(shí)現(xiàn)。在多重窗體中，每個(gè)窗體可體來實(shí)現(xiàn)。在多重窗體中，每個(gè)窗體可以有本人的界面和程序代碼，完成各自以有本人的界面和程序代碼，完成各自的功能。的功能。7.2.2 窗體和常用控件窗體和常用控件 VB.NETVB.NET創(chuàng)建的窗體是類，必需經(jīng)過創(chuàng)建的窗體是類，必需經(jīng)過NewNew實(shí)例實(shí)例化為對象。化為對象。添加窗體添加窗體 選擇選擇“工程工程/添加添加Windows窗體命令窗體命令.在對話框中選擇在對話框中選擇“Windows窗體即可窗體即可.啟動窗體的設(shè)置啟動窗體的設(shè)置 系統(tǒng)默許系統(tǒng)默許f

27、orm1為程序運(yùn)轉(zhuǎn)時(shí)的啟動窗為程序運(yùn)轉(zhuǎn)時(shí)的啟動窗體，可以修正設(shè)置，將其他窗體如體，可以修正設(shè)置，將其他窗體如form2設(shè)置為啟動窗體。設(shè)置為啟動窗體。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 (2) 窗體實(shí)例化和顯示窗體實(shí)例化和顯示 在多重窗體程序中在多重窗體程序中,只需啟動窗體只需啟動窗體(假定為假定為Form1)的實(shí)例化是的實(shí)例化是vb自動完成的自動完成的. 其他一切窗體都是經(jīng)過代碼實(shí)例化并顯示其他一切窗體都是經(jīng)過代碼實(shí)例化并顯示的的. 例如顯示窗體例如顯示窗體form2要運(yùn)用以下語句要運(yùn)用以下語句: dim f2 as new form2 定義定

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

29、text留意寫法留意寫法: 不能寫為不能寫為form27.2.2 窗體和常用控件窗體和常用控件 窗體窗體form2訪問窗體訪問窗體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. 經(jīng)過在模塊中定義公共變量實(shí)現(xiàn)相互訪問經(jīng)過在模塊中定義公共變量實(shí)現(xiàn)相互訪問.如：建立一個(gè)模塊如：建立一個(gè)模塊Module1。在

30、其中定義公共。在其中定義公共變量：變量： Public x as Imteger7.2.2 窗體和常用控件窗體和常用控件 例例7.3(P175)：多重窗體運(yùn)用：多重窗體運(yùn)用例如。例如。 標(biāo)簽控件用于顯示文本信息，不能輸入文標(biāo)簽控件用于顯示文本信息，不能輸入文本信息輸入用文本框。本信息輸入用文本框。 1. label標(biāo)簽控件標(biāo)簽控件(1) (1) 主要屬性主要屬性NameName、texttext、 locationlocation、forecolorforecolor、size size 、backcolor backcolor 、visible visible 、Font(Font(字體字體

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

32、 2. TextBox文本框文本框(1) (1) 主要屬性主要屬性NameName、locationlocation、forecolorforecolor、size size 、backcolor backcolor 、visible visible 、 Font(Font(字體字體) )、BorderStyle(BorderStyle(邊框風(fēng)格邊框風(fēng)格) ) 其他屬性見下頁其他屬性見下頁7.2.3 常用控件常用控件 屬性類型意義Text字符串框中編輯內(nèi)容MaxLength整型允許輸入最多字符數(shù)MultiLine邏輯允許多行輸入否，falseScrollBars枚舉選擇滾動條,MultiLin

33、e為true時(shí)PassWordChar字符文本框用于輸入口令時(shí)，顯示的字符ReadOnly邏輯只讀，F(xiàn)alseSelectionStart整型選定的正文開場的位置，第1個(gè)字符位置為0SelectionLength整型選定的正文長度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í)，用戶按了鍵時(shí)觸發(fā)。用戶按了鍵時(shí)觸發(fā)。LostFocus

34、LostFocus：當(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 e ) If asc(e.keychar)

35、=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(BorderStyle(邊框風(fēng)格邊框風(fēng)格) )、 Tex

36、tAlignTextAlign image( image(圖片圖片, , 建圖形按鈕時(shí)用建圖形按鈕時(shí)用) )、7.2.3 常用控件常用控件 例例7.4 按鈕運(yùn)用。界面、功能如以下圖所示。按鈕運(yùn)用。界面、功能如以下圖所示。TextBox1.Font = New Font(隸書隸書, 16, FontStyle.Italic)7.2.2 窗體和常用控件窗體和常用控件 演示演示搜集搜集3 3個(gè)圖片，個(gè)圖片，存放在工程的存放在工程的binbin文件夾下。文件夾下。4. 單項(xiàng)選擇按鈕、復(fù)選框和分組框單項(xiàng)選擇按鈕、復(fù)選框和分組框 單項(xiàng)選擇按鈕單項(xiàng)選擇按鈕(RadioButton) 與復(fù)選框與復(fù)選框(Che

37、kBox)的區(qū)別：的區(qū)別： 單項(xiàng)選擇按鈕任何時(shí)候最多只能選擇一項(xiàng)單項(xiàng)選擇按鈕任何時(shí)候最多只能選擇一項(xiàng), 普通利用普通利用Panel(面板面板)或或GroupBox(分組分組框框)將一樣性質(zhì)按鈕歸類在一組；復(fù)選框?qū)⒁粯有再|(zhì)按鈕歸類在一組；復(fù)選框列出多項(xiàng)，用戶可從中選擇一項(xiàng)或多項(xiàng)。列出多項(xiàng)，用戶可從中選擇一項(xiàng)或多項(xiàng)。見下頁圖所示。見下頁圖所示。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 單項(xiàng)選擇按鈕復(fù)選框(1) (1) 主要屬性主要屬性 NameName、Font(Font(字體字體) )、forecolorforecolor、 visible visibl

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

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

40、3 常用控件常用控件 列表框組合框(1) 主要屬性主要屬性Items: 集合。存儲列表框或組合框中的一切集合。存儲列表框或組合框中的一切選項(xiàng)。選項(xiàng)。SelectedIndex: 整型。程序運(yùn)轉(zhuǎn)時(shí)被選定的整型。程序運(yùn)轉(zhuǎn)時(shí)被選定的項(xiàng)的序號。第項(xiàng)的序號。第1項(xiàng)的序號為項(xiàng)的序號為0。SelectedItem:字符。被選定的項(xiàng)的內(nèi)容。字符。被選定的項(xiàng)的內(nèi)容。Text：用戶輸入或選擇的值。：用戶輸入或選擇的值。 Items.Count: 整型。程序中援用，值為列表整型。程序中援用，值為列表框或組合框中的項(xiàng)數(shù)。框或組合框中的項(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í)組合框只能經(jīng)過選擇得到文本。組合框只能經(jīng)過選擇得到文本。當(dāng)當(dāng)ComboBox1.DropDownStyle= ComboBoxStyle. DropDown時(shí)時(shí)組合框即可經(jīng)過輸入又可選擇得到文本。組合框即可經(jīng)過輸入又可選擇得到文本。 組合框?qū)Ｓ袑傩裕航M合框?qū)Ｓ袑傩裕?.2.3 常用控件常用控件 當(dāng)當(dāng)ComboBox1.DropDownStyle= Co

42、mboBoxStyle. 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.RemoveAt

43、(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. 滾動條和進(jìn)度條滾動條和進(jìn)度條 滾動條滾動條(ScrollBar)：通常附在

44、窗體上協(xié)助：通常附在窗體上協(xié)助察看數(shù)據(jù)或確定位置，也可用來作為數(shù)據(jù)察看數(shù)據(jù)或確定位置，也可用來作為數(shù)據(jù)的輸入工具。的輸入工具。 滾動條有垂直滾動條滾動條有垂直滾動條(VScrollBar)和程度和程度滾動條滾動條(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 :滾動條可以調(diào)整的最滾動條可以調(diào)整的最小值和最大值。小值和最大值。SmallChange:滾動

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

46、reen、 Blue。Minimun=0, maximun=255, largechange=10,SmallChange=1 . 見以下圖。見以下圖。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。經(jīng)過定時(shí)器。經(jīng)過定時(shí)器控制在控制在PictureBox1中裝入中裝入PictureBox2 和和Picture

48、Box3的圖像來實(shí)現(xiàn)。的圖像來實(shí)現(xiàn)。7.2.2 窗體和常用控件窗體和常用控件 7.2.2 窗體和常用控件窗體和常用控件 事先搜集事先搜集2 2個(gè)不同蝴蝶圖片，存放在工程的個(gè)不同蝴蝶圖片，存放在工程的binbin文件夾下。文件夾下。8、日期挑選控件、日期挑選控件 DateTimePicker控件控件: 用戶不想輸入日期或時(shí)用戶不想輸入日期或時(shí)間，可以經(jīng)過該控件選擇一個(gè)日期時(shí)間。間，可以經(jīng)過該控件選擇一個(gè)日期時(shí)間。7.2.3 常用控件常用控件 (1) 主要屬性：主要屬性： Value: 對象的當(dāng)前值。對象的當(dāng)前值。Format：顯示日期的格式。：顯示日期的格式。 Long(2019年年2月月25日

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

50、的文本?？丶俗鑫谋??？丶俗?TextBox 控件所做的每件事控件所做的每件事外，還可以顯示字體、顏色和鏈接，從文件加外，還可以顯示字體、顏色和鏈接，從文件加載文本和加載嵌入的圖像，以及查找指定的字載文本和加載嵌入的圖像，以及查找指定的字符符(find方法方法)。RichTextBox 控件通常用于提供控件通常用于提供類似字處置運(yùn)用程序如類似字處置運(yùn)用程序如 Microsoft Word的的文本操作和顯示功能。文本操作和顯示功能。7.2.3 常用控件常用控件 9. RichTextBox控件控件RichTextBox沒有沒有PasswordChar屬性，但比屬性，但比TextBox功能強(qiáng)

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

52、extBox 控件中控件中 用法：用法：RichTextBox1. LoadFile(途徑文件途徑文件名名,流類型流類型) RichTextBox1. SaveFile(途徑文件途徑文件名名,流類型流類型) 功能：將功能：將 RTF 格式文件或規(guī)范格式文件或規(guī)范 ASCII 文文本文件加載到本文件加載到RichTextBox 控件中控件中(或或 反之反之)。7.2.3 常用控件常用控件 If OpenFileDialog1.ShowDialog() = DialogResult.OK Then RichTextBox1.LoadFile(OpenFileDialog1.FileName, Ri

53、chTextBoxStreamType.PlainText ) End If If SaveFileDialog1.ShowDialog() = DialogResult.OK Then RichTextBox1.SaveFile(SaveFileDialog1.FileName,RichTextBoxStreamType.PlainText) End If 途徑和文件名途徑和文件名. 菜單設(shè)計(jì)菜單設(shè)計(jì) 有種方式的菜單：有種方式的菜單：MainMenu主菜單和主菜單和ContextMenu彈出式菜單，或稱快捷菜單。彈出式菜單，或稱快捷菜單。7.2.4 菜單和對話框菜單和對話框 (1) 菜單建立

54、：菜單建立：選擇工具箱中的選擇工具箱中的“MainMenu控件，并在控件，并在窗口中拖曳出適宜的大??；窗口中拖曳出適宜的大小； 此時(shí)此時(shí)MainMenu對象出如今窗體外的區(qū)域?qū)ο蟪鋈缃翊绑w外的區(qū)域直接在直接在“請?jiān)诖颂庉斎氲奶摽蛑休斎胨堅(jiān)诖颂庉斎氲奶摽蛑休斎胨牟藛螖?shù)據(jù)。的菜單數(shù)據(jù)。 見以下圖。見以下圖。7.2.4 菜單和對話框菜單和對話框 7.2.4 菜單和對話框菜單和對話框 (2) 主要屬性主要屬性Name: 菜單或菜單項(xiàng)名。菜單或菜單項(xiàng)名。Text：菜單顯示的文本。字母前有表示該字母是：菜單顯示的文本。字母前有表示該字母是熱鍵，熱鍵，“-顯示菜單項(xiàng)分割線。顯示菜單項(xiàng)分割線。Shor

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

56、供的函數(shù)實(shí)現(xiàn)。實(shí)現(xiàn)。(1) InputBox輸入函數(shù)：輸入函數(shù)： InputBox(提示提示,標(biāo)題標(biāo)題,默許值默許值,Xpos,Ypos ) 函數(shù)前往用戶輸入的值，函數(shù)值類型是字符串。函數(shù)前往用戶輸入的值，函數(shù)值類型是字符串。提示提示默許值默許值標(biāo)題標(biāo)題X,Y坐標(biāo)坐標(biāo)取消，那么前往長度為取消，那么前往長度為0的字符的字符串串7.2.4 菜單和對話框菜單和對話框 InputBox對話框?qū)υ捒蚶纾豪纾篋im an as string, gz as Decimal =0an=InputBox(“請輸入工資請輸入工資:,“計(jì)算工資計(jì)算工資,0)If an.trim.length0 Then Gz=

57、CDec(an) Textbox1.text=gzEnd If注：注： InputBox函數(shù)值是字符串型，上例中系統(tǒng)會將函數(shù)值是字符串型，上例中系統(tǒng)會將字符串型強(qiáng)迫轉(zhuǎn)換為字符串型強(qiáng)迫轉(zhuǎn)換為Decimal.7.2.4 菜單和對話框菜單和對話框 (2) MsgBox輸出函數(shù)輸出函數(shù)功能：翻開一個(gè)信息窗口，等待用戶選擇一功能：翻開一個(gè)信息窗口，等待用戶選擇一個(gè)按鈕。函數(shù)前往值是一個(gè)整數(shù)，不同整個(gè)按鈕。函數(shù)前往值是一個(gè)整數(shù)，不同整數(shù)代表用戶按了不同按鈕。數(shù)代表用戶按了不同按鈕。 假設(shè)不需求前往值，可作為一個(gè)獨(dú)立的語假設(shè)不需求前往值，可作為一個(gè)獨(dú)立的語句運(yùn)用。句運(yùn)用。 格式：格式： MsgBox(“提示

58、，按鈕，提示，按鈕，“標(biāo)題標(biāo)題) Messagebox.Show(“提示提示, “標(biāo)題標(biāo)題, 按鈕按鈕)7.2.4 菜單和對話框菜單和對話框 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 菜單和對話框菜單和對話框 分組分組枚舉值枚舉值按鈕值按鈕值對話框中心是的按鈕對話框中心是的按鈕按鈕按鈕個(gè)數(shù)個(gè)數(shù)OkOnly0“確定確定” OkCan

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

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