《VisualBasic Net程序設(shè)計(jì)》教學(xué)課件：第7章常用控件和界面設(shè)計(jì)

1、VisualBasic.Net程序設(shè)計(jì)華中農(nóng)業(yè)大學(xué)信息學(xué)院 章程第7章 常用控件和界面設(shè)計(jì) 本章學(xué)習(xí)要點(diǎn)： 菜單設(shè)計(jì) 鼠標(biāo)鍵盤事件1、常用控件 1.1 RichTextBox控件 RichTextBox是一種文本框控件，跟TextBox控件有一些相似的地方，可以進(jìn)行輸入和輸出。1、主要屬性Text(文字內(nèi)容)屬性：HideSelection屬性：Multiline屬性：ScrollBars屬性：WordWrap屬性：2、RichTextBox控件常用方法Copy方法將RichTextBox內(nèi)選中內(nèi)容復(fù)制剪貼薄。RichTextBox1.Copy()。Cut方法將RichTextBox內(nèi)選中內(nèi)容

2、移動(dòng)到剪切薄。RichTextBox1.Cut()。Paste方法將當(dāng)前剪切薄的內(nèi)容移動(dòng)到RichTextBox中光標(biāo)所在位置。RichTextBox1.Paste()。LoadFile方法將指定的文本文件加載到RichTextBox控件中顯示。 ：RichTextBox.LoadFile(data,fileType)說(shuō)明：data： 要加載到RichTextBox中的文本文件。fileType：指定加載文件的格式。默認(rèn)是RichText 格式。RichTextBox1.LoadFile(“a.txt”,RichTextBoxStreamType.PlainText)1.2 滾動(dòng)條控件 1、重

3、要屬性1)Value屬性：滑塊當(dāng)前位置所代表的值，默認(rèn)值為0。2)Minimum和Maximum屬性：Minimum屬性為滑塊處于最小位置時(shí)所代表的值。3)SmallChange和LargeChange屬性： SmallChange屬性表示用戶單擊滾動(dòng)條兩端的箭頭時(shí)，Value屬性增加或減少的值。LargeChange屬性表示用戶單擊滾動(dòng)條的空白處時(shí)，Value屬性增加或減少的值。2、重要事件 Scroll ValueChanged【例7.1】 【例7.2】 利用滾動(dòng)條設(shè)計(jì)一個(gè)對(duì)文字字號(hào)和顏色設(shè)置的應(yīng)用程序。1.3 ProgressBar控件 1、重要屬性： 1）Maximum 2）Minim

4、um 3）Value【例7.3】設(shè)計(jì)一個(gè)倒計(jì)時(shí)程序。 2、菜單設(shè)計(jì) 在Windows環(huán)境中，幾乎所有的應(yīng)用軟件都通過(guò)菜單來(lái)實(shí)現(xiàn)各種操作。在VB.NET中，命令選項(xiàng)比較多的時(shí)候，使用菜單會(huì)比較方便。2.1 簡(jiǎn)單菜單設(shè)計(jì) 設(shè)計(jì)如圖所示菜單，能夠?qū)ξ谋究蛑械奈淖诌M(jìn)行簡(jiǎn)單的編輯操作（“復(fù)制”，“剪切”，“粘貼”）。 Private Sub CopyItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyItem.Click RichTextBox1.Copy() PasteItem.Enabl

5、ed = True End SubPrivate Sub CutItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutItem.Click RichTextBox1.Cut() PasteItem.Enabled = TrueEnd SubPrivate Sub PasteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteItem.Click RichTextBox1.

6、Paste()End Sub2.2 菜單設(shè)計(jì) 為了便于設(shè)計(jì)菜單，VB.NET提供了MenuStrip和ConTextMenuStrip兩個(gè)控件，分別用來(lái)設(shè)計(jì)主菜單和彈出式菜單。 MenuStrip和ContextMenulStrip控件出現(xiàn)在窗體下專用面板中，它們是非用戶界面控件。 2.2.1、重要屬性 菜單項(xiàng)除了Name， Visible， Enabled等屬性之外，還具有下列重要屬性。Text 若菜單項(xiàng)需要熱鍵，則在熱鍵字符之前加一個(gè)“&”符號(hào)。若菜單項(xiàng)是分隔符，則應(yīng)輸入“-”(減號(hào))。2.2.1、重要屬性ShortCutKeys：用來(lái)設(shè)置菜單項(xiàng)的快捷鍵。 CheckedBoolean類型

