【正文】 例 字體對話框的使用計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第二節(jié) 對話框設(shè)計6. “打印打印 ”對話框?qū)υ捒蛲ㄟ^通過 “打印打印 ”對話框，用戶可以選擇打印機(jī)、打印范圍和份數(shù)。計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第二節(jié) 對話框設(shè)計7. 通用對話框應(yīng)用實(shí)例通用對話框應(yīng)用實(shí)例設(shè)計如圖所示的應(yīng)用程序。單擊“打印打印 ”可以通過可以通過 “打印打印 ”對話框指定打印機(jī)和打印份數(shù)，并將文本框內(nèi)容通對話框指定打印機(jī)和打印份數(shù)，并將文本框內(nèi)容通過打印機(jī)輸出。1) 執(zhí)行 “工具 ”菜單里的 “菜單編輯器 ”命令2) 在對象窗口空白處右擊，彈出的快捷菜單中選擇 “菜單編輯器 ”命令計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)應(yīng)用實(shí)例 ：建立一個有菜單功能的文本編輯器。[對象 .]PopupMenu 菜單名 , 標(biāo)志 , x, y標(biāo)志，表示彈出的位置和觸發(fā)的鍵 (見教材 P222 表 86) 例題Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu EditMenu, vbPopupMenuCenterAlignEnd Sub第三節(jié) 菜單設(shè)計 下拉式菜單和彈出式菜單都是在菜單編輯器中設(shè)計的，區(qū)別在于下拉式菜單位于窗口頂部、內(nèi)容固定，而彈出式菜單出現(xiàn)在鼠標(biāo)右擊的位置、內(nèi)容可以根據(jù)用戶意圖的不同（例如在表格中右擊、在段落上右擊、在圖片上右擊等）而變化，因此彈出式菜單又稱為 “智能菜單 ”。 當(dāng)在窗體啟動前需要預(yù)加載某些內(nèi)容或者需要用戶做出某些決策時就可以通過 Sub Main( )過程啟動。l通過模塊中的公共變量獲取例如，將窗體 Form1中文本框 Text1的內(nèi)容賦值給當(dāng)前窗體 (Form2)中的變量 s。l通過在窗體代碼內(nèi)聲明的公共變量獲取例如，將窗體 Form1中聲明的 公共變量 a的值賦給當(dāng)前窗體 (Form2)中的變量 b，代碼為： b=。如果想從其它窗體啟動， “工程 /屬性 ” “啟動對象 ”。 計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)彈出式菜單 (快捷菜單 )設(shè)計 設(shè)計與普通菜單相同（ 如果不希望菜單出現(xiàn)在窗口的頂部， 可將該菜單 Visible屬性設(shè)為 False）。3. 快捷鍵 (Shortcut) 菜單名沒有快捷鍵4. 復(fù)選 (Checked)檢查框 TRUE 有 ?5. 有效 (Enabled)檢查框、可見 (Visible)檢查框菜單列表框菜單項屬性 操作按鈕第三節(jié) 菜單設(shè)計下拉菜單設(shè)計下拉菜單位于窗體的頂部， 每個菜單項包括分割線在內(nèi)其實(shí)就是一個和命令按鈕類似的控件， 擁有自己的名稱 (Name)、標(biāo)題 (Caption)等屬性 ，支持相應(yīng)的 事件 和 方法 。單擊 “字字體體 ”可以通過可以通過 “字體字體 ”對話框設(shè)置字體格式，并將結(jié)果應(yīng)用于文本框中。3）） Copies屬性屬性返回用戶指定的打印份數(shù)。cdlCFEffects H100 顯示刪除線和下劃線檢查框以及顏色組合框 (不能單獨(dú)使用 )說明： 默認(rèn)情況下，打開 “字體 ”對話框時除 FontName外所有屬性都有初始值。計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第二節(jié) 對話框設(shè)計4. “顏色顏色 ”對話框?qū)υ捒? 例子例子“顏色顏色 ”對話框提供了讓用戶通過鼠標(biāo)點(diǎn)擊就可以選擇相應(yīng)顏色的功能對話框提供了讓用戶通過鼠標(biāo)點(diǎn)擊就可以選擇相應(yīng)顏色的功能，如圖所示，并返回用戶的選擇結(jié)果。用戶在通用對話框中選取的文件的全路徑?？丶粯樱摽丶\(yùn)行時不可見。應(yīng)用程序標(biāo)準(zhǔn)格式對話框。該控件在運(yùn)行時不可見。當(dāng)滾動框位于滾動條的頂端時，文本框中顯示 8000米；當(dāng)位于底端時顯示 0米，其他位置時，顯示其相對于底端的值（如圖所示），程序中不可以使用任何變量。 2）） Change 無論什么原因只要改變滾動條的無論什么原因只要改變滾動條的 Value值就會觸發(fā)值就會觸發(fā) Change事件。 注意：注意： 不能將不能將 Value的值設(shè)置在的值設(shè)置在 Max和和 Min范圍之外的值。兩端各有一個箭頭，中間有一個滑塊。按鈕時將用戶的選擇結(jié)果輸出到窗體上，如圖所示。屬性。左側(cè)列表框中的條目按照添加的先后順序排列。是刪除所有的條目。為第一項。復(fù)選框形式，如圖所示。 該屬性是布爾型數(shù)組，每個元素值表示對應(yīng)條目目前是否被選中。 1—Simple 簡單多選。 最后一個條目的編號為最后一個條目的編號為 ListCount1計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第一節(jié) 常用窗體控件 5）） Sorted 設(shè)置程序運(yùn)行時列表框內(nèi)的條目是否按照字符順序升序排列顯示，設(shè)置程序運(yùn)行時列表框內(nèi)的條目是否按照字符順序升序排列顯示，只能在設(shè)計模式下設(shè)置。圖中第一項開始。通過該屬性可以知用戶。 圖中圖中 “兔子兔子 ”。選擇。但 很少用。 2）） TabsPerRow 設(shè)置每行可以顯示的選項卡個數(shù)，下圖中為二。但 幾乎沒有應(yīng)用。一個分組控件內(nèi)的所有單選按鈕為一組，對它們的操作不會影響該分組控件以外的單選按鈕，其次每個分組們的操作不會影響該分組控件以外的單選按鈕，其次每個分組控件本身就是一個容器，可以在這些分組控件上放置其它控件控件本身就是一個容器，可以在這些分組控件上放置其它控件，如單選鈕、文本框等，這樣：，如單選鈕、文本框等，這樣：第一：不同分組控件中的對象相互獨(dú)立。2) 選定所需選定所需 ActiveX控件左邊的復(fù)選框。 計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第一節(jié) 常用窗體控件Visual Basic中控件的種類中控件的種類 (內(nèi)部控件內(nèi)部控件 ) 啟動啟動 VB后，自動在工具箱中列出的后，自動在工具箱中列出的 20個控件。擴(kuò)展名為和第三方提供，可重復(fù)使用的代碼和數(shù)據(jù)。該控件就添于工具箱中。顯示或隱藏操作。通過選擇藥品和病癥，在文本框中顯示正確的信息。該屬性可以開始。）進(jìn)入任意其它選項卡時，即時計算合計金額。用戶只能從給定的候選項中選擇，不能添加和交互的目的。以獲得用戶的選擇結(jié)果。計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥科大學(xué)第一節(jié) 常用窗體控件 3）） List 設(shè)置列表框中各個條目的內(nèi)容。通過該屬性可以在運(yùn)行模式下修改某個條目的內(nèi)容。（按照添加的順序顯示）。擴(kuò)展多選。 8）） SelCount 當(dāng)當(dāng) MultiSelect屬性為屬性為 1(Simple)或或 2(Extended)時，用于返回列表框時，用于返回列表框中目前被選中條目的個數(shù)。 語法格式為：語法格式為：對象對象 .AddItem Item [,Index] Item：必須是字符串表達(dá)式，是新增條目的具體內(nèi)容。 語法格式為：語法格式為：對象對象 .RemoveItem Index Index：被刪除條目的編號。一般 用戶通過列表用戶通過列表框和組合框選擇，完畢單擊某按鈕時才根據(jù)選擇結(jié)果執(zhí)行相應(yīng)操作。計算機(jī)程序設(shè)計 (第二版 )—— 沈陽藥