用戶界面設計課件

1、第7章 用戶界面設計 用戶界面設計7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用第第7章章 用戶界面設計用戶界面設計 7.1 常用標準控件常用標準控件 7.2 菜單設計菜單設計 7.3 通用對話框通用對話框 7.4 工具欄工具欄7.5 綜合應用綜合應用 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.1 常用標準控件常用標準控件7.1.1 單選按鈕、復選框和框架單選按鈕、復選框和框架7.1.2 列表框和組合框列表框和組合框7.1.3 滾動條滾動條7.

2、1.4 定時器定時器7.1.5 圖片框和圖像框圖片框和圖像框7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.1.1 單選按鈕、復選框和框架單選按鈕、復選框和框架1單選按鈕2復選框 3框架7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1單選按鈕單選按鈕也稱為選擇按鈕，一般都是成組出現(xiàn)，一組單選按鈕控件可以提供一組彼此互相排斥的選項，實現(xiàn)一種“單項選擇”的功能。單選按鈕的常用事件為Click。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通

3、用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用單選按鈕常用屬性（1） Caption屬性。用于設置單選按鈕上顯示的標題。 Alignment屬性。用于設置單選按鈕標題的對齊方式，可以在設計時設置，也可以在運行期間設置。其取值0（默認值）表示控件鈕在左邊，標題顯示在右邊；其取值1表示控件鈕在右邊，標題顯示在左邊。 Value 屬性。默認屬性，其值為邏輯類型，表示單選按鈕的狀態(tài)，可以在設計時設置，也可以在運行期間設置。其取值True表示單選鈕被選定；其取值False（默認值）表示單選鈕未被選定。 Style 屬性。用來指定單選按鈕的顯示方式，用于改善視覺效果。其取值0（默認值）表示標準

4、方式 ；其取值1表示圖形方式。當該屬性設置為1（Graphical）時，可以在Picture、DownPicture和Disabled Picture中分別設置不同的圖標或位圖，用三種不同的圖形分別表示未選定、選定和禁止選擇。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用單選按鈕常用屬性（2） Picture屬性。用來返回或設置未選定控件時的圖片?？梢栽谠O計時設置，也可以在運行期間通過LoadPicture函數(shù)設置。如果Caption屬性有值，則同時顯示圖片和文字；如果圖片太大，則自動剪裁。 DownPicture屬性。用

5、來返回或設置選定控件時的圖片。如果該屬性為空，則按鈕被按下時，只顯示Picture屬性指定的圖片；如果Picture屬性和Disabled Picture屬性為空，則只顯示文字。 Disabled Picture屬性。用來返回或設置禁止選擇時的圖片，即控件的Enabled屬性為False時控件的圖片。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.1 設計一個窗體，模擬單選題測試。 Private Sub Command1_Click() If Option2.Value=True Then MsgBox 恭喜，你答對

6、了 Else MsgBox 真遺憾，你選錯了 End IfEnd SubPrivate Sub Form_Load() Option1.Value=False Option2.Value=False Option3.Value=False Option4.Value=FalseEnd Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用2復選框復選框主要用于對某種或幾種狀態(tài)進行開關選擇。復選框列出可供用戶選擇的選項，用戶根據(jù)需要選定其中的一項或多項。復選框的常用屬性： Caption屬性。Caption屬性是用來設置復選

7、框上顯示的文本。 Value屬性。Value屬性是默認屬性，其值為整型，表示復選框的狀態(tài)。其取值0 vbUnchecked表示未被選定，是默認值；其取值1 vbChecked表示被選定；其取值2 vbGrayed表示灰色，禁止用戶選擇。 復選框的常用事件為Click。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.2 設計一個窗體，模擬多項選擇題測試。 Private Sub Command1_Click() If Check1.Value=1 And Check3.Value=1 And Check2.Value=0

8、 And _ Check4.Value=0 Then MsgBox 恭喜，你選對了！ Else MsgBox 很遺憾，你選錯了！ End IfEnd Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用3框架框架是一個容器控件，用于將屏幕上的對象分組。主要用于單選按鈕分組。在窗體上創(chuàng)建框架及其內(nèi)部控件時，必須先建立框架，然后在其中建立各種控件。 框架的常用屬性： Caption屬性。用來設置框架上的標題名稱。如果Caption為空字符，則框架為封閉的矩形框，但框架內(nèi)的控件仍然可以被視為一組，而不是單獨的控件。 Enable

