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

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

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

4、um 3）Value【例7.3】設計一個倒計時程序。 2、菜單設計 在Windows環境中，幾乎所有的應用軟件都通過菜單來實現各種操作。在VB.NET中，命令選項比較多的時候，使用菜單會比較方便。2.1 簡單菜單設計 設計如圖所示菜單，能夠對文本框中的文字進行簡單的編輯操作（“復制”，“剪切”，“粘貼”）。 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 菜單設計 為了便于設計菜單，VB.NET提供了MenuStrip和ConTextMenuStrip兩個控件，分別用來設計主菜單和彈出式菜單。 MenuStrip和ContextMenulStrip控件出現在窗體下專用面板中，它們是非用戶界面控件。 2.2.1、重要屬性 菜單項除了Name， Visible， Enabled等屬性之外，還具有下列重要屬性。Text 若菜單項需要熱鍵，則在熱鍵字符之前加一個“&”符號。若菜單項是分隔符，則應輸入“-”(減號)。2.2.1、重要屬性ShortCutKeys：用來設置菜單項的快捷鍵。 CheckedBoolean類型

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

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

9、事件MouseEnter鼠標光標進入控件對象時會觸發此事件MouseMove鼠標光標進入控件對象時會觸發此事件MouseHover鼠標光標停在控件對象上不動時會觸發此事件MouseDown鼠標光標在控件上并按下鼠標按鍵時會觸發此事件MouseUp鼠標光標在控件對象上放開鼠標按鍵時會觸發此事件MouseLeave鼠標光標離開控件對象時會觸發此事件屬 性說 明（可取值）e.Button以下常量的名稱空間為Windows.Forms：MouseButtons.None：表示沒有按下鼠標任何鍵MouseButtons.Left：表示按下鼠標左鍵MouseButtons.Right：表示按下鼠標右鍵Mo

10、useButtons.Middle：表示按下鼠標中間鍵e.Clicks取得按下并放開鼠標鍵的次數e.x取得鼠標在對象上的x坐標e.y取得鼠標在對象上的y坐標4、鍵盤事件 【例7.9】編寫一個程序，當按下Alt+F3組合鍵時，彈出如圖所示歡迎窗口。 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事件 對焦點所在的對象，用戶的鍵盤按鍵將產生一個KeyPress事件，編程者可以通過對KeyPress事件的過程處理進行編制程序代碼。 當控件（對象）擁有焦點并按下鍵盤時，會觸動KeyPress事件。此事件只能響應按鍵操作，無法知道知道按鍵是否被按下或放開。 屬 性說 明Handled設置是否響應按鍵操作e.Handled=True:不響應按鍵，例如：焦點在文本框中由鍵盤所輸入的數據，并不會顯示在文本框中e.Handle=False:響應按鍵操作。例如：在文本框中由鍵盤所輸入的數據，會顯示在文本框中KeyChar取得對應的

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

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