第4章VB.NET中的常用控件ppt課件(全)

VB.NET程序設計實訓教程第4章VB.NET中的常用控件4.1控件的焦點4.2常用控件4.3鍵盤與鼠標事件4.4實訓練習44.1控件的焦點焦點（focus）焦點是接收用戶鼠標或鍵盤輸入的能力。當窗體中含有多個控件時，只有獲得焦點的控件才可以接收用戶輸入。4.1.1焦點事件（GotFocus和LostFocus）當對象得到焦點時，會產(chǎn)生GotFocus事件；而當對象失去焦點時，將產(chǎn)生LostFocus事件。4.1.2設置焦點(1)在設置時將該控件的TabIndex屬性設置為0。(2)在運行時單擊該對象。(3)運行時用快捷鍵或Tab鍵選擇該對象。(4)在程序代碼中使用Focus方法。(5)在程序代碼中使用ActiveControl屬性。4.1.3Tab鍵次序所謂Tab鍵次序就是指按Tab鍵時，焦點在各個控件之間移動的次序。通常，Tab鍵次序就是在窗體上添加控件的次序?？丶腡abIndex屬性決定一個控件的Tab鍵次序。改變控件的TabIndex屬性值可以改變它在Tab鍵次序中的位置。不能獲得焦點的控件以及無效的和不可見的控件，不具有TabIndex屬性，不能包含在Tab鍵次序中。按Tab鍵時，這些控件將被跳過。如果將控件的TabStop屬性設為False，就可以將該控件從Tab鍵次序中刪除，即該控件在Tab鍵次序中的位置不變，但按Tab鍵時該控件被跳過。4.2

