《Visual Basic NET程序設(shè)計(jì)》課件第2章 VB.NET程序設(shè)計(jì)基礎(chǔ)

2.1窗體和基本控件Windows窗體應(yīng)用程序是運(yùn)行在用戶計(jì)算機(jī)本地的基于Windows的應(yīng)用程序，提供豐富的用戶界面實(shí)現(xiàn)用戶交互。用戶界面一般由窗體來(lái)呈現(xiàn)，通過(guò)將控件添加到窗體表面可以設(shè)計(jì)滿足用戶需求的人機(jī)交互界面。2.1.1屬性屬性是與一個(gè)對(duì)象相關(guān)的各種數(shù)據(jù)，用來(lái)描述對(duì)象的特性，如性質(zhì)、狀態(tài)和外觀等。不同的對(duì)象有不同的屬性。對(duì)象常見的屬性有Name、Text、Visible等。對(duì)象的屬性分為以下3種類型：①只讀屬性。②運(yùn)行時(shí)只讀屬性。③可讀寫屬性。每一個(gè)對(duì)象屬性都有一個(gè)默認(rèn)值，如果不明確地改變?cè)撝?，程序就將使用它。在設(shè)計(jì)階段利用“屬性窗口”直接設(shè)置對(duì)象的屬性在程序代碼中通過(guò)賦值設(shè)置對(duì)象屬性:對(duì)象名.屬性名=屬性值2.1.2事件事件是對(duì)象發(fā)送的消息。當(dāng)事件發(fā)生時(shí)，將調(diào)用事件處理程序。VB應(yīng)用程序設(shè)計(jì)的主要工作就是為對(duì)象編寫事件過(guò)程中的程序代碼。事件過(guò)程的形式如下：Sub對(duì)象名_事件([參數(shù)列表])

… '事件過(guò)程代碼EndSub例如單擊“Button1”按鈕，使該按鈕的字體為“宋體”、大小改為20磅、字形加粗則，對(duì)應(yīng)的事件過(guò)程如下：PublicClassForm1PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickButton1.Font=NewFont("宋體",20,FontStyle.Bold)EndSubEndClass2.1.3方法方法是一個(gè)對(duì)象對(duì)外提供的某些特定動(dòng)作的接口，它是對(duì)象的行為或動(dòng)作，是對(duì)象本身內(nèi)含的程序段。每個(gè)方法完成某個(gè)功能，但其實(shí)現(xiàn)步驟和細(xì)節(jié)用戶既看不到，也不能修改，程序員能做的工作就是按照約定直接調(diào)用它們。VisualBasic的方法用于完成某種特定功能。如顯示窗體(Show)方法、獲得焦點(diǎn)(Focus)方法。方法只能在代碼中使用。對(duì)象方法的調(diào)用格式為：[對(duì)象.]方法[參數(shù)名表]例如：Form1.Hide() '隱藏Form1窗體TextBox1.Focus() '將焦點(diǎn)移至TextBox1文本框2.1.4窗體例：編程實(shí)現(xiàn)如下功能：①窗體標(biāo)題設(shè)置為：“HelloVisualBasic”；②單擊窗體，設(shè)置背景圖片；③雙擊窗體，最小化按鈕功能失效。PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="HelloVisualBasic“‘設(shè)置窗體標(biāo)題欄文本EndSubPrivateSubForm1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.ClickMe.BackgroundImage=Image.FromFile("D:\1\Desert.jpg")‘設(shè)置窗體背景圖片EndSubPrivateSubForm1_DoubleClick(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.DoubleClickMe.MinimizeBox=FalseEndSub2.1.5Label(標(biāo)簽)控件Label(標(biāo)簽)控件主要用來(lái)顯示輸出文本信息，也可以為窗體上其他控件作題注。Label的主要屬性如表2-4所示。例2.1在窗體上創(chuàng)建一個(gè)按鈕和一個(gè)標(biāo)簽，程序運(yùn)行時(shí)，單擊“按鈕”，在標(biāo)簽框中顯示“當(dāng)你學(xué)習(xí)了這門課程后，能夠編寫出各種應(yīng)用程序”，字號(hào)為20磅，字體為“黑體”。程序運(yùn)行結(jié)果如圖2-1所示。PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Font=NewFont("黑體",20)Label1.Text="當(dāng)你學(xué)習(xí)了這門課程后，能夠編寫出各種應(yīng)用程序"EndSub2.1.6TextBox(文本框)控件TextBox(文本框)是一個(gè)文本編輯區(qū)域，可以在該區(qū)域輸入、編輯、修改和顯示正文內(nèi)容，即可以創(chuàng)建一個(gè)文本編輯器。例2.2在文本框中輸入密碼，密碼以*顯示。如圖2-2所示操作步驟如下：①創(chuàng)建項(xiàng)目②在窗體上添加一個(gè)標(biāo)簽，標(biāo)簽屬性Text=“輸入密碼”，用于顯示密碼標(biāo)示；添加一個(gè)文本框，文本框?qū)傩訮asswordChar=“*”，用于輸入密碼；③啟動(dòng)調(diào)試本程序只需設(shè)置屬性，無(wú)需編寫代碼。2.1.7Button(按鈕)控件Button(按鈕)控件的功能類似于家用電器的功能按鈕，按下它就代表要執(zhí)行某種功能。例2.3設(shè)計(jì)一個(gè)程序，由用戶從鍵盤上輸入兩個(gè)數(shù)，然后再選擇對(duì)它們分別進(jìn)行和、減、乘、除法運(yùn)算，并將結(jié)果顯示出來(lái)。其界面設(shè)計(jì)如圖2-3所示。在本例的窗體中添加了2個(gè)TextBox，用于輸入2個(gè)操作數(shù)；添加了3個(gè)Label，用于顯示：“運(yùn)算符”、“=”和“結(jié)果”；添加了6個(gè)Button，用于執(zhí)行加、減、乘、除運(yùn)算。清除操作數(shù)和運(yùn)算結(jié)果，結(jié)束程序。PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Text="HelloVisualBasic"EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickLabel1.Text="+"Label3.Text=Str(Val(TextBox1.Text)+Val(TextBox2.Text))EndSub

PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickLabel1.Text="-"Label3.Text=Str(Val(TextBox1.Text)-Val(TextBox2.Text))EndSub

PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickLabel1.Text="*"Label3.Text=Str(Val(TextBox1.Text)*Val(TextBox2.Text))EndSub

PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickLabel1.Text="/"Label3.Text=Str(Val(TextBox1.Text)/Val(TextBox2.Text))EndSub

PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.ClickTextBox1.Text=""TextBox2.Text=""Label1.Text="運(yùn)算符"Label3.Text="結(jié)果"EndSub

PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickEndEndSubEndClass2.2求解“雞兔同籠”問(wèn)題雞兔同籠是中國(guó)古代的數(shù)學(xué)名題之一。大約在1500年前，《孫子算經(jīng)》中就記載了這個(gè)有趣的問(wèn)題。書中是這樣敘述的：“今有雉兔同籠，上有三十五頭，下有九十四足，問(wèn)雉兔各幾何？”這四句話的意思是：有若干只雞兔同在一個(gè)籠子里，從上面數(shù)，有35個(gè)頭，從下面數(shù)，有94只腳。問(wèn)籠中各有幾只雞和兔？PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadTextBox1.Text=35TextBox2.Text=94EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox3.Text=(4*Val(TextBox1.Text)-Val(TextBox2.Text))/2TextBox4.Text=Val(TextBox1.Text)-Val(TextBox3.Text)

EndSubEndClass2.3計(jì)算分段函數(shù)PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabel1.Image=Image.FromFile("d:\1\fd.jpg")EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx!,y!x=Val(TextBox1.Text)Ifx<0Theny=x+1Elsey=2*x-1EndIfTextBox2.Text=yEndSub

EndClass2.4計(jì)算乘方與階乘例：求5的5次方，再求5的階乘。55=5*5*5*5*5=3125（注：“*”在VB.NET中表示乘法運(yùn)算符）5！=1*2*3*4*5=120PublicClassForm1

PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadLabel1.Text="編程求5的5次方和5的階乘"EndSub

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimx%,y%,n%,i%n=5:x=1:y=1Fori=1Tonx=x*ny=y*iNextTextBox1.Text=xTextBox2.Text=yEndSub

EndClass習(xí)

題21.可以通過(guò)哪些方法激活屬性窗口和工具箱窗口？2.如何設(shè)置對(duì)象的屬性？3.在窗體上畫一個(gè)按鈕，然后通過(guò)屬性窗口設(shè)置下列屬性： Text 這是一個(gè)按鈕 Font.Name 宋體Font.Size 16點(diǎn) Visible False4.在窗體的左上部畫兩個(gè)按鈕和兩個(gè)文本框，然后選擇這4個(gè)控件，并把它們移到窗體的左下部。5.在窗體的任意位置畫一個(gè)文本框，然后在屬性窗口中設(shè)置下列屬性： Location.X 24 Location.Y 56 Size.Width 96 Size.Height 326.確定一個(gè)控件在窗體上的位置和大小的用的是控件的什么屬性?7.假定一個(gè)文本框的名稱(Name屬性)是Text1，為了在該文本框中顯示“GoodMorning”，應(yīng)使用什么語(yǔ)句？8.為了選擇多個(gè)控件，應(yīng)按住什么鍵，然后單擊每個(gè)要選擇的控件？9.在用VisualBasic.NET開發(fā)應(yīng)用程序時(shí)，一般分幾步進(jìn)行？每一步需要完成哪些操作？10.VisualBasic.NET應(yīng)用程序通常由幾類文件組成？在存盤時(shí)各使用什么擴(kuò)展名？11.假定窗體的名稱為Form1，為了把窗體的標(biāo)題設(shè)置為"VB.NETTest"，應(yīng)使用什么語(yǔ)句？12.可以通過(guò)哪幾種方法打開代碼窗口？13.在窗體上畫兩個(gè)文本框和一個(gè)按鈕，然后在代碼窗口中編寫如下事件過(guò)程：PrivateSubButton1Click(ByValsenderAsObject