《Visual Basic程序設計簡明教程》課件第8章

2023/12/13《VisualBasic程序設計簡明教程》18.1對話框對話框是實現Windows應用程序和用戶之間進行交互的常用工具，它既可以向用戶顯示信息，也可以供用戶輸入應用程序所需要的數據。VB提供了通用對話框，幫助用戶完成一些常見操作。除此之外，用戶也可以根據需要自定義對話框。2023/12/13《VisualBasic程序設計簡明教程》28.1對話框——通用對話框通用對話框（CommonDialog）控件提供了一組標準的系統對話框，便于用戶完成打開文件、選擇顏色、選擇字體以及打印等操作。CommonDialog控件并不是VB的標準控件，而是ActiveX控件，使用時需要添加到工具箱中。在“工程”菜單中選擇“部件”命令，然后在“部件”對話框的“控件”選項卡中，選擇“MicrosoftCommonDialogControl6.0”，即可添加通用對話框控件。2023/12/13《VisualBasic程序設計簡明教程》3對CommonDialog控件的屬性設置既可以在屬性窗口中進行，也可以借助于“屬性頁”對話框。用鼠標右鍵單擊在窗體上的CommonDialog控件，然后在彈出的菜單中選擇“屬性”命令，即可打開“屬性頁”對話框。2023/12/13《VisualBasic程序設計簡明教程》4通用對話框的常用屬性屬性作用Name設置通用對話框的對象名DialogTitle設置通用對話框的標題Action設置顯示哪一種類型的通用對話框FileName設置打開或者保存的文件名Filter設置在“打開”對話框或者“另存為”對話框中顯示的文件的類型Color設置選定的顏色Flags設置通用對話框的默認操作2023/12/13《VisualBasic程序設計簡明教程》5說明：（1）程序第一個通用對話框控件的默認對象名是CommonDialog1，依次類推。（2）Action是通用對話框控件最重要的屬性之一，其屬性值有6個。2023/12/13《VisualBasic程序設計簡明教程》6Action屬性值值含義1顯示“打開”對話框2顯示“另存為”對話框3顯示“顏色”對話框4顯示“字體”對話框5顯示“打印”對話框6顯示“幫助”對話框2023/12/13《VisualBasic程序設計簡明教程》7例如使CommonDialog1對象顯示“顏色”對話框，可以寫為：

CommonDialog1.Action=3在“打開”對話框或者“另存為”對話框中，通過FileName屬性可以得到用戶所選擇的文件名。Filter屬性也稱為過濾器，它使得在通用對話框中只顯示指定類型的文件，其屬性值的格式為：

文件描述|文件類型

例如在CommonDialog1對象顯示的通用對話框中，顯示文本文件、Word文件或者所有文件，可以寫為：

