【正文】 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 滾動條 為不能自動支持滾動的應用程序和控件提供滾動功能，也可 水平滾動條 (HScrollBar)和 垂直滾動條 (VScrollBar) 最小值 (Min)，最大值 (Max) ；移動滾動塊時，代表的值隨之改變 2. 常用屬性 (1)Min、 Max屬性： Min屬性的默認值為 0， Max屬性的默認值為 32767 (2)Value屬性：設置滾動塊在滾動條中的位置值 (3)Smallchange最小變動值屬性 (4)LargeChange最大變動值屬性 3. 事件 滾動條控件可以識別 10個事件，其中最常用的是Scroll和 Change (1)Scroll事件：當用鼠標拖動滾動塊時，即觸發(fā)Scroll事件 (2)Change事件：當改變 Value屬性值時，即觸發(fā)Change事件 當釋放滾動塊、單擊滾動條內(nèi)空白處或滾動箭頭時， Change事件就會發(fā)生。 例 設計一個調(diào)色板應用程序 建立三個水平滾動條作為 紅、綠、藍 三種基本顏色的輸入工具，合成的顏色顯示在右邊的標簽中 (圖 )，用其背景顏色屬性 BackColor值的改變實現(xiàn)合成顏色的調(diào)色 說明： 根據(jù)調(diào)色原理，基本顏色有紅、綠、藍三種，選擇這三種顏色的不同比例，可以合成所需要的任意顏色 (1)創(chuàng)建應用程序的用戶界面和設置對象屬性 三個水平滾動條名稱從上至下分別為 HScroll HScrollHScroll3 其 Max屬性均設置為 255， Min屬性均設置為 0， SmallChange屬性設置為 1， LargeChange屬性設置為 10，Value設置為 0。 顯示合成顏色的標簽名為 Label1 (2)編寫程序代碼 功能要求： 通過操作 (單擊或拖動 )滾動條，直接修改RGB設置，從而得到標簽背景所需的顏色 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控件； 圖形方法 坐標系 每個對象都定位于存放它的容器內(nèi) 每個容器都有一個坐標系，它包括坐標原點， x坐標軸和y坐標軸，默認的 坐標原點 (0,0)在容器對象的左上角 默認單位為 Twip(緹 )，還可以使用磅、像素、厘米等單位 窗體的實際可用的 高度和寬度 由 ScaleHeight和ScaleWidth屬性確定 CurrentX和 CurrentY屬性 圖形方法和圖形控件 使用 Pset(畫點 )、 Line(畫線 )、 Circle(畫圓 )等圖形方法，可以方便地在窗體和圖片框上繪制簡單的圖形 1. Pset(畫點 )方法 格式： [對象名 .] Pset [Step](x,y)[,顏色 ] 功能：在對象的指定位置 (x,y)上按選定的顏色畫點 參數(shù) Step指定 (x,y)是相對于當前坐標點的坐標 示例： 下列語句能在坐標位置 (500， 900)處畫一個紅點： 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)，半徑 [，顏色，起點，終點，縱橫比 ] 功能： 在對象上畫圓、橢圓或圓弧 說明： (1)(x,y)是圓、橢圓或圓弧的中心坐標，“半徑”是圓、 (2)“起點”、“終點” (以弧度為單位 )指定弧或扇形的起點或終點位置，其范圍從 2π到 2π?！捌瘘c”的默認值為 0，“終點”的默認值為 2π (3)縱橫比 為圓的縱軸和橫軸的尺寸比。當縱橫比大于 1時，橢圓沿垂直方向拉長；當縱橫比小于 1時，橢圓沿水平方向拉長?？v橫比的默認值為 1，將產(chǎn)生一個標準圓。 (4)可以省略中間的某個參數(shù)，但不能省略分隔參數(shù)的逗號 例 在窗體上畫出一個扇形、圓、橢圓 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屬性： 用于設置在圖片框中要顯示的圖像文件 =LoadPicture(圖形文件名 ) =LoadPicture() ?清除圖片 Align屬性： 設置圖片框在窗體中的顯示方式 AutoSize屬性： 確定圖片框如何與圖形相適應 圖片框 (PictureBox) 3. (1)顯示和消除圖形：見 Picture (2)用 Print (3)用圖形方法在圖片框中畫圖形 可以使用 Circle(畫圓 )、 Line(畫線 )、 Pset(畫點 )等方法在圖片框中畫圖形 示例 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)時間 Time的秒、分和時數(shù)，再利用計時器控件，按一定時間間隔把時 間數(shù)轉(zhuǎn)換為圖形指針位置和顯示出來 (2)創(chuàng)建應用程序的用戶界面 計時器 (Timer1)，形狀控件 (Shape1)，三條線控件 (LineS, LineM, LineH) ，四個標簽 (表示數(shù)字 ) 例 設計一個走動的時鐘 (3)設置對象屬性 Timer1的 Interval屬性為 1000(1秒 ) Shape1的 Shape屬性為 3Circle(圓形 )， FillStyle屬性為 0Solid(實心 ) 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)