9、d屬性。Enabled屬性為False：標題呈灰色，表示框架內(nèi)的所有對象均被屏蔽，不允許對框架內(nèi)的對象進行操作。 Visible屬性。Visible屬性設為False，表示在程序執(zhí)行期間，框架及其內(nèi)部所有控件全部被隱藏起來。也就是說，對框架的操作也是對其內(nèi)部的控件的操作。其取值為True，表示框架及其內(nèi)部控件可見。框架內(nèi)的所有可見控件將隨框架一起移動、顯示、消失和屏蔽。框架可以響應Click和DblClick事件 。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用單選按鈕、復選框單擊事件示例7.1常用標準控件常用標準控件7.

10、2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.3 設計用三組框架顯示學生個人信息窗體。Private Sub Command1_Click() Dim str As String str=Text1.Text & , If Option1.Value=True Then str=str & Option1.Caption & , Else str=str & Option2.Caption & , End If If Option3.Value=True Then str=str & Option3.C

11、aption & , Else str=str & Option4.Caption & , End If str=str & vbCrLf & Frame3.Caption & : If Check1.Value=1 Then str=str & Check1.Caption & If Check2.Value=1 Then str=str & Check2.Caption & If Check3.Value=1 Then str=str & Check3.Caption & If Check4.V

12、alue=1 Then str=str & Check4.Caption & If Check5.Value=1 Then str=str & Check5.Caption & If Check6.Value=1 Then str=str & Check6.Caption & MsgBox str, , 學生個人信息End Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.1.2 列表框和組合框列表框和組合框1列表框2組合框7.1常用標準控件常用標準控件7.2菜單設計菜

13、單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1列表框?qū)⒁幌盗械倪x項組合成一個列表，供用戶選擇。在列表框中放入若干個項的名字，用戶可以通過單擊某一項或多項來選擇自己所需要的項目。用戶可以選擇其中的選項，但不能向列表清單中輸入項目。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框的常用屬性列表框的常用屬性 （1） List屬性。一個字符串數(shù)組，用來保存列表框中的各個數(shù)據(jù)項內(nèi)容。 List數(shù)組的下標從0開始，即List(0)保存表中的第一個數(shù)據(jù)項的內(nèi)容。List(1)保存第二個數(shù)據(jù)項的內(nèi)容，以此類

14、推，List(ListCount-1)保存表中的最后一個數(shù)據(jù)項的內(nèi)容。設置list屬性：列表框名.List(索引號)=項目內(nèi)容訪問list屬性：變量名=列表框名.List(索引號) 或 print列表框名.List(索引號) ListCount屬性。ListCount屬性與List屬性一起用，表示列表框中有多少列表項。該屬性只能在運行狀態(tài)訪問。ListCount-1是最后一個列表項的下標。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框的常用屬性列表框的常用屬性 （2） ListIndex屬性。判斷列表框中當前被選中的

15、項目的序號。序號也是自0開始，第一個項目的序號為0，第二個項目的序號為1，以此類推。如果Listindex屬性值為-1，則表明沒有項目被選中。該屬性只能在運行狀態(tài)訪問。 Column屬性。當列表框的選擇項數(shù)超過列表框所能容納的范圍時，將設置列表框的垂直滾動條或水平滾動條。屬性值n是正整數(shù)，可以有兩種情況：0（默認值）表示項目以一列顯示，項目多時自動添加垂直滾動條；n=1表示項目以n列顯示，但滾動條出現(xiàn)時是水平的。該屬性只能在設計狀態(tài)設置。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框的常用屬性列表框的常用屬性 （3）