CommonDialog1.Filter="Text|*.text|Word|*.Doc|所有文件|*.*"在“顏色”對話框中，通過Color屬性可以得到用戶所選擇的顏色。在顯示“字體”對話框之前，需要先設置Flags屬性值，以確定對話框顯示的字體類型。2023/12/13《VisualBasic程序設計簡明教程》82023/12/13《VisualBasic程序設計簡明教程》9顯示通用對話框的方法方法功能ShowOpen顯示“打開”對話框ShowSave顯示“另存為”對話框ShowColor顯示“顏色”對話框ShowFont顯示“字體”對話框ShowPrinter顯示“打印”對話框ShowHelp顯示“幫助”對話框2023/12/13《VisualBasic程序設計簡明教程》108.1對話框——自定義對話框對話框具有窗體的大部分特性和功能，它實際上是窗體的一種特殊狀態(tài)。對話框與普通的窗體相比，通常沒有控制菜單按鈕、最大化按鈕和最小化按鈕，也不能改變其尺寸。用戶可以通過對窗體進行改造，定制符合自身需要的對話框。2023/12/13《VisualBasic程序設計簡明教程》11對話框窗體屬性設置屬性值含義BorderStyle3固定邊框，尺寸不能改變ControlBoxFalse取消控制菜單按鈕MaxButtonFalse取消最大化按鈕MinButtonFalse取消最小化按鈕返回2023/12/13《VisualBasic程序設計簡明教程》12菜單在Windows應用程序中經常出現，是用戶界面中一個重要的元素。使用菜單可以對程序的功能進行分類，并形成一些命令組，供用戶直觀、方便地訪問。應用程序的菜單一般分為兩種類型，一種是下拉式菜單，另一種是彈出式菜單。8.2菜單2023/12/13《VisualBasic程序設計簡明教程》138.2菜單——下拉式菜單下拉式菜單一般位于窗體的頂部，平時只顯示菜單欄中的菜單標題。當用戶選中菜單標題之后，才會以下拉列表的形式顯示其包含的菜單項。菜單項是菜單的主體，選中其中一個菜單項，就會執(zhí)行一個命令，完成相應的功能。菜單項也可以成為子菜單，即自身又包含了一組菜單項。2023/12/13《VisualBasic程序設計簡明教程》14菜單編輯器選擇“工具”菜單的“菜單編輯器”菜單項，或者在窗體窗口中按下組合鍵Ctrl+E，都可以打開菜單編輯器。2023/12/13《VisualBasic程序設計簡明教程》15說明：菜單編輯器的上部用來設置菜單項的標題、名稱等屬性，選定菜單項的快捷鍵，以及安排協調位置等等。菜單編輯器的中部有7個命令按鈕，其中“↑”和“↓”按鈕用來調整當前菜單項在菜單中的位置，“←”和“→”按鈕則用來調整當前菜單項在菜單中的層次。如果單擊“→”按鈕，就會使當前菜單項向右縮進4格，表示其為子菜單的菜單項?！跋乱粋€”按鈕用于移到下一個菜單項，“插入”按鈕用于在當前菜單項之前插入一個菜單項，“刪除”按鈕用于刪除當前菜單項。菜單編輯器的下部是一個列表框，用來顯示當前窗體的所有菜單和菜單項。2023/12/13《VisualBasic程序設計簡明教程》16菜單項的常用屬性屬性作用Name設置菜單項的對象名Caption設置菜單項的標題Enabled確定菜單項是否有效，默認值是True，表示有效Visible確定菜單項是否可見，默認值是True，表示可見Checked確定菜單項是否有復選標記“√”，默認值是False，表示沒有復選標記Index設置菜單項在控件數組中的下標2023/12/13《VisualBasic程序設計簡明教程》17說明：（1）系統并沒有給出菜單項控件的默認對象名，習慣上用前綴mnu來命名。（2）設置Caption屬性時，如果標題為“-”，就會在菜單中建立一條分隔線。在標題的某個字母前插入一個連接符（&），即可為菜單項設置訪問鍵。打開下拉式菜單之后，當用戶按下訪問鍵時，便可執(zhí)行該菜單項的功能。（3）菜單標題又稱為頂級菜單，當其Enabled或者Visible的屬性值是False時，不僅菜單標題將會失效或者不可見，而且它所包含的所有菜單項也都將會失效或者不可見。2023/12/13《VisualBasic程序設計簡明教程》18創(chuàng)建一個菜單的步驟：（1）打開菜單編輯器，先創(chuàng)建菜單標題。在標題欄和名稱欄分別輸入標題信息和對象名，并做其它必要的屬性設置。（2）單擊“下一個”按鈕，建立菜單項。設置菜單項的屬性之后，單擊“→”按鈕，使它成為菜單標題的菜單項，以后創(chuàng)建的菜單項將自動成為該菜單標題所包含的菜單項。（3）不斷地單擊“下一個”按鈕，為該菜單標題創(chuàng)建全部的菜單項。如果在創(chuàng)建某個菜單項時再次單擊“→”按鈕，將會使上一個菜單項成為子菜單，而當前菜單項則成為子菜單的菜單項。重復上述步驟，并適當調整菜單項在菜單中的層次和位置，就可以創(chuàng)建窗體中所有的菜單。

2023/12/13《VisualBasic程序設計簡明教程》19例8.1

設計一個菜單

一個菜單的菜單標題是“文件”，其中有“打開”和“另存為”兩個菜單項；另一個菜單的菜單標題是“系統”，其中有“顏色”和“退出”兩個菜單項。

2023/12/13《VisualBasic程序設計簡明教程》20說明：PrivateSubmnuOpen_Click()CommonDialog1.Action=1'顯示“打開”對話框

MsgBox("您打開了"&CommonDialog1.FileName&"文件！")

EndSubPrivateSubmnuSave_Click()CommonDialog1.ShowSave'顯示“另存為”對話框

MsgBox("您保存了"&CommonDialog1.FileName&"文件！")EndSubPrivateSubmnuColor_Click()CommonDialog1.Action=3'顯示“顏色”對話框

Form1.BackColor=CommonDialog1.ColorEndSubPrivateSubmnuExit_Click()CallCommand1_ClickEndSubPrivateSubCommand1_Click()EndEndSub2023/12/13《VisualBasic程序設計簡明教程》218.2菜單——彈出式菜單彈出式菜單是獨立于菜單欄而顯示在窗體上的浮動菜單，又稱為快捷菜單。在程序中至少含有一個菜單項的菜單都可以作為彈出式菜單，其在窗體上顯示的位置可以變化，具有較大的靈活性。設計時應把菜單的Visible屬性值設置為False，而菜單項的Visible屬性值仍然設置為True。程序運行時并不會自動顯示彈出式菜單，而是需要調用PopupMenu方法，其格式是：