7、。若設(shè)置為True，則在菜單項(xiàng)左邊顯示一個(gè)“”，表示選中了該項(xiàng)，否則，沒(méi)有“”，表示未選中該項(xiàng)。2.3、下拉菜單菜單項(xiàng)的重要事件是Click事件?！纠?.5】利用MenuStrip控件建立一個(gè)下拉式菜單。2.4、彈出式菜單 彈出菜單是右擊鼠標(biāo)時(shí)彈出的菜單?！纠?.7】給前面的例子創(chuàng)建一個(gè)彈出式菜單，菜單運(yùn)行時(shí)的界面如下圖： 要使程序運(yùn)行后用鼠標(biāo)標(biāo)右擊文本框能顯示彈出菜單，必須建立彈出菜單與文本框之間的關(guān)聯(lián)。 3 、鼠標(biāo)事件 【例7.8】編寫一個(gè)程序，確定哪個(gè)鼠標(biāo)鍵被按下。在窗體上按下鼠標(biāo)按鍵，則在標(biāo)簽顯示相應(yīng)的提示信息和按下的坐標(biāo)位置。運(yùn)行界面如下：程序代碼： Dim mess$ = If e

8、.Button = MouseButtons.Right Then mess = 鼠標(biāo)右鍵按下，坐標(biāo)位置是 If e.Button = MouseButtons.Left Then mess = 鼠標(biāo)左鍵按下，坐標(biāo)位置是 If e.Button = MouseButtons.Middle Then mess = 鼠標(biāo)中間鍵按下，坐標(biāo)位置是 Label1.Text = mess Label1.Text &= （ & e.X & , & e.Y & )3.1 常用的鼠標(biāo)事件 事 件 名 稱說(shuō) 明Click在控件對(duì)象上按下鼠標(biāo)并放開會(huì)觸發(fā)此事件DoubleClick在控件對(duì)象上雙擊鼠標(biāo)并放開會(huì)觸發(fā)此

9、事件MouseEnter鼠標(biāo)光標(biāo)進(jìn)入控件對(duì)象時(shí)會(huì)觸發(fā)此事件MouseMove鼠標(biāo)光標(biāo)進(jìn)入控件對(duì)象時(shí)會(huì)觸發(fā)此事件MouseHover鼠標(biāo)光標(biāo)停在控件對(duì)象上不動(dòng)時(shí)會(huì)觸發(fā)此事件MouseDown鼠標(biāo)光標(biāo)在控件上并按下鼠標(biāo)按鍵時(shí)會(huì)觸發(fā)此事件MouseUp鼠標(biāo)光標(biāo)在控件對(duì)象上放開鼠標(biāo)按鍵時(shí)會(huì)觸發(fā)此事件MouseLeave鼠標(biāo)光標(biāo)離開控件對(duì)象時(shí)會(huì)觸發(fā)此事件屬 性說(shuō) 明（可取值）e.Button以下常量的名稱空間為Windows.Forms：MouseButtons.None：表示沒(méi)有按下鼠標(biāo)任何鍵MouseButtons.Left：表示按下鼠標(biāo)左鍵MouseButtons.Right：表示按下鼠標(biāo)右鍵Mo

10、useButtons.Middle：表示按下鼠標(biāo)中間鍵e.Clicks取得按下并放開鼠標(biāo)鍵的次數(shù)e.x取得鼠標(biāo)在對(duì)象上的x坐標(biāo)e.y取得鼠標(biāo)在對(duì)象上的y坐標(biāo)4、鍵盤事件 【例7.9】編寫一個(gè)程序，當(dāng)按下Alt+F3組合鍵時(shí)，彈出如圖所示歡迎窗口。 Private Sub Form1_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.F3 And e.Alt Then MsgBox(歡迎使用鍵盤事件！) End