16、 Selected屬性。用于返回或設置列表框中列表項的選擇狀態(tài)。只能在運行中設置或引用。Selected屬性是一個邏輯數(shù)組，表示對應的項在程序運行期間是否被選中。例如，Selected(0)的值為True表示第一項被選中，為False表示未被選中。 Sorted屬性。決定列表框中項目在程序運行期間是否按字母順序排列顯示。Sorted屬性只能在設計狀態(tài)設置。如果Sorted為True，則項目按字母順序排列顯示；如果Sorted為False，則項目按加入的先后順序排列顯示。 Text屬性。默認屬性，只能在運行狀態(tài)中設置或引用。Text屬性為字符串，保存了列表框中當前被選中條目的文字。List(Li

17、stIndex)等于Text。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框的常用屬性列表框的常用屬性 （3） MultiSelect屬性。決定列表框是否支持多選。該屬性有以下三種狀態(tài)。0None（默認值）：禁止多項選擇，只能選擇一個條目。1Simple：簡單多項選擇，用鼠標單擊或按空格鍵表示選定或取消選定一個選擇項。2Extended：擴展多項選擇，按住Ctrl鍵同時用鼠標單擊，表示選定或取消選定一個選擇項；按住Shift鍵同時單擊鼠標，或者按住Shift鍵并且移動光標鍵，就可以從前一個選定的項擴展選擇到當前選擇項

18、，即選定多個連續(xù)項。 SelCount屬性。表明列表框中當前被選中的條目的總數(shù)。如果沒有任何條目被選中，則該屬性值為0。該屬性在程序運行時只讀，設計時不可用。 Style屬性。決定列表框樣式，其取值0（默認值）表示只顯示列表項文本；其取值1表示列表項文本前帶復選框。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框常用事件和方法列表框常用事件和方法 （1） AddItem方法。向列表框當中添加新條目。其形式： List1.AddItem 字符串表達式 ,Index 說明：使用該方法在窗體的Load事件過程中對列表框添加

19、初始條目。字符串表達式是將要加入列表框的項目。Index決定新增項目在列表框中的位置。如果Index省略，則新增項目將添加在最后。對于第一個項目，Index為0。Index不能比現(xiàn)有條目數(shù)大，否則會出現(xiàn)錯誤。例如，在列表框的第二項位置插入一新列表項，內(nèi)容為“C語言程序設計”，格式如下： List1.AddItem C語言程序設計,17.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用列表框常用事件和方法列表框常用事件和方法 （2） RemoveItem方法。從列表框中刪除一個項目。其形式： List1.RemoveItem in

20、dex說明：Index是被刪除項目在列表框或組合框中的位置。對于第一個元素，Index為0。例如，刪除列表框的第二項的格式如下： List1. RemoveItem 1 Clear方法。清除列表框當中所有現(xiàn)有條目。其形式： List1.Clear說明：對象可以是列表框、組合框或剪貼板，即Clear方法適用于列表框、組合框和剪貼板。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.4 設計窗體，實現(xiàn)學生選課Private Sub Command3_Click() For i=List2.ListCount-1 To 0

21、Step -1 If List2.Selected(i)=True Then List1.AddItem List2.List(i) List2.RemoveItem i End If Next iEnd SubPrivate Sub Command1_Click() For i=List1.ListCount-1 To 0 Step -1 If List1.Selected(i)=True Then List2.AddItem List1.List(i) List1.RemoveItem i End If Next iEnd SubPrivate Sub Command2_Click() F

22、or i=0 To List1.ListCount-1 List2.AddItem List1.List(i) Next i List1.ClearEnd Sub Private Sub Command4_Click() For i=0 To List2.ListCount-1 List1.AddItem List2.List(i) Next i List2.ClearEnd Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用2組合框一種組合列表框和文本框的特性而成的控件，即組合框是一種獨立的控件，但它兼有列表框和文本

23、框的功能。它可以像列表框一樣，讓用戶通過鼠標選擇所需要的項目；也可以像文本框一樣，用鍵入的方式輸入項目。組合框的默認名稱和標題為ComboX（X為l，2，3，）。組合框的屬性、方法和事件與列表框基本相同。一般不針對組合框的事件進行單獨編程。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用組合框的常用屬性 Style屬性。取值為0，1，2，它決定了組合框三種不同的類型，分別為下拉式組合框、簡單組合框和下拉式列表框。下拉式組合框（默認值）“顯示在屏幕上的僅是文本編輯框和一個下拉箭頭。執(zhí)行時，用戶可用鍵盤直接在文本框區(qū)域鍵入文本內(nèi)