[對象].PopupMenu菜單名[,flags[,x[,y,…]]]2023/12/13《VisualBasic程序設計簡明教程》22舉例：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenumnuSystemEndIfEndSub返回2023/12/13《VisualBasic程序設計簡明教程》238.3多重窗體——窗體添加和啟動選擇“工程”菜單的“添加窗體”菜單項，打開“添加窗體”對話框。在“添加窗體”對話框的“新建”選項卡中選擇窗體類型，即可創(chuàng)建一個新窗體。如果在“現存”選項卡中進行選擇，將會添加一個已存在的窗體，與其他的程序共享。2023/12/13《VisualBasic程序設計簡明教程》24啟動窗體多窗體程序運行時，首先被執(zhí)行的窗體稱為啟動窗體。系統默認第一個建立的窗體（Form1）是啟動窗體，也可以根據需要設置啟動窗體或者啟動過程。選擇“工程”菜單的“工程屬性”菜單項，打開“工程屬性”對話框。在“工程屬性”對話框的“通用”選項卡中，打開“啟動對象”下拉列表框，選擇一個窗體名或者“SubMain”，即可設置啟動對象。如果選擇了“SubMain”，就表示設置子過程Main為啟動過程。程序運行時將首先執(zhí)行Main過程，然后在該過程中根據情況加載某些窗體。2023/12/13《VisualBasic程序設計簡明教程》25是這樣啟動窗體哦！2023/12/13《VisualBasic程序設計簡明教程》268.3多重窗體——窗體操作使用Load語句進行加載，其格式是：

Load窗體名使用Unload語句卸載一個窗體，其格式是：

Unload窗體名多窗體程序在運行時，某時刻只有一個窗體處于活動狀態(tài)，因此經常需要從某個窗體切換到另一個窗體。例如從Form1切換到Form2，可以在窗體Form1的程序代碼中添加以下語句：

UnloadForm1Form2.Show2023/12/13《VisualBasic程序設計簡明教程》27窗體之間共享數據訪問的一般形式是：窗體名.控件名.屬性例如把窗體Form2中文本框Text1的文本，顯示在窗體Form1的標簽Label1中，可以在窗體Form1的程序代碼中添加一條語句：

Label1.Caption=Form2.Text1.Text2023/12/13《VisualBasic程序設計簡明教程》28例8.2

設計簡單的多窗體程序

除了窗體Form1之外，再添加兩個窗體Form2和Form3。在窗體Form1上創(chuàng)建“時鐘”、“詩詞”和“退出”三個命令按鈕。在窗體Form2上創(chuàng)建一個計時器、一個標簽和一個“返回”命令按鈕，其中計時器的Interval屬性值設置為1000。在窗體Form3上創(chuàng)建一個標簽和一個“返回”命令按鈕。2023/12/13《VisualBasic程序設計簡明教程》29窗體Form1：

PrivateSubCommand1_Click()Form1.Hide'隱藏窗體Form1Form2.Show'顯示窗體Form2EndSubPrivateSubCommand2_Click()Form1.Hide'隱藏窗體Form1Form3.Show'顯示窗體Form3EndSubPrivateSubCommand3_Click()EndEndSub

PrivateSubTimer1_Timer()Label1.FontSize=24Label1.Caption=Time'顯示當前時間

