【正文】 B(0, 0, 255) End Sub Private Sub Command1_Click() If Then = 宋體 Else = 幼圓 End If If Then = 16 Else = 20 End If If Then = RGB(0, 0, 255) Else = RGB(255, 0, 0) End If End Sub 滾動條 為不能自動支持滾動的應(yīng)用程序和控件提供滾動功能，也可 水平滾動條 (HScrollBar)和 垂直滾動條 (VScrollBar) 最小值 (Min)，最大值 (Max) ；移動滾動塊時(shí)，代表的值隨之改變 2. 常用屬性 (1)Min、 Max屬性： Min屬性的默認(rèn)值為 0， Max屬性的默認(rèn)值為 32767 (2)Value屬性：設(shè)置滾動塊在滾動條中的位置值 (3)Smallchange最小變動值屬性 (4)LargeChange最大變動值屬性 3. 事件 滾動條控件可以識別 10個(gè)事件，其中最常用的是Scroll和 Change (1)Scroll事件：當(dāng)用鼠標(biāo)拖動滾動塊時(shí)，即觸發(fā)Scroll事件 (2)Change事件：當(dāng)改變 Value屬性值時(shí)，即觸發(fā)Change事件 當(dāng)釋放滾動塊、單擊滾動條內(nèi)空白處或滾動箭頭時(shí)， Change事件就會發(fā)生。 例 設(shè)計(jì)一個(gè)調(diào)色板應(yīng)用程序 建立三個(gè)水平滾動條作為 紅、綠、藍(lán) 三種基本顏色的輸入工具，合成的顏色顯示在右邊的標(biāo)簽中 (圖 )，用其背景顏色屬性 BackColor值的改變實(shí)現(xiàn)合成顏色的調(diào)色 說明： 根據(jù)調(diào)色原理，基本顏色有紅、綠、藍(lán)三種，選擇這三種顏色的不同比例，可以合成所需要的任意顏色 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 三個(gè)水平滾動條名稱從上至下分別為 HScroll HScrollHScroll3 其 Max屬性均設(shè)置為 255， Min屬性均設(shè)置為 0， SmallChange屬性設(shè)置為 1， LargeChange屬性設(shè)置為 10，Value設(shè)置為 0。 顯示合成顏色的標(biāo)簽名為 Label1 (2)編寫程序代碼 功能要求： 通過操作 (單擊或拖動 )滾動條，直接修改RGB設(shè)置，從而得到標(biāo)簽背景所需的顏色 Private Sub HScroll1_Change() = RGB(, _ , ) End Sub Private Sub HScroll2_Change() = RGB(, _ , ) End Sub Private Sub HScroll3_Change() = RGB(, _ , ) End Sub 4種圖形控件： PictureBox控件、 Image控件、 Shape控件和 Line控件； 圖形方法 坐標(biāo)系 每個(gè)對象都定位于存放它的容器內(nèi) 每個(gè)容器都有一個(gè)坐標(biāo)系，它包括坐標(biāo)原點(diǎn)， x坐標(biāo)軸和y坐標(biāo)軸，默認(rèn)的 坐標(biāo)原點(diǎn) (0,0)在容器對象的左上角 默認(rèn)單位為 Twip(緹 )，還可以使用磅、像素、厘米等單位 窗體的實(shí)際可用的 高度和寬度 由 ScaleHeight和ScaleWidth屬性確定 CurrentX和 CurrentY屬性 圖形方法和圖形控件 使用 Pset(畫點(diǎn) )、 Line(畫線 )、 Circle(畫圓 )等圖形方法，可以方便地在窗體和圖片框上繪制簡單的圖形 1. Pset(畫點(diǎn) )方法 格式： [對象名 .] Pset [Step](x,y)[,顏色 ] 功能：在對象的指定位置 (x,y)上按選定的顏色畫點(diǎn) 參數(shù) Step指定 (x,y)是相對于當(dāng)前坐標(biāo)點(diǎn)的坐標(biāo) 示例： 下列語句能在坐標(biāo)位置 (500， 900)處畫一個(gè)紅點(diǎn)： Pset (500,900)， RGB(255,0,0) CurrentX=100 : CurrentY=100 Pset Step(400,800)， RGB(255， 0， 0) 圖形方法 2. Line(畫線 )方法 格式： [對象名 .] Line [(x1,y1)](x2,y2)[,顏色 ] Line (600,600)(20xx,3000) 3. Circle(畫圓 ) 格式： [對象名 .] Circle [Step](x,y)，半徑 [，顏色，起點(diǎn)，終點(diǎn)，縱橫比 ] 功能： 在對象上畫圓、橢圓或圓弧 說明： (1)(x,y)是圓、橢圓或圓弧的中心坐標(biāo)，“半徑”是圓、 (2)“起點(diǎn)”、“終點(diǎn)” (以弧度為單位 )指定弧或扇形的起點(diǎn)或終點(diǎn)位置，其范圍從 2π到 2π?！捌瘘c(diǎn)”的默認(rèn)值為 0，“終點(diǎn)”的默認(rèn)值為 2π (3)縱橫比 為圓的縱軸和橫軸的尺寸比。當(dāng)縱橫比大于 1時(shí)，橢圓沿垂直方向拉長；當(dāng)縱橫比小于 1時(shí)，橢圓沿水平方向拉長。縱橫比的默認(rèn)值為 1，將產(chǎn)生一個(gè)標(biāo)準(zhǔn)圓。 (4)可以省略中間的某個(gè)參數(shù)，但不能省略分隔參數(shù)的逗號 例 在窗體上畫出一個(gè)扇形、圓、橢圓 Private Sub Form_Load() Const PI = Show Circle (2500, 1500), 1200, vbBlue, PI, PI/2 Circle Step(600, 600), 600 Circle Step(0, 0), 600, , , , 5/25 End Sub 1. 圖片框 (PictureBox)和圖像框 (Image)都是用于顯示圖形。圖片框可以作為其他控件的容器，還可以在圖片框上面放置其他控件，這些控件隨圖片框的移動而移動 2. Picture屬性： 用于設(shè)置在圖片框中要顯示的圖像文件 =LoadPicture(圖形文件名 ) =LoadPicture() ?清除圖片 Align屬性： 設(shè)置圖片框在窗體中的顯示方式 AutoSize屬性： 確定圖片框如何與圖形相適應(yīng) 圖片框 (PictureBox) 3. (1)顯示和消除圖形：見 Picture (2)用 Print (3)用圖形方法在圖片框中畫圖形 可以使用 Circle(畫圓 )、 Line(畫線 )、 Pset(畫點(diǎn) )等方法在圖片框中畫圖形 示例 Private Sub Form_Load() Show 在圖片框內(nèi)寫字和畫圓 (1200, 1000), 600, RGB(0, 0, 255) (1200, 1000), RGB(255, 0, 0) End Sub 圖像框 (Image) 圖像框 (Image)控件的作用與圖片框 PictureBox控件相似，但它只能用于顯示圖形，不能作為其他控件的容器 Shape形狀控件 VB提供了畫圖形的基本工具，如 Shape(形狀控件 )、 Line(線控件 )。 Shape控件和 Line控件只用于表面裝飾，不支持任何事件。 Line直線控件 Line直線控件可用來在窗體、框架和圖片框中繪制簡單的線段。 (1)分析 ：本例分別以 Second、 Minite和 Hour函數(shù)取得系統(tǒng)時(shí)間 Time的秒、分和時(shí)數(shù)，再利用計(jì)時(shí)器控件，按一定時(shí)間間隔把時(shí) 間數(shù)轉(zhuǎn)換為圖形指針位置和顯示出來 (2)創(chuàng)建應(yīng)用程序的用戶界面 計(jì)時(shí)器 (Timer1)，形狀控件 (Shape1)，三條線控件 (LineS, LineM, LineH) ，四個(gè)標(biāo)簽 (表示數(shù)字 ) 例 設(shè)計(jì)一個(gè)走動的時(shí)鐘 (3)設(shè)置對象屬性 Timer1的 Interval屬性為 1000(1秒 ) Shape1的 Shape屬性為 3Circle(圓形 )， FillStyle屬性為 0Solid(實(shí)心 ) LineS, LineM, LineH的 BorderWidth屬性為 1， 2， 4 (4)編寫程序代碼 Option Explicit Const pi = Private len_S As Single, len_M As Single, len_H As Single Private Sub Form_Load() ?先取各指針的長度 39。秒針長度 len_S = Sqr(( ) ^ 2 + ( ) ^ 2) 39。分針長度 len_M = Sqr(( ) ^ 2 + ( ) ^ 2)