24、容，也可用鼠標單擊右邊的下拉箭頭，打開列表框供用戶選擇，選中的內(nèi)容顯示在文本框上。 簡單組合框：列出所有項目供用戶選擇，右邊沒有下拉箭頭，所列項目不能收起，與文本編輯框一起顯示在屏幕上。用戶可以在文本框中輸入列表框中沒有的選項。下拉式列表框：類似下拉式組合框，但不能輸入不在列表框里的內(nèi)容。 Text屬性。用于獲取當前選中的項目值。組合框在運行時Text屬性與最后文本框中顯示的文本相對應。組合框的其他屬性與列表框和文本框的大部分屬性相同。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.5 設計窗體，用文本框顯示學生所在學

25、院、所學專業(yè)和班級 Private Sub Command1_Click() Text1.Text=Text1.Text & Combo1.Text & 學院 & Combo2.Text & _ 專業(yè) & Combo3.Text & 班學生End SubPrivate Sub Combo1_Click() Combo2.Clear Select Case Combo1.Text Case 計算機科學與技術 Combo2.AddItem 計算機科學 Combo2.AddItem 網(wǎng)絡工程 Combo2.AddItem 軟件工程 Combo2.Add

26、Item 計算機組成 Case 信息科學與技術 Combo2.AddItem 測控技術與儀器 Combo2.AddItem 自動化與儀表 Combo2.AddItem 電氣工程及其自動化 Case 化學工程與技術 Combo2.AddItem 化學工程 Combo2.AddItem 安全工程 Combo2.AddItem 制藥工程 Case 環(huán)境生物工程與技術 Combo2.AddItem 生物工程 Combo2.AddItem 環(huán)境工程 End SelectEnd Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.

27、1.3 滾動條滾動條通常用來附在窗口上幫助觀察數(shù)據(jù)或確定位置，也可用來作為數(shù)據(jù)輸入的工具。VB 6.0為用戶提供兩種滾動條，水平滾動條和垂直滾動條。水平滾動條和垂直滾動條的默認名稱分別為HScrollX和VScrollX（X為1，2，3，）。滾動條的值均以整數(shù)表示，其取值范圍為-3276832767。滾動條最小值和最大值分別在其的左、右端點或上、下端點，其值分別賦給屬性Min和Max。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用滾動條的常用屬性 Max屬性，設置滾動塊位于水平滾動條最右側(cè)或者垂直滾動條最低端時的值。默認值

28、是32767。 Min屬性，設置滾動塊位于水平滾動條最左側(cè)或者垂直滾動條最高端時的值，默認值是0。 Value屬性，用于設置或返回滾動條當前代表的值。對應于滾動塊在滾動條中的位置，其值總在Min和Max之間。無論單擊箭頭、單擊空白區(qū)域還是拖動滾動滑塊，都會改變這個屬性值。LargeChange和SmallChange屬性。LargeChange指定用戶在滾動框的空白區(qū)域內(nèi)單擊時，滾動條值的改變量。SmallChange指定用戶在滾動條兩端的滾動按鈕時，滾動條值的改變量，通常SmallChange=1。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具

29、欄7.5綜合應用綜合應用滾動條常用事件和方法 Change事件。釋放滾動塊或單擊滾動空白區(qū)域或單擊滾動條按鈕或通過代碼改變Value屬性值時發(fā)生該事件。 Scroll事件。當鼠標在滾動條內(nèi)拖動滑塊時會觸發(fā)Scroll事件。單擊滾動條兩端的箭頭或滾動條空白處均不能觸發(fā)此事件。Scroll事件與Change事件的區(qū)別在于：當滾動條滑塊滾動時，Scroll事件一直發(fā)生，可用于跟蹤滾動條的動態(tài)變化；而Change事件只是在滾動結(jié)束之后才發(fā)生一次，可用來得到滑塊所在的位置值。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.6 設