EndSubPrivateSubCommand1_Click()Me.Hide'隱藏窗體Form2Form1.Show'顯示窗體Form1EndSub窗體Form2：2023/12/13《VisualBasic程序設計簡明教程》30窗體Form3PrivateSubForm_Click()DimsAsStrings="登鸛雀樓"&vbCrs=s&"白日依山盡"&vbCrs=s&"黃河入海流"&vbCrs=s&"欲窮千里目"&vbCrs=s&"更上一層樓"Label1.FontSize=24Label1.Caption=sEndSubPrivateSubCommand1_Click()Me.Hide'隱藏窗體Form3Form1.Show'顯示窗體Form1Label1.Caption="請單擊窗體"EndSub返回2023/12/13《VisualBasic程序設計簡明教程》318.4ActiveX控件ActiveX控件是一段可以重復使用的程序代碼和數據，其中封裝了很多常用的功能，例如通用對話框、進度條和選項卡等等。在“工程”菜單中選擇“部件”命令，打開“部件”對話框。然后在該對話框的“控件”選項卡中，選擇要添加的控件所在的部件，單擊“確定”按鈕，即可在工具箱中添加相應的ActiveX控件。2023/12/13《VisualBasic程序設計簡明教程》328.4ActiveX控件——進度條進度條（ProgressBar）控件位于MicrosoftWindowsCommonControls6.0部件中。進度條控件常用于觀察一個耗時較長的操作所完成的進度，通過從左至右地用一些矩形塊填充進度條的形式，直觀地描述當前操作完成的程度。如果進度條被填滿了矩形塊，就表示操作已經完成。在工具箱中表示為：2023/12/13《VisualBasic程序設計簡明教程》33進度條控件的屬性頁2023/12/13《VisualBasic程序設計簡明教程》34進度條的常用屬性屬性作用Name設置進度條的對象名，程序第一個進度條控件的默認對象名是ProgressBar1Max設置進度條的上界Min設置進度條的下界Value設置進度條的當前值2023/12/13《VisualBasic程序設計簡明教程》358.4ActiveX控件——選項卡選項卡（SSTab）控件位于MicrosoftTabbedDialogControl6.0部件中。SSTab控件擁有多個選項卡，每一個選項卡都可以象框架一樣，作為其他控件的容器。某時刻只有一個選項卡處于活動狀態(tài)并顯示，其余的選項卡則被隱藏。在工具箱中表示為：2023/12/13《VisualBasic程序設計簡明教程》36選項卡控件的屬性頁2023/12/13《VisualBasic程序設計簡明教程》37選項卡的常用屬性屬性作用Name

設置選項卡的對象名，程序第一個選項卡控件的默認對象名是SSTab1Caption設置選項卡的標題Tab設置當前活動的選項卡Tabs設置選項卡的總數TabsPerRow設置每一行選項卡的數目Rows確定選項卡的總行數2023/12/13《VisualBasic程序設計簡明教程》388.4ActiveX控件——列表視圖列表視圖（ListView）控件位于MicrosoftWindowsCommonControls6.0部件中。列表視圖能夠以列表的形式，直觀地顯示一組項目。與列表框控件相比，列表視圖控件所顯示的項目不僅可以有多列，而且每一列都能夠擁有自己的列標題。在工具箱中表示為：2023/12/13《VisualBasic程序設計簡明教程》39列表視圖控件的屬性頁2023/12/13《VisualBasic程序設計簡明教程》40列表視圖的常用屬性屬性作用Name

設置列表視圖的對象名，程序第一個列表視圖控件的默認對象名是ListView1Sorted確定項目是否自動排序SortKey確定項目依據哪一列進行排序SortOrder

確定項目是以升序還是降序進行排序，默認值是lvwAscending，表示升序View設置列表視圖的類型ColumnHeaders獲得列表視圖中的列標題對象ListItems獲得列表視圖中的項目對象2023/12/13《VisualBasic程序設計簡明教程》41說明：（1）View屬性值確定了列表視圖中項目的外觀，有標準圖標（lvwIcon）、小圖標（lvwSmallIcon）、列表（lvwList）和報表（lvwReport）等4種類型。（2）ColumnHeaders本身是一個對象，用于管理列表視圖的所有列標題。其Count屬性則確定了列表視圖中列標題的個數，即項目的列數。（3）列表視圖的操作主要是針對其ListItems屬性，即項目對象。ListItems本身也是一個對象，用于管理視圖列表的所有項目。其Count屬性確定了列表視圖中項目的行數，即項目的個數。Item是ListItems的重要屬性，其屬性值是一個數組，每一個元素存放視圖列表的一個項目。Item數組的元素又是一個對象，其SubItems屬性值則是一個字符串數組，每一個元素依次存放相應項目的一個子項目。2023/12/13《VisualBasic程序設計簡明教程》428.4ActiveX控件——樹形視圖樹形視圖（TreeView）控件位于MicrosoftWindowsCommonControls6.0部件中。樹形視圖能夠以樹形結構，組織類似文件目錄這樣的一些具有層次關系的節(jié)點對象（Node），并且以樹形方式直觀地顯示節(jié)點對象的分層列表。在工具箱中表示為：2023/12/13《VisualBasic程序設計簡明教程》43樹形視圖控件的屬性頁2023/12/13《VisualBasic程序設計簡明教程》44樹形視圖的常用屬性屬性作用Name

設置樹形視圖的對象名，程序第一個樹形視圖控件的默認對象名是TreeView1Style設置樹形視圖的樣式Nodes獲得樹形視圖中的節(jié)點對象LineStyle設置節(jié)點之間連線的樣式Sorted確定節(jié)點是否自動排序2023/12/13《VisualBasic程序設計簡明教程》458.4ActiveX控件——Animation控件Animation控件位于Microso