《Visual Basic程序設(shè)計(jì)簡明教程》課件第8章

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

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

文件描述|文件類型

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

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

2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》19例8.1

設(shè)計(jì)一個菜單

一個菜單的菜單標(biāo)題是“文件”，其中有“打開”和“另存為”兩個菜單項(xiàng)；另一個菜單的菜單標(biāo)題是“系統(tǒng)”，其中有“顏色”和“退出”兩個菜單項(xiàng)。

2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》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程序設(shè)計(jì)簡明教程》218.2菜單——彈出式菜單彈出式菜單是獨(dú)立于菜單欄而顯示在窗體上的浮動菜單，又稱為快捷菜單。在程序中至少含有一個菜單項(xiàng)的菜單都可以作為彈出式菜單，其在窗體上顯示的位置可以變化，具有較大的靈活性。設(shè)計(jì)時應(yīng)把菜單的Visible屬性值設(shè)置為False，而菜單項(xiàng)的Visible屬性值仍然設(shè)置為True。程序運(yùn)行時并不會自動顯示彈出式菜單，而是需要調(diào)用PopupMenu方法，其格式是：

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

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

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

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

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

Label1.Caption=Form2.Text1.Text2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》28例8.2

設(shè)計(jì)簡單的多窗體程序

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

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

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

EndSubPrivateSubCommand1_Click()Me.Hide'隱藏窗體Form2Form1.Show'顯示窗體Form1EndSub窗體Form2：2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》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程序設(shè)計(jì)簡明教程》318.4ActiveX控件ActiveX控件是一段可以重復(fù)使用的程序代碼和數(shù)據(jù)，其中封裝了很多常用的功能，例如通用對話框、進(jìn)度條和選項(xiàng)卡等等。在“工程”菜單中選擇“部件”命令，打開“部件”對話框。然后在該對話框的“控件”選項(xiàng)卡中，選擇要添加的控件所在的部件，單擊“確定”按鈕，即可在工具箱中添加相應(yīng)的ActiveX控件。2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》328.4ActiveX控件——進(jìn)度條進(jìn)度條（ProgressBar）控件位于MicrosoftWindowsCommonControls6.0部件中。進(jìn)度條控件常用于觀察一個耗時較長的操作所完成的進(jìn)度，通過從左至右地用一些矩形塊填充進(jìn)度條的形式，直觀地描述當(dāng)前操作完成的程度。如果進(jìn)度條被填滿了矩形塊，就表示操作已經(jīng)完成。在工具箱中表示為：2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》33進(jìn)度條控件的屬性頁2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》34進(jìn)度條的常用屬性屬性作用Name設(shè)置進(jìn)度條的對象名，程序第一個進(jìn)度條控件的默認(rèn)對象名是ProgressBar1Max設(shè)置進(jìn)度條的上界Min設(shè)置進(jìn)度條的下界Value設(shè)置進(jìn)度條的當(dāng)前值2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》358.4ActiveX控件——選項(xiàng)卡選項(xiàng)卡（SSTab）控件位于MicrosoftTabbedDialogControl6.0部件中。SSTab控件擁有多個選項(xiàng)卡，每一個選項(xiàng)卡都可以象框架一樣，作為其他控件的容器。某時刻只有一個選項(xiàng)卡處于活動狀態(tài)并顯示，其余的選項(xiàng)卡則被隱藏。在工具箱中表示為：2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》36選項(xiàng)卡控件的屬性頁2023/12/13《VisualBasic程序設(shè)計(jì)簡明教程》37選項(xiàng)卡的常用屬性屬性作用Name

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

設(shè)置列表視圖的對象名，程序第一個列表視圖控件的默認(rèn)對象名是ListView1Sorted確定項(xiàng)目是否自動排序SortKey確定項(xiàng)目依據(jù)哪一列進(jìn)行排序SortOrder

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

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