30、計窗體，用滾動條改變文本框內(nèi)文本字體的大小 Private Sub Form_Load() Dim Size As Integer Size=72 Label4.Caption=Size Text1.FontSize=Size VScroll1.Value=SizeEnd SubPrivate Sub VScroll1_Change() Text1.FontSize=VScroll1.Value Label4.Caption=VScroll1.ValueEnd Sub 思考：如果將Change事件改為Scroll事件，程序運行結(jié)果會怎么變化？7.1常用標準控件常用標準控件7.2菜單設計菜單設計

31、7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.1.4 定時器定時器又稱計時器、時鐘控件，能夠有規(guī)律地以一定的時間間隔觸發(fā)計時器事件（Timer事件）。一個窗體可以使用多個時鐘控件，它們的時間間隔相互獨立。在程序運行階段，時鐘控件不可見。Timer事件是定時器唯一的一個事件。Timer事件是周期性的事情，間隔多長時間產(chǎn)生一次，由控件的Interval屬性指定。當規(guī)定的時間間隔達到時，就會觸發(fā)這個事件。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用定時器的常用屬性 Interval屬性。決定兩個Time

32、r事件之間的時間間隔。時間間隔單位是毫秒，取值范圍在064767 之間（包括這兩個數(shù)值），單位為毫秒（0.001秒），表示計時間隔，最大的時間間隔約為65s。若將Interval屬性設置為0或負數(shù)，則計時器將停止工作。 Enabled屬性。決定定時器是否生效。無論何時，只要時鐘控件的Enabled屬性被設置為True，而且Interval屬性值大于0，則計時器開始工作（以Interval屬性值為間隔，觸發(fā)Timer事件）。通過把Enabled屬性設置為False，可使時鐘控件無效，即計時器停止工作。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具

33、欄7.5綜合應用綜合應用定時器示例Private Sub Form_Load() Form1.AutoRedraw = True Form1.Print timer test Form1.FontSize = 10 Timer1.Interval = 1000 最大時間間隔不超過65秒=65000毫秒End SubPrivate Sub Timer1_Timer() If Form1.FontSize 100 Then fontsize的最大值為2160磅 Form1.FontSize = Form1.FontSize * 2 Else Form1.FontSize = 10 End If C

34、ls Print timer testEnd Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.7 設計窗體，實現(xiàn)鬧鐘的功能。 Sub Command2_Click() hour=00 minute=00End SubSub Command3_Click() EndEnd SubDim hour, minuteSub Command1_Click() hour=Format(Text1.Text, 00) minute=Format(Text2.Text, 00)End SubSub Timer1_Timer()

35、Dim i As Integer Label3.Caption=Time$() If Mid$(Time$, 1, 5)=hour+:+minute Then For i=1 To 100 Beep Next i End IfEnd Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.1.5 圖片框和圖像框圖片框和圖像框1.圖片框圖片框2.圖像框圖像框7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1.圖片框圖片框圖片框用來顯示圖片和圖形。顯示以下幾

36、種格式的圖形：位圖文件（*.bmp）、圖標文件（*.ico）、圖元文件（*.wmf）、增強元文件（.emf）、JPEG文件和GIF文件。當它作為其他控件的容器時，用法與框架控件相同。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用圖片框的常用屬性 Picture屬性。設置控件是否要顯示圖片，可以在屬性窗口靜態(tài)設置，也可以在代碼中動態(tài)設置。若沒有設置Picture屬性值，則圖像框中不會顯示任何圖形。在代碼中設置的格式：.Picture=LoadPicture( )例如：Picture1.picture=Loadpicture

37、(C:Program Files _ Microsoft VisualStudioCommonGraphicsIconsElements _ MOON01.ICO)說明：調(diào)用不帶參數(shù)的LoadPicture( )函數(shù)，將使圖像控件不顯示任何圖像。屬性窗口設置的Picture 屬性，運行時不依賴源文件。而在程序代碼中使用LoadPicture調(diào)入的圖形文件，在運行時要保證函數(shù)的參數(shù)應該包括圖形文件的完整路徑和文件名。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用圖片框的常用屬性 AutoSize屬性。設置是否自動改變圖片框大