常用控件4.2.1鏈接標簽（LinkLabel）LinkLabel控件除了具有Label控件的基本屬性之外，它還可以在窗體上創(chuàng)建超鏈接。LinkArea屬性設置激活鏈接的文本區(qū)域，LinkColor、VisitedLinkColor和ActiveLinkColor屬性用于設置鏈接的顏色，LinkCliked事件確定鏈接文本后將打開哪個網(wǎng)頁。1．鏈接標簽的常用屬性(1)Text屬性：顯示標簽上的文本內(nèi)容。(2)LinkArea屬性：標簽中要呈現(xiàn)為超鏈接的文本部分。LinkLabel1.Text="打開沈陽大學信息學院主頁"LinkLabel1.LinkArea=NewLinkArea(2,4)從第二個字符開始的連續(xù)4個字符作為超鏈接文本。2．鏈接標簽的主要事件LinkClicked：給出要鏈接的網(wǎng)址?！纠?-1】在窗體上添加一個鏈接標簽，當點擊該標簽時顯示沈陽大學主頁。PrivateSubform1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadLinkLabel1.Text="打開沈陽大學主頁"LinkLabel1.LinkArea=NewLinkArea(2,4)EndSubPrivateSubLinkLabel1_LinkClicked(senderAsObject,eAsLinkLabelLinkClickedEventArgs)HandlesLinkLabel1.LinkClickedSystem.Diagnostics.Process.Start("/")EndSub4.2.2富文本框（RichTextBox）RichTextBox控件提供了比普通的TextBox控件更高級的格式特征。例如可以對其中選中的部分文本進行字體的設置?！纠?-2】在窗體上添加一個富文本框及一個按鈕，當點擊按鈕時，文本框中的部分內(nèi)容字體將被改變。PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickRichTextBox1.SelectionStart=6RichTextBox1.SelectionLength=4RichTextBox1.SelectionFont=NewFont("隸書",16,FontStyle.UnderlineOrFontStyle.Italic)EndSubPrivateSubform1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadRichTextBox1.Text="VB.NET程序設計基礎"EndSub4.2.3單選鈕（RadioButton）當應用程序要求在一組（幾個）方案中只能選擇其中之一，就要用“單選鈕”控件。1．單選鈕的常用屬性(1)Text屬性：用來設置單選鈕的文本注釋內(nèi)容。(2)Checked屬性：用來設置或返回單選鈕是否被選中。當值為True時表示被選中。(3)Appearance屬性：用來獲取或設置單選按鈕的外觀顯示方式?？梢赃x擇普通樣式和按鈕樣式。2．單選鈕控件的主要事件Click事件?！纠?-3】在窗體上添加兩個分組框，一個命令按鈕和一個標簽。在兩個分組框中共添加五個單選鈕，分別寫上性別和最高學歷。編寫代碼，單擊命令按鈕時，在標簽中顯示所選擇的單選鈕的內(nèi)容。PrivateSubButton1_Click_1(senderAsObject,eAsEventArgs)HandlesButton1.ClickIfRadioButton1.Checked=TrueThenxb="男"Elsexb="女"EndIfIfRadioButton3.Checked=TrueThenxl="本科"ElseIfRadioButton4.Checked=TrueThenxl="碩士研究生"Elsexl="博士研究生"EndIfEndIfLabel1.Text="性別："&xb&"學歷："&xlEndSub4.2.4復選框（CheckBox）用戶可以根據(jù)需要選擇一個或多個。1．復選框的常用屬性(1)Text屬性：用來設置復選框的文本注釋內(nèi)容。(2)Checked屬性：用來設置或返回復選框是否被選中。當值為True時表示被選中，當值為False時表示未選中。(3)CheckState屬性：用來表示復選框的三種狀態(tài)：選中(Checked)，未選中（Unchecked），部分選中（Interminate）。(4)ThreeState屬性：是否允許復選框出現(xiàn)三種狀態(tài)。當值為True時表示可以出現(xiàn)三種狀態(tài)，即包含半選中狀態(tài)；當值為False時只能出現(xiàn)兩種狀態(tài)。2．復選框控件的主要事件Click事件是復選框控件最基本的事件?！纠?-4】在窗體上添加三個復選框和一個文本框。編寫代碼，單擊相應的復選框時，文本框中的字體樣式會發(fā)生變化。DimfstyleAsFontStylePrivateSubCheckBox1_Click(senderAsObject,eAsEventArgs)HandlesCheckBox1.ClickIfTextBox1.Font.BoldThenfstyle=fstyle-FontStyle.BoldTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.BoldTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSubPrivateSubCheckBox2_Click(senderAsObject,eAsEventArgs)HandlesCheckBox2.ClickIfTextBox1.Font.ItalicThenfstyle=fstyle-FontStyle.ItalicTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.ItalicTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSubPrivateSubCheckBox3_Click(senderAsObject,eAsEventArgs)HandlesCheckBox3.ClickIfTextBox1.Font.UnderlineThenfstyle=fstyle-FontStyle.UnderlineTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.UnderlineTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSub4.2.5分組框（GroupBox）分組框控件可以用來對其他控件進行分組，即可以作為其他控件的容器的形式存在的，以便于用戶識別。1．分組框控件的創(chuàng)建方法首先需要添加GroupBox控件，然后再添加GroupBox里面的控件。2．分組框控件的常用屬性(1)Text屬性：用來顯示分組框標題，以便把不同種類的選項按鈕區(qū)分開。(2)Enabled屬性：當值為False時，對框架內(nèi)的所有對象均不允許進行操作。(3)Visible屬性：當值為False時，框架及其內(nèi)部的控件均不可見。3．分組框控件的主要事件分組框可以響應的事件有Click、DoubleClick等。4.2.6列表框（ListBox）列表框控件用來顯示項目列表，用戶從其中可以選擇一項或多項。如果有較多的選項而不能一次全部顯示，則會自動加上滾動條。1．列表框控件的常用屬性(1)Items屬性：存放在列表框中的列表項。(2)SelectionMode屬性：設置列表框是單項選擇(One)、多項選擇(MultiSimple及MultiExtended）或不可選擇(None)。(3)SelectedIndex屬性：用來存放控件中當前選擇項目的索引位置，在設計時不可用。表項位置由索引值指定，第1項的索引值為0，第2項為1，依次類推。如果沒有選中任何項，SelectedIndex的值將設置為-1。在程序中設置SelectedIndex后，被選中的條目反相顯示。2．列表框控件的常用事件Click事件和DoubleClick事件。3．列表框控件的常用方法(1)在設計時添加或刪除項目：(2)Add方法：運行時向列表框的最后追加一個新項目。

格式：列表框名.items.add（項目）(3)Insert方法：運行時在某個項目的前面插入一個新項目。

格式：列表框名.items.insert（索引位置，項目）(4)Remove方法：按內(nèi)容刪除列表框的某個項目。

格式：列表框名.items.remove（項目）(5)RemoveAt方法：按索引位置刪除列表框的某個位置的項目。

格式：列表框名.items.removeat（索引位置）【例4-5】在窗體上添加一個列表框Lst_Provn，一個文本框Txt_Name，以及三個命令按鈕。PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickLst_Provn.Items.Add(Txt_Name.Text())Txt_Name.Text=""'添加完畢后將文本框置為空Txt_Name.Focus()'設置焦點，等待下一次輸入EndSubPrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.ClickLst_Provn.Items.Clear()EndSubPrivateSubLst_Provn_Click(senderAsObject,eAsEventArgs)HandlesLst_Provn.ClickDimiindexAsIntegeriindex=Lst_Provn.SelectedIndexTxt_Name.Text=Lst_Provn.Items(iindex)EndSubPrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.ClickDimiindexAsInteger,icountAsIntegerIficount<=0ThenMsgBox("沒有項目可刪除")Elseiindex=Lst_Provn.SelectedIndex

'獲取選定項索引

Ifiindex>=0Then

Lst_Provn.Items.RemoveAt(iindex)'刪除選定項Txt_Name.Text=""'刪除后將文本框置空

ElseMsgBox("請選中要刪除的項目")EndIfEndIfEndSub4.2.7組合框（ComboBox）組合框控件將文本框和列表框的功能結(jié)合在一起，用戶可以在列表中選擇某項（只能選取一項），或在編輯區(qū)域中直接輸入文本內(nèi)容來選定項目。組合框共有3種風格：下拉式組合框、簡單組合框和下拉式列表框。用戶可以通過單擊列表框或組合框中的某一項來選擇所需選項，也可以在組合框中輸入自己的選項；但是在列表框中只能進行選擇，不能輸入。1．組合框控件的常用屬性(1)Items屬性、SelectionMode屬性、SelectedIndex屬性：與列表框相同。(2)DropDownStyle屬性：組合框的顯示類型。在運行時是只讀的。Simple----組合框稱為簡單組合框，包括一個文本框（文本框的右邊無下拉按鈕）和一個不能下拉的列表框。當項目數(shù)超過可顯示的限度時，自動產(chǎn)生一個垂直滾動條。可以從列表選擇或在文本框中輸入那些不在列表中的項目。DropDown（默認值）----組合框稱為下拉式組合框，包括一個下拉式列表和一個文本框。DropDownList----組合框稱為下拉式列表框。這種樣式僅允許從下拉式列表中選擇，不可以自行輸入組合框中沒有的項目。2．組合框的常用事件和方法組合框的常用事件有Click事件、Dropdown事件等。4.2.8定時器（Timer）VB提供了一種“定時器”控件。定時器的一個重要的事件是Timer事件。定時器每隔一定的時間間隔就產(chǎn)生一次Timer事件。定時器控件在運行時不顯示。1．定時器控件的常用屬性(1)Interval屬性：計時器的時間間隔，是一個整數(shù)，單位為毫秒。若將Interval屬性設置為0或負數(shù)，則定時器停止工作。如果將Interval屬性設置為1000，則相當于每秒鐘產(chǎn)生一個Timer事件。(2)Enabled屬性：定時器控件是否可用。無論何時，只要定時器控件的Enabled屬性被設置為True而且Interval屬性值大于0，則定時器開始工作（以Interval屬性值為間隔，觸發(fā)Timer事件）。通過把Enabled屬性設置為False可使定時器控件無效，即停止工作。2．定時器控件的主要事件定時器控件響應Tick事件，當Enabled屬性值為True且Interval屬性值大于0時，該事件以Interval屬性指定的時間間隔發(fā)生，需要定時執(zhí)行的操作即放在該事件過程中完成?！纠?-6】設計一個簡單的定時器來顯示當前的系統(tǒng)時鐘。添加一個定時器控件，并設置其Interval屬性為1000。PrivateSubTimer1_Tick(senderAsObject,eAsEventArgs)HandlesTimer1.TickLabel1.Text=TimeOfDay()EndSub4.2.9日期時間控件（DateTimePicker）DateTimePicker控件用于讓用戶可以從日期列表中選擇單個值。運行時，該控件以下拉式組合框的形式彈出日期供選擇。【例4-7】在窗體上添加一個DateTimePicker控件和一個label控件，運行時將DateTimePicker控件的初始日期設置為2016年1月1日。在DateTimePicker控件中選擇了一個日期后，將選中的日期顯示在label控件中。PrivateSubDateTimePicker1_ValueChanged(senderAsObject,eAsEventArgs)HandlesDateTimePicker1.ValueChangedDimkAsDate,yyAsInteger,mmAsInteger,ddAsIntegerk=DateTimePicker1.Valueyy=k.Year:mm=k.Month:dd=k.DayLabel1.Text="選中的日期是"&yy&"年"&mm&"月"&dd&"日"EndSubPrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadDateTimePicker1.Value=CDate("2016-1-1")EndSub4.2.10樹形結(jié)構(gòu)控件（Treeview）Treeview控件可以獲得驅(qū)動器下的所有目錄和子目錄。1．Treeview控件的常用屬性(1)Nodes屬性：樹型層次結(jié)構(gòu)中頂級結(jié)點的列表；(2)SelectedNode屬性：設置當前選定結(jié)點；(3)ImageIndex屬性：為結(jié)點設置圖像。2．Treeview控件增減結(jié)點的方法(1)在屬性窗口中利用Nodes屬性添加或刪除結(jié)點；(2)Add方法：為選定結(jié)點添加一個結(jié)點；(3)Remove方法：移除一個結(jié)點?！纠?-8】利用屬性窗口向Treeview控件中添加結(jié)點舉例。(1)在窗體上添加一個TreeView控件和一個ImageList控件。(2)在ImageList控件的屬性窗中點擊Images屬性，在其中添加若干圖片。(3)在Treeview控件的屬性窗口中點擊Nodes屬性，添加結(jié)點和子結(jié)點，設置ImageIndex、Name和Text屬性?！纠?-9】編程向Treeview控件中添加結(jié)點舉例。在上面例子的窗體上再添加一個按鈕。PrivateSubButton1_Click(senderAsObject,eAsEventArgs)HandlesButton1.ClickDimnewnode1AsTreeNode=NewTreeNode("新結(jié)點")Dimnewnode2AsTreeNode=NewTreeNode("新子結(jié)點")TreeView1.Nodes.Add(newnode1)newnode1.ImageIndex=1‘設置新結(jié)點圖片TreeView1.Nodes(2).Nodes.Add(newnode2)newnode2.ImageIndex=2‘設置新子結(jié)點圖片EndSub4.2.11滾動條控件（ScrollBar）滾動條控件分為水平滾動條和垂直滾動條。1．滾動條控件的常用屬性(1)Value屬性：滑塊所處位置所代表的值。(2)Maximum屬性：滾動條的最大值。(3)Minimum屬性：滾動條的最小值。(4)SmallChange屬性：最小變動值，即單擊箭頭時滑塊移動的增量值。(5)LargeChange屬性：最大變動值，即單擊空白處時滑塊移動的增量值。2．滾動條的主要事件

(1)ValueChanged事件：在移動滑塊或通過代碼改變滾動條的Value屬性值時發(fā)生。單擊滾動條兩端的箭頭或空白處將引發(fā)ValueChanged事件。(2)Scroll事件：當滑塊被重新定位，或按水平方向或垂直方向滾動時，Scroll事件發(fā)生。拖動滑塊時會觸發(fā)Scroll事件?！纠?-10】通過調(diào)整滾動條位置改變文本中字體大小。PrivateSubHScrollBar1_ValueChanged(senderAsObject,eAsEventArgs)HandlesHScrollBar1.ValueChangedTextBox1.Font=NewFont(TextBox1.Font.Name,HScrollBar1.Value)EndSubPrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMe.LoadTextBox1.Text="調(diào)整字體大小"HScrollBar1.Minimum=8HScrollBar1.Maximum=72

'設置滾動條最大最小值EndSub4.3

鍵盤與鼠標事件4.3.1常用鍵盤事件KeyPress事件：按下對應某ASCII字符的鍵。KeyDown事件：按下鍵盤的任意鍵。KeyUp事件：釋放鍵盤的任意鍵。1．鍵盤按鍵事件（KeyPress）當按下與ASCII字符對應的鍵時將觸發(fā)KeyPress事件。KeyPress事件過程中的參數(shù)Sender代表消息的來源，參數(shù)e的KeyChar屬性代表所按下的字符?！纠?-11】在窗體上添加一個文本框TextBox1和一個標簽，當在文本框中鍵入任意字符時，在標簽中顯示該字符的ASCII碼。PrivateSubTextBox1_KeyPress(senderAsObject,eAsKeyPressEventArgs)HandlesTextBox1.KeyPressDimIascAsIntegerIfsenderIsTextBox1ThenMsgBox("消息來源是TextBox1")EndIfTextBox1.Text=""Iasc=Asc((e.KeyChar))Label1.Text=e.KeyChar&"的ASC碼是"&IascEndSub【例4-12】編寫程序，使得文本框TextBox1中限定只能輸入數(shù)字、小數(shù)點，只能響應BackSpace鍵及回車鍵。PrivateSubTextBox1_KeyPress(senderAsObject,eAsKeyPressEventArgs)HandlesTextBox1.KeyPressDimIascAsIntegerIasc=Asc((e.KeyChar))SelectCaseIascCase48To57,46,8,13CaseElsee.KeyChar=""EndSelectEndSub程序說明：數(shù)字0到9的ASCII碼分別為48到57，小數(shù)點的ASCII碼為46，退格鍵的ASCII碼為8，回車鍵的ASCII碼是13。當輸入的是其他字符時，拒絕接收。2．鍵盤按下（KeyDown）和放開（KeyUp）事件當一個對象具有焦點時按下或松開一個鍵時分別發(fā)生這兩個事件。他們報告鍵盤本身準確的物理狀態(tài)：按下鍵（KeyDown）及松開鍵（KeyUp）。KeyDown和KeyUp事件能夠檢測功能鍵、編輯鍵和定位鍵。最常用的是KeyCode屬性：表示按下的物理鍵。上檔鍵字符和下檔鍵字符也是使用同一鍵，他們的KeyCode值相同。例如，無論按下大寫字母A或小寫字母a，KeyCode值均為Keys.A?！纠?-13】用KeyDown事件判斷是否按下了Shift鍵及字母A鍵。PrivateSubTextBox1_KeyDown(senderAsObject,eAsKeyEventArgs)HandlesTextBox1.KeyDownIfe.Shift=TrueThenIfe.KeyCode=Keys.AThenMsgBox("按下了shift+a鍵")EndIfElseMsgBox("按的是其他鍵")EndIfEndSub4.3.2常用鼠標事件MouseDown：按下任意鼠標鍵按鈕時發(fā)生。MouseUp：釋放任意鼠標鍵按鈕時發(fā)生。MouseMove：每當鼠標指針移動到屏幕新位置時發(fā)生。常用鼠標事件中常用的屬性有：(1)屬性X和Y：鼠標指針在窗體上的位置。(2)Button參數(shù)：表示哪一個鼠標鍵被按下或釋放?！纠?-14】編寫一個利用鼠標在窗體上徒手畫圖的程序。按下鼠標左鍵時用紅色筆畫，按下鼠標右鍵時用藍色筆畫圖。PublicClassForm1DimxoldAsInteger,yoldAsIntegerPrivateSubForm1_MouseDown(senderAsObject,eAsMouseEventArgs)HandlesMe.MouseDownxold=e.X:yold=e.YEndSubPrivateSubForm1_MouseMove(senderAsObject,eAsMouseEventArgs)HandlesMe.MouseMoveIfe.Button=Windows.Forms.MouseButtons.LeftThenMe.CreateGraphics.DrawLine(NewPen(Color.Red),xold,yold,e.X,e.Y)xold=e.X:yold=e.YEndIfIfe.Button=Windows.Forms.MouseButtons.RightThenMe.CreateGraphics.DrawLine(NewPen(Color.Blue),xold,yold,e.X,e.Y)xold=e.X:yold=e.YEndIfEndSubEndClass4.4

實訓練習4【例4-15】設置文字字體、字型、字號。在窗體上添加一個文本框、三個復選框及六個單選鈕。根據(jù)單選鈕及復選框的設置來修改文本框中文字的字體、字型和字號。編寫程序如下，運行結(jié)果如圖4-15所示。PublicClassform2DimfstyleAsFontStylePrivateSubCheckBox1_Click(senderAsObject,eAsEventArgs)HandlesCheckBox1.ClickIfTextBox1.Font.BoldThenfstyle=fstyle-FontStyle.BoldTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.BoldTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSubPrivateSubCheckBox2_Click(senderAsObject,eAsEventArgs)HandlesCheckBox2.ClickIfTextBox1.Font.ItalicThenfstyle=fstyle-FontStyle.ItalicTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.ItalicTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSubPrivateSubCheckBox3_Click(senderAsObject,eAsEventArgs)HandlesCheckBox3.ClickIfTextBox1.Font.UnderlineThenfstyle=fstyle-FontStyle.UnderlineTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)Elsefstyle=fstyle+FontStyle.UnderlineTextBox1.Font=NewFont(TextBox1.Font.Name,TextBox1.Font.Size,fstyle)EndIfEndSubPrivateSubRadioButton1_Click(senderAsObject,eAsEventArgs)HandlesRadioButton1.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,CSng(RadioButton1.Text),fstyle)EndSubPrivateSubRadioButton2_Click(senderAsObject,eAsEventArgs)HandlesRadioButton2.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,CSng(RadioButton2.Text),fstyle)EndSubPrivateSubRadioButton3_Click(senderAsObject,eAsEventArgs)HandlesRadioButton3.ClickTextBox1.Font=NewFont(TextBox1.Font.Name,CSng(RadioButton3.Text),fstyle)EndSubPrivateSubform2_Load(senderAsObject,eAsEventArgs)HandlesMe.LoadEndSubPrivateSubRadioButton4_Click(senderAsObject,eAsEventArgs)HandlesRadioButton4.ClickTextBox1.Font=NewFont(RadioButton4.Text,TextBox1.Font.Size,fstyle)EndSubPrivateSubRadioButton5_Click(senderAsObject,eAsEventArgs)HandlesRadioButton5.ClickTextBox1.Font=NewFont(RadioButton5.Text,TextBox1.Font.Size,fstyle)EndSubPrivateSubRadioButton6_Click(senderAsObject,eAsEventArgs)HandlesRadioButton6.ClickTextBox1.Font=NewFont(RadioButton6.Text,TextBox1.Font.Size,fstyle)EndSubEndClass【例4-16】設計一個簡易的計算器程序，可以做四則運算。在窗體上添加一個文本框及若干命令按鈕，并給命令按鈕改名。PublicClassForm1DimB_digit_pointAsBoolean'每個運算數(shù)中只允許有一個小數(shù)點DimI_tempAsInteger'確定四則運算符號位置DimF_resultAsSingle'運算結(jié)果DimI_opAsInteger,S_opAsString'四個運算符DimF_firstAsSingle,F_secondAsSingle'兩個操作數(shù)PrivateSubForm1_Load(senderAsObject,eAsEventArgs)HandlesMyBase.LoadB_digit_point=FalseI_op=0EndSub控件名Text屬性控件名Text屬性Btn_00Btn_mul*Btn_11Btn_div÷Btn_22Btn_back←Btn_point．Btn_clearCBtn_plus+Btn_endOffBtn_minus-Btn_equal=PrivateSubBtn_point_Click(senderAsObject,eAsEventArgs)HandlesBtn_point.Click'每個操作數(shù)可以按一次小數(shù)點IfB_digit_point=FalseThenTextBox1.Text=TextBox1.Text+"."B_digit_point=TrueEndIfEndSubPrivateSubBtn_0_Click(senderAsObject,eAsEventArgs)HandlesBtn_0.ClickIfLen(TextBox1.Text)>0ThenTextBox1.Text=TextBox1.Text+"0"EndIfEndSubPrivateSubBtn_1_Click(senderAsObject,eAsEventArgs)HandlesBtn_1.ClickTextBox1.Text=TextBox1.Text+"1"'按鍵1時的代碼EndSubPrivateSubBtn_2_Click(senderAsObject,eAsEventArgs)HandlesBtn_2.ClickTextBox1.Text=TextBox1.Text+"2"EndSubPrivateSubBtn_mul_Click(senderAsObject,eAsEventArgs)HandlesBtn_mul.ClickIfI_op=0Then'只可作一次四則運算F_first=Val(TextBox1.Text)B_digit_point=FalseS_op="*"'此段代碼為按乘法鍵時的程序段TextBox1.Text=TextBox1.Text+S_opI_op=3EndIfEndSub

Priv