【正文】 工具，合成的顏色顯示在框架內(nèi)的文本框（ Text2）中。當(dāng)完成調(diào)色后，用 “ 設(shè)置字體顏色 ” 按鈕（ Command1設(shè)置）設(shè)置框架下方文本框（ Text1）的文本顏色。 演示程序 滾動條控件 滾動條控件 例 714 在窗體內(nèi)顯示一幅地圖，借助于滾動條瀏覽地圖的各個區(qū)域。運行結(jié)果如圖所示。 演示程序 滾動條控件 滾動條控件 ActiveX控件概述 ActiveX控件是對內(nèi)部控件（工具箱為用戶提供的20種內(nèi)部控件）的擴(kuò)充，它可以支持設(shè)計工具條、選項卡等常用界面，尤其是文件管理、多媒體技術(shù)、數(shù)據(jù)庫技術(shù)的應(yīng)用必須依賴 ActiveX控件才能實現(xiàn)。 ActiveX控件文件的擴(kuò)展名為 .ocx。使用 ActiveX控件之前，必須先使用 “ 工程 ” 菜單的 “ 部件 ” 命令，將其添加到工具箱中。 ActiveX控件 滑動器（ Slider）控件包含一個滑塊和可選擇的刻度標(biāo)記，可以通過拖動滑塊、用鼠標(biāo)單擊滑塊的任意一側(cè)或使用鍵盤的箭頭鍵來移動滑塊。在選擇離散數(shù)值或某個范圍內(nèi)的一組連續(xù)數(shù)值時， Slider控件十分有用。該控件位于 “ Microsoft Windows Common Controls ”部件中。 1．常用屬性 Slider控件和滾動條比較相似，有 Max、 Min、SmallChange、 LargeChang和 Value等相同的屬性。其它常用屬性： ActiveX控件 Slider控件 （ 1）名稱（ Name）： Sliderx， x=1,2,… 。 （ 2） Orientation屬性：決定滑動器是按水平方向放置還是按垂直方向放置。 （ 3） TickStyle屬性：返回或設(shè)置滑塊上的刻度樣式。 （ 4） TickFrequency屬性：返回或設(shè)置 Slider控件刻度標(biāo)記的密度，此密度與其范圍有關(guān)。例如，如果范圍為100，而 TickFrequency屬性設(shè)置為 2，則在范圍中每隔兩個增量設(shè)置一個刻度。 ActiveX控件 Slider控件 ActiveX控件 Slider控件 此外，在 Slider控件的 “ 屬性頁 ” 對話框，可設(shè)置其專門屬性： 2．常用事件 當(dāng)滑塊被移動時， Slider控件將觸發(fā) Scroll事件，而當(dāng) Value屬性值被改變時，將觸發(fā) Chance事件。 例 715 在窗體上放置一個標(biāo)簽和一個滑動器，移動滑動器的滑塊時可以調(diào)整標(biāo)簽標(biāo)題文字的大小，調(diào)整過程中當(dāng)簽標(biāo)標(biāo)題文字超出窗體之外時，滑動器和標(biāo)題文字大小還原。 演示程序 ActiveX控件 Slider控件 ProgressBar控件 在 Windows及其應(yīng)用程序中，當(dāng)執(zhí)行一個耗時較長的操作時通常會用進(jìn)度條顯示事務(wù)處理的進(jìn)程。在 VB中，ProgressBar控件（進(jìn)度條控件）即可用于設(shè)計這樣的進(jìn)度條，該控件位于 “ Microsoft Windows Common Controls ”部件中。 ProgressBar控件。 常用的屬性有 （ 1）名稱（ Name）： ProgressBarx， x=1,2,… 。 （ 2） Max屬性：用于設(shè)置 ProgressBar控件的上界限。 （ 3） Min屬性：用于設(shè)置 ProgressBar控件的下界限。 ActiveX控件 ProgressBar控件 （ 4） Value屬性：在執(zhí)行階段， ProgressBar控件的當(dāng)前值。要顯示某個操作的進(jìn)展情況， Value屬性值將持續(xù)增長，直到達(dá)到了由 Max屬性定義的最大值。 （ 5）在 ProgressBar控件的 “ 屬性頁 ” 對話框，可設(shè)置該控件的專門屬性： ActiveX控件 ProgressBar控件 例 716 設(shè)一個自定義類型數(shù)組 info(3000)，用于存放某單位每個職工的職工號和姓名，其中職工號形如 HD0000i（ i=1,2,3… ），可以在數(shù)組初始化時進(jìn)行設(shè)置。請使用進(jìn)度條提示初始化的進(jìn)度。 演示程序 ActiveX控件 SSTab控件 在程序設(shè)計中，經(jīng)常需要制作具有多個選項卡的對話框， SSTab控件（選項卡控件）就是 VB為用戶制作這種對話框而提供的控件。在 SSTab控件中，所有的選項卡都能夠作為其他控件的容器，但是一次只能有一個選項卡被激活（處于活動狀態(tài)），當(dāng)某個選項卡被激活后，其內(nèi)容被顯示出來，而其余選項卡被隱藏。 SSTab控件在 “ Microsoft Tabbed Dialog Controls ”部件中。 ActiveX控件 SSTab控件 1． SSTab控件常用屬性 （ 1）名稱（ Name）： SSTabx， x=1,2,… 。 （ 2） Style屬性：決定控件上選項卡的樣式，值為 0（默認(rèn)）或 1。 （ 3） Tabs屬性：決定控件上選項卡的總數(shù)，在運行時可以更改 Tabs屬性。 （ 4） TabsPerRow和 Rows屬性：前者決定 SSTab控件中每一行選項卡的數(shù)目，后者決定 SSTab控件中選項卡的行數(shù)。 ActiveX控件 SSTab控件 （ 5） TabOrientation屬性：決定 SSTab控件上的選項卡的位置。選項卡可以出現(xiàn)在控件的頂端（默認(rèn)值）、底部、左邊或右邊。 （ 6） Tab屬性：決定 SSTab控件上的當(dāng)前選項卡。如果 Tab屬性值設(shè)置為 1，則第二個選項卡為當(dāng)前活動的選項卡。 （ 7）在 SSTab控件的 “ 屬性頁 ” 對話框，可設(shè)置該控件的專門屬性。大部分重要屬性都能在 “ 屬性頁 ” 中設(shè)置。 ActiveX控件 SSTab控件 2． SSTab控件常用事件 可以響應(yīng) Click和 DblClick事件。 Click事件是在用戶選定一個選項卡時發(fā)生的事件。 語法格式是： Private Sub Object_Click([Index As Integer], Previoustab As Integer) … （對象上 Click事件的處理代碼） End Sub 其中， Index參數(shù)是控件數(shù)組的下標(biāo)， Previoustab參數(shù)用來標(biāo)識先前活動的選項卡。 ActiveX控件 SSTab控件 例 717 設(shè)某家電企業(yè)召集洗衣機(jī)和空調(diào)器的訂貨會，試?yán)?SSTab控件設(shè)計一個如圖 732所示的家電產(chǎn)品訂購單，當(dāng)用戶切換到 “ 匯總結(jié)果 ” 選項卡時能及時獲得此次訂貨會的訂購總額。 ActiveX控件 多媒體控件 多媒體控件（ MMControl）用于管理媒體控制接口（ Media Control Interface， MCI)設(shè)備，所以也稱為MCI控件。這些設(shè)備包括常規(guī)的多媒體音頻、視頻設(shè)備，如聲卡、 MIDI發(fā)生器、 CDROM驅(qū)動器、音頻播放器、視頻播放器和視頻磁帶錄放器等。 MMControl控件可以用于對這些設(shè)備進(jìn)行常規(guī)的啟動、播放、前進(jìn)、后退、停止等操作。 MMControl控件在窗體上呈現(xiàn)為一系列按鈕，這些按鈕與通常的 CD機(jī)或錄像機(jī)上的按鍵類似。該控件位于 Microsoft Multimedia Control 。 ActiveX控件 多媒體控件 MMControl控件常用的屬性有 （ 1）名稱（ Name）： MMControl x， x=1,2,… 。 （ 2） DeviceType屬性：指定要打開的 MCI設(shè)備的類型。 （ 3） FileName屬性：指定使用 Open命令打開或者使用Save命令保存的文件。如果在運行時要改變 FileName屬性，就必須先關(guān)閉然后再重新打開多媒體控件。 （ 4） Command屬性：指定將要執(zhí)行的操作命令。 （ 5） AutoEnabled屬性：決定多媒體控件是否能夠自動啟動或關(guān)閉控件中的某個按鈕。 ActiveX控件 多媒體控件 （ 6） ButtonEnabled屬性：決定是否啟用或禁用控件中的某個按鈕，取值為 True或 False。 （ 7） From屬性：規(guī)定 Play或 Record命令的起始點，在設(shè)計時該屬性禁用。 （ 8） Length屬性：返回打開的 MCI設(shè)備上的媒體長度。 （ 9） Position屬性：返回打開的 MCI設(shè)備的當(dāng)前位置。 （ 10） hWndDisplay屬性：對于利用窗口顯示輸出結(jié)果的 MCI設(shè)備，該屬性用于為其規(guī)定顯示輸出的窗口。在設(shè)計時該屬性禁用。 （ 11）在 MMControl控件的 “ 屬性頁 ” 對話框，可設(shè)置該控件的專門屬性。 ActiveX控件 多媒體控件 例 718 設(shè)計一個窗體，使用多媒體控件播放音頻文件及在指定的圖片框中播放視頻文件。窗體的設(shè)計界面和運行界面如圖所示。 ActiveX控件 1.(4)(5)(6)(7)(8) 2.(1)(3)(7) 圖形操作 第 8章 本章要點 Visual Basic的坐標(biāo)系統(tǒng) 繪圖屬性 繪圖方法 圖形處理與應(yīng)用 Visual Basic的坐標(biāo)系統(tǒng) 在 Visual Basic中，每個對象定位于存放它的容器內(nèi)，對象定位都要使用容器的坐標(biāo)系。例如，窗體處于屏幕（ Screen）內(nèi)，屏幕是窗體的容器。在窗體內(nèi)繪制控件，窗體就是控件的容器。如果在圖片框控件內(nèi)繪制圖形，該圖片框就是容器。容器內(nèi)的對象只能在容器界定的范圍內(nèi)變動。當(dāng)移動容器時，容器內(nèi)的對象也隨著一起移動，而且與容器的相對位置保持不變。 VB的每個容器對象都有一個坐標(biāo)系。構(gòu)成一個坐標(biāo)系，需要三個要素：坐標(biāo)原點、坐標(biāo)度量單位以及坐標(biāo)軸的長度與方向。 標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) （ 1）坐標(biāo)的度量單位由對象的 ScaleMode屬性決定， ScaleMode的取值如表所示。 Visual Basic的坐標(biāo)系統(tǒng) 標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) ScaleMode屬性值 含義 ScaleMode屬性值 含義 0 User 用戶自定義 4 Character 字符 1 Twip 緹 (默認(rèn)值 ) 5 Inch 英寸 2 Point 點 6 Millimeter 毫米 3 Pixel 像素 7 Centimeter 厘米 （ 2） ScaleLeft和 ScaleTop屬性用于控制容器對象左邊和頂邊的坐標(biāo)，根據(jù)這兩個屬性值可形成坐標(biāo)原點。 無論采用哪一種坐標(biāo)度量單位，所有容器對象的 ScaleLeft和 ScaleTop屬性的默認(rèn)值均為 0，即坐標(biāo)原點在對象的左上角。橫向向右為 x軸正向，縱向向下為 y軸正向。 Visual Basic的坐標(biāo)系統(tǒng) 標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) (0, 0) (0, 0) x x y y （ 3） ScaleWidth和 ScaleHeight屬性確定對象內(nèi)部水平方向和垂直方向的坐標(biāo)度量單位數(shù)。 例如，設(shè)ScaleMode屬性值為 5（即坐標(biāo)度量單位為英寸），如果 ScaleWidth值為 10，則表示該對象水平方向?qū)挾葹?0英寸。 Visual Basic的坐標(biāo)系統(tǒng) 標(biāo)準(zhǔn)坐標(biāo)系統(tǒng) 注意： （ 1） ScaleLeft、 ScaleTop屬性與 Left、 Top屬性的區(qū)別。 （ 2） ScaleHeight、 ScaleWidth屬性與 Height、Width屬性的區(qū)別。 用戶可以改變對象的坐標(biāo)系統(tǒng)，即自行定義坐標(biāo)系統(tǒng)的原點、坐標(biāo)軸的方向等，有以下兩種方法： 1．修改屬性值 通過修改對象的 ScaleLeft、 ScaleTop、 ScaleWidth和 ScaleHeight四個屬性來設(shè)定自定義坐標(biāo)系統(tǒng)： （ 1）按需要改變 ScaleLeft， ScaleTop值后，坐標(biāo)系的 X軸和 Y軸按此值平移形成新的坐標(biāo)原點。 （ 2）容器控件左上角的 X、 Y坐標(biāo)值為 (ScaleLeft，ScaleTop)，容器右下角坐標(biāo)值為 (ScaleLeft+ScaleWidth，ScaleTop+ScaleHeight)。 Visual Basic的坐標(biāo)系統(tǒng) 自定義坐標(biāo)系統(tǒng) （ 3）根據(jù)容器左上角和右下角坐標(biāo)值的大小，自動設(shè)置坐標(biāo)軸的正向。 （ 4） ScaleWidth， ScaleHeight屬性為 X軸和 Y軸刻度總數(shù)，即， X軸和 Y軸的刻度度量單位值為 1/ScaleWidth 和 1/ScaleHeight。 Visual Basic的坐標(biāo)系