38、小以顯示圖片的全部內(nèi)容。AutoSize取值為True時，自動改變圖片框大??；取值為False（默認值）時，則不改變圖片框大小。 Align屬性。設置圖片框在窗體中的顯示方式。取值為0、1、2、3、4。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用圖片框常用事件和方法 圖片框響應的事件較多，有Click、DblClick和Change等。其中，Change事件在改變圖片框的Picture屬性時發(fā)生。在窗體上PictureBox控件與Image控件的使用方法基本相同。相比之下，圖形框比圖像框占用的內(nèi)存多。使用PictureB

39、ox控件的優(yōu)點在于它可以作為 “容器”。 Print方法。在控件中輸出文本和數(shù)據(jù)。其格式：.Print 輸出項列表 Cls方法。清除在圖片框中輸出的內(nèi)容。Cls只能清除窗體或圖片框中由Print方法和繪圖方法（見第8章）顯示的文本信息和圖形，不能清除窗體或圖片框中的控件（如形狀控件等）。利用Picture屬性加載的圖片，應用LoadPicture方法清除。其格式：.Cls7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.8 設計窗體，實現(xiàn)月食效果。Dim i As IntegerPrivate Sub Timer1_Ti

40、mer() i=i+1 Picture1.Picture=LoadPicture(App.Path & MOON0 & i & .ICO) If i=8 Then i=0End Sub7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用2.圖像框圖像框圖像框控件用來裝載圖形文件，使用方法與圖片框類似。圖像框功能單一，不能作為容器，也不支持繪圖方法和打印方法，但顯示圖形較快。 圖像框支持的事件不多，主要有Click、DblClick、MouseDown、MouseUp和MouseMove。圖像框支持的方法也

41、不多，主要有Move方法和Refresh方法。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用圖像框的常用屬性 Picture屬性。指定控件中要顯示的圖片。 Stretch屬性。其值設置為False時，圖像框可自動改變大小以適應其中的圖形（框適應圖片）；其值設置為True時，加載到圖像框的圖形可自動調(diào)整尺寸以適應圖像框的大?。▓D片適應框）。 BorderStyle屬性。決定了圖像框是否有邊框。屬性值為0時，無邊框（默認值）；為1時，有邊框。其中，Name屬性、Left屬性、Top屬性、Width屬性、Height屬性、Vi

42、sible屬性的用法與其他控件的相同。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.9 設計窗體，隨機抽取三個數(shù)字作為中獎號碼。 Private Sub Command1_Click() Timer1.Enabled=True End SubPrivate Sub Command2_Click() Timer1.Enabled=FalseEnd SubPrivate Sub Timer1_Timer() Randomize num1=Int(Rnd*10) Image1.Picture=LoadPicture(App

43、.Path & shuzi & num1 & .jpg) Randomize num2=Int(Rnd*10) Image2.Picture=LoadPicture(App.Path & shuzi & num2 & .jpg) Randomize num3=Int(Rnd*10) Image3.Picture=LoadPicture(App.Path & shuzi & num3 & .jpg)End Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜

44、合應用7.2 菜單設計菜單設計7.2.1 下拉菜單下拉菜單7.2.2 彈出菜單彈出菜單7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用下拉式菜單結(jié)構7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1菜單編輯器打開菜單編輯器方法：（1）在設計模式下，執(zhí)行“工具”菜單中的“菜單編輯器”命令。（2）使用快捷鍵Ctrl+E。（3）單擊工具欄中的“菜單編輯器”按鈕。（4）在要建立菜單的窗體上右擊鼠標，在快捷菜單中，單擊“菜單編輯器”命令。 7.1常用標準控件常用標準

45、控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1菜單編輯器用于設置菜單項的各個屬性。用戶只要輸入各屬性的值，就可以創(chuàng)建一個菜單項。每創(chuàng)建一個菜單項，編輯窗口下部的顯示區(qū)中會顯示出來。所有菜單項輸入完畢后，單擊“確定”按鈕。 菜單控件屬性區(qū)菜單控件屬性區(qū) 編輯區(qū)編輯區(qū) 菜單項顯示區(qū)菜單項顯示區(qū) 用來對輸入的菜單項進行簡單的編輯 輸入的菜單項在這里顯示 checkedenabledvisible7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用快捷鍵:按下時會立刻運行一個菜單項。可以為