11、If End Sub4.1 一些常用鍵盤事件4.1.1、KeyPress事件 對(duì)焦點(diǎn)所在的對(duì)象，用戶的鍵盤按鍵將產(chǎn)生一個(gè)KeyPress事件，編程者可以通過(guò)對(duì)KeyPress事件的過(guò)程處理進(jìn)行編制程序代碼。 當(dāng)控件（對(duì)象）擁有焦點(diǎn)并按下鍵盤時(shí)，會(huì)觸動(dòng)KeyPress事件。此事件只能響應(yīng)按鍵操作，無(wú)法知道知道按鍵是否被按下或放開。 屬 性說(shuō) 明Handled設(shè)置是否響應(yīng)按鍵操作e.Handled=True:不響應(yīng)按鍵，例如：焦點(diǎn)在文本框中由鍵盤所輸入的數(shù)據(jù)，并不會(huì)顯示在文本框中e.Handle=False:響應(yīng)按鍵操作。例如：在文本框中由鍵盤所輸入的數(shù)據(jù)，會(huì)顯示在文本框中KeyChar取得對(duì)應(yīng)的

12、所按下鍵盤的字符。例如：按“0”鍵會(huì)傳回字符“0”；按“A”鍵會(huì)傳回字符a；按Shift+B鍵會(huì)傳回字符B，其他依次類推。因此，你也可以使用Asc（）函數(shù)將取得鍵盤的字符轉(zhuǎn)成ASCII碼 在計(jì)算機(jī)游戲世界中，鍵盤的使用頻率非常高，比如上、下、左、右在游戲中通常稱為方向的控制鍵，這些控制動(dòng)作可以使用KeyDown和KeyUp事件實(shí)現(xiàn)。 鍵盤KeyDown，KeyUp事件的第2個(gè)自變量e為KeyEventArgs類型，這個(gè)自變量的屬性可以用來(lái)取得相關(guān)的事件信息。 4.1.2、KeyDown與KeyUp事件4.1.2、KeyDown與KeyUp事件屬性說(shuō) 明Handled設(shè)置是否不響應(yīng)按鍵操作：e.

13、Handled=True：不響應(yīng)按鍵操作。例如：焦點(diǎn)在文本框中由鍵盤所輸入的數(shù)據(jù)，并不會(huì)顯示在文本框中e.Handled=False：響應(yīng)按鍵操作。例如：在文本框中由鍵盤所輸入的數(shù)據(jù)，會(huì)顯示在文本框中Alt判斷是否按下Alt鍵Control判斷是否按下Control鍵KeyCode可以取得鍵代碼。使用說(shuō)明如下：鍵代碼是屬于Keys類型的列舉常量，列舉常量包括：Key.Left（）、Keys.A(A鍵)、Keys.F1（F1鍵），其他一次類推若想知道鍵代碼的意義，可使用e.KeyCode.ToString()語(yǔ)句來(lái)完成。例如：按下鍵，則e.KeyCode.ToString()會(huì)顯示Right，其他依次類推KeyValue可以取得鍵代碼Shift判斷有否按下Shift【例7.11】過(guò)街老鼠的游戲。任務(wù)描述： 窗體上有一只朝四面隨機(jī)移動(dòng)的老鼠，窗體上還有一只靜止的錘子，可以由鍵盤控制上下左右移動(dòng)，當(dāng)錘子移動(dòng)打到老鼠時(shí)，程序執(zhí)行完畢。5 多重窗體 5.1一個(gè)多窗體程序示例【例7.11】 5.2 多重窗體使用方法 簡(jiǎn)單的VB.NET應(yīng)用程序通常只包括一個(gè)窗體，稱為單窗體程序。在實(shí)際應(yīng)用中，特別是對(duì)于復(fù)雜的應(yīng)用程序，單一窗體往往不能滿足需要，必須通過(guò)多窗體來(lái)實(shí)現(xiàn)。 1、添加窗體2、設(shè)置啟動(dòng)窗體3、窗體實(shí)例化和顯示4 重要方法和關(guān)鍵字(1)Show