《Visual Basic NET程序設計》課件第2章 VB.NET程序設計基礎

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

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

PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.ClickEndEndSubEndClass2.2求解“雞兔同籠”問題雞兔同籠是中國古代的數(shù)學名題之一。大約在1500年前，《孫子算經(jīng)》中就記載了這個有趣的問題。書中是這樣敘述的：“今有雉兔同籠，上有三十五頭，下有九十四足，問雉兔各幾何？”這四句話的意思是：有若干只雞兔同在一個籠子里，從上面數(shù)，有35個頭，從下面數(shù)，有94只腳。問籠中各有幾只雞和兔？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計算分段函數(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計算乘方與階乘例：求5的5次方，再求5的階乘。55=5*5*5*5*5=3125（注：“*”在VB.NET中表示乘法運算符）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習

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