46、頻繁使用的菜單項指定一個快捷鍵.(頂層菜單不能有快捷鍵。)訪問鍵 ：在“標題標題”文本框中，為菜單鍵入希望在菜單欄上顯示的文本。如果希望某一字符成為該菜單項的訪問鍵，也可以在該字符前面加上一個 (&) 字符。在菜單中，這一字符會自動加上一條下劃線。訪問鍵允許按下 ALT 鍵和訪問鍵來打開一個菜單。一旦菜單打開，通過按下訪問鍵可選取控件。例如，在PowerPoint中，按下 ALT + E 鍵可打開“編輯”菜單，再按 F 鍵可選取“查找”菜單項。按鈕也可用此方法設訪問鍵，單擊ALT+訪問鍵，相當于單擊按鈕。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.

47、4工具欄工具欄7.5綜合應用綜合應用注意n不能為頂層菜單設置復選標志n不能為頂層菜單設置快捷鍵n頂層菜單不可用時，其子菜單不再顯示n菜單標題為“-”（減號），將顯示為分割線n在程序中改變菜單Visible的值可動態(tài)控制菜單的顯示與否。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.10 設計一個窗體，設計一個下拉菜單，實現(xiàn)字體、字號和顏色的設置。 Private Sub mnugreen_Click() Text1.ForeColor=vbGreen mnured.Checked=False mnublue.Check

48、ed=False mnugreen.Checked=TrueEnd Sub Private Sub mnuhelp_Click() MsgBox 本系統(tǒng)是測試版End SubPrivate Sub mnulishu_Click() Text1.FontName=隸書 mnulishu.Checked=True mnukaiti.Checked=False mnuheiti.Checked=FalseEnd SubPrivate Sub mnunew_Click() Text1.Visible=TrueEnd Sub Private Sub mnured_Click() Text1.ForeCo

49、lor=vbRed mnured.Checked=True mnublue.Checked=False mnugreen.Checked=FalseEnd SubPrivate Sub mnusave_Click() MsgBox 你單擊了保存菜單項End Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用2菜單控件數(shù)組在同一菜單上共享相同名稱和事件過程的菜單工程的集合。菜單控件數(shù)組的作用主要有兩個：一是在運行時用于動態(tài)地增刪菜單項，但必須是菜單控件數(shù)組中的成員；假設菜單控件數(shù)組名為mymenuLoad mymenu(

50、n)Unload mymenu(n)二是簡化編程，用一段代碼處理多個菜單項。每個菜單控件數(shù)組元素都有唯一的索引值來標識，該值在菜單編輯器上“Index屬性框”中指定。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用增加新菜單項的方法 在菜單編輯器中設計菜單時，建立一個菜單控件數(shù)組，設置名稱、標題、Index屬性值為0。例如，建立一個名稱為mnu，Index為0的控件數(shù)組元素，設置其Visible屬性為False。 設置一個變量num來保存當前控件數(shù)組元素的位置。 設置變量title來存放添加菜單項的標題。 在需要添加菜單項

51、時，執(zhí)行下面的語句。num=num+1下標加1, 指向下一個數(shù)組元素Load mnu(num)建立新的控件數(shù)組元素mnu(num).Caption=title設置新數(shù)組元素的標題mnu(num).Visible=True使新數(shù)組元素可見菜單控件數(shù)組的各元素在菜單控件列表框中必須是連續(xù)的，而且必須是在同一縮進級上。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用刪除菜單項的方法 選擇要刪除的菜單項，并將其下標存放在變量N中。 從被刪除的菜單項開始，用后面的菜單項覆蓋前面的菜單項。For I=N to num mnu(I).Ca

52、ption= mnu(I+1).CaptionNext I 然后用Unload刪除最后一個菜單項，并將控件數(shù)組的個數(shù)減1。Unload mnu(num)num=num-17.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用例7.11 在上題基礎上設計增加 “mnu”， “mnuzi”控件數(shù)組。Private Sub mnunew_Click() Dim i As Integer Text1.Visible=True If num=0 Then mnuzi(0).Visible=True num=num+1 Load mnuzi(

53、num) mnuzi(num).Caption=斜體End SubPrivate Sub mnuopen_Click() Dim i As Integer mnuspace1.Visible=True mnuspace2.Visible=True num=num+1 i=num Mod 5 If i=0 Then i=5 Load mnu(num) mnu(i).Caption=打開文件 & num mnu(i).Visible=TrueEnd Sub Private Sub mnuzi_Click(Index As Integer) Select Case Index Case 0

54、If mnuzi(Index).Checked=False Then Text1.FontBold=True mnuzi(Index).Checked=True Else Text1.FontBold=False mnuzi(Index).Checked=False End If Case 1 If mnuzi(Index).Checked=False Then Text1.FontItalic=True mnuzi(Index).Checked=True Else Text1.FontItalic=False mnuzi(Index).Checked=False End If End Sel

55、ectEnd Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用7.2.2 彈出菜單彈出菜單首先用菜單編輯器建立菜單。必須把菜單名（即主菜單項）的“可見”屬性設置為False（子菜單項不要設置為False）。然后用PopupMenu方法彈出顯示。PopupMenu方法用來顯示彈出菜單，其格式：對象. PopupMenu ,Flag,X,Y其中，菜單項是必需的，其他參數(shù)是可選的；x，y參數(shù)指定彈出快捷菜單顯示的位置（x，y坐標）。默認使用鼠標的坐標；標志參數(shù)用于進一步定義彈出菜單的位置和性能。 7.1常用標準控件常用標準

56、控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用在例7.10中，將“字體”子菜單改為彈出菜單Private Sub Text1_MouseDown(Button As Integer, Shift As Integer,X As Single, Y As Single) If Button=2 Then Text1.Enabled=False Text1.Enabled=True PopupMenu mnufont End IfEnd Sub 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應

57、用綜合應用7.3 通用對話框通用對話框通用對話框：也稱公共對話框，是VB系統(tǒng)基于Windows的標準對話框界面，創(chuàng)建的六種標準對話框（打開、另存為、顏色、字體、打印機和幫助）。通用對話框（CommonDialog 控件）不是標準的控件，在使用通用對話框前，需要在“工程”菜單中選定“部件”對話框的“控件”選項卡，選中Microsoft Common Dialog Control 6.0選項，單擊“確定”按鈕，則通用對話框添加到工具箱中。 7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用通用對話框的屬性 Action功能屬性。用

58、來決定調(diào)用何種類型的對話框。 DialogTitle（對話框標題）屬性。通用對話框標題屬性。只對“打開”和“另存為”對話框有效。 CancelError屬性。該屬性決定在用戶單擊“取消”按鈕時是否產(chǎn)生錯誤信息。取其值為True時，表示單擊“取消”按鈕，出現(xiàn)錯誤警告；取其值為False（缺?。r，表示單擊“取消”按鈕，不會出現(xiàn)錯誤警告。 Name屬性。設置通用對話框的名稱。 Left和Top屬性。Left和Top屬性表示通用對話框的位置。7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用通用對話框的方法 ShowOpen方法：顯

59、示“打開”對話框。 ShowSave方法：顯示“另存為”對話框。 ShowColor方法：顯示“顏色”對話框。 ShowFont方法：顯示“字體”對話框。 ShowPrinter方法：顯示“打印機”對話框。 ShowHelp方法：顯示“幫助”對話框。CommonDialog1.Action = 1等價于CommonDialog1.ShowOpenCommonDialog1.Action = 2等價于CommonDialog1.Showsave以此類推7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用復習n學習過的容器控件有？n

60、圖片框與圖象框的區(qū)別？Autosize, Stretchn通用對話框可以創(chuàng)建哪幾種對話框？如何創(chuàng)建？7.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用1“打開”對話框Action=1 Private Sub Command1_Click() CommonDialog1.DialogTitle=打開文件 CommonDialog1.Filter= All Files(*.*)|*.*|frm文件|*.frm|vbp文件|*.vbp| CommonDialog1.FilterIndex=2 CommonDialog1.InitDir= d: CommonDialog1.Flags=1 CommonDialog1.Action=1End Sub P1857.1常用標準控件常用標準控件7.2菜單設計菜單設計7.3通用對話框通用對話框7.4工具欄工具欄7.5綜合應用綜合應用2“另存為”對話框 Action=2 Private Sub Command2_C