【正文】 10, vbRed, , , 2 Circle (30, 75), 10, , * pi, * pi Circle (70, 75), 10, , * pi, * pi Circle (70, 75), 10, , * pi, * pi 【例 1112】 在窗體上繪制以下圖形 : 第十一章 圖形設(shè)計 57 【例 1113】 使用 Circle方法繪制如下圖所示的藝術(shù)圖案。該藝術(shù)圖案由一系列的圓組成，這些圓的圓心在另外一個固定圓（軌跡圓）的圓周上。 (x0,y0) y軸 x軸 (0,0) 設(shè)： 使用缺省的坐標(biāo)系統(tǒng)，軌跡圓的圓心坐標(biāo)為（ x0， y0）， 如下圖所示： 第十一章 圖形設(shè)計 58 分析： 將該圓 30等分，以圓周上的每一個等分點為圓心畫圓，圓心的坐標(biāo)為： （ x0+r*Cos(i)， y0r*Sin(i)） 其中， i為等分點和（ x0， y0） 的連線與 x軸正方向之間的夾角 (以弧度為單位 )。 r為軌跡圓的半徑。 第十一章 圖形設(shè)計 59 Private Sub Form_Click() Const pi = Dim x As Single, y As Single Dim x0 As Single, y0 As Single Dim r As Single, pace As Single Cls r = ScaleHeight / 4 x0 = ScaleWidth / 2 y0 = ScaleHeight / 2 pace = (2 * pi) / 30 代碼如下： 第十一章 圖形設(shè)計 60 For i = 0 To 2 * pi Step pace 39。 求軌跡圓圓周上各等分點的坐標(biāo) x = x0 + r * Cos(i) y = y0 r * Sin(i) 39。 以軌跡圓圓周上的等分點為圓心 39。 以 r* Circle (x, y), r * Next i End Sub 第十一章 圖形設(shè)計 61 【例 1114】 在圖片框中畫三個扇形和一個小圓，配合定時器使扇形旋轉(zhuǎn)起來。 設(shè)計界面： 運行界面： 第十一章 圖形設(shè)計 62 1）首先在窗體模塊的通用聲明段聲明變量alpha1，用于保存第一個扇形的起始角度，其他兩個扇形的起始角度由 alpha1推出，每個扇形的終止角由其起始角加上 60得出。首先畫出初始圖形： 代碼設(shè)計： 第十一章 圖形設(shè)計 63 Dim alpha1 Private Sub Form_Load() Show = 0 = vbBlue (1, 1)(1, 1) alpha1 = 30 39。 設(shè)第一個扇形的起始角 alpha2 = 90 39。 設(shè)第一個扇形的終止角 39。 畫第一個扇形 (0, 0), , vbBlue, alpha1 * / 180, alpha2 * / 180 第十一章 圖形設(shè)計 64 alpha3 = 150 39。 設(shè)第二個扇形的起始角 alpha4 = 210 39。 設(shè)第二個扇形的終止角 39。 畫第二個扇形 (0, 0), , vbBlue, alpha3 * / 180, alpha4 * / 180 alpha5 = 270 39。 設(shè)第三個扇形的起始角 alpha6 = 330 39。 設(shè)第三個扇形的終止角 39。 畫第三個扇形 (0, 0), , vbBlue, alpha5 * / 180, alpha6 * / 180 39。 在中心處畫一個小圓 (0, 0), End Sub 第十一章 圖形設(shè)計 65 2）假設(shè)運行時，單擊圖片框啟動定時器Timer1的事件過程，則代碼如下： Private Sub Picture1_Click() = True End Sub 第十一章 圖形設(shè)計 66 Private Sub Timer1_Timer() alpha1 = (alpha1 + 5) Mod 360 If alpha1 = 0 Then alpha11=alpha1+ _ Else alpha11 = alpha1 alpha2 = (alpha1 + 60) Mod 360 If alpha2=0 Then alpha12=alpha2 + _ Else alpha12 = alpha2 3）在定時器的 Timer的事件過程中實現(xiàn)每隔100毫秒重新畫圖，讓每個扇形的畫圖角度增加 5度，產(chǎn)生旋轉(zhuǎn)的效果。 第十一章 圖形設(shè)計 67 (0, 0), , vbBlue, _ alpha11 * / 180, _ alpha12 * / 180 alpha3 = (alpha2 + 60) Mod 360 If alpha3=0 Then alpha21=alpha3 + _ Else alpha21 = alpha3 alpha4 = (alpha3 + 60) Mod 360 If alpha4=0 Then alpha22=alpha4 + _ Else alpha22 = alpha4 (0, 0), , vbBlue, _ alpha21 * / 180, _ alpha22 * / 180 第十一章 圖形設(shè)計 68 alpha5 = (alpha4 + 60) Mod 360 If alpha5=0 Then alpha31=alpha5+ _ Else alpha31 = alpha5 alpha6 = (alpha5 + 60) Mod 360 If alpha6=0 Then alpha32=alpha6+ _ Else alpha32 = alpha6 (0, 0), , vbBlue, _ alpha31 * / 180, _ alpha32 * / 180 (0, 0), End Sub 第十一章 圖形設(shè)計 69 與繪圖有關(guān)的常用屬性、事件和方法 清除圖形方法 (Cls) 格式 : [對象名 ].Cls 功能 : 清除運行時 Form 或 PictureBox 所生成的圖形和文本 說明： 對象名： 窗體、圖片框的名稱。 注意 : ?Cls 的功能受 AutoRedraw 的影響。 ?調(diào)用 Cls 之后，對象的 CurrentX 和 CurrentY 屬性復(fù)位為 0。 第十一章 圖形設(shè)計 70 例 ： 以下語句將從圖片框的中心（原點）位置畫一條直線。 39。 設(shè)置圖片框的原點在其中心位置 (1, 1)(1, 1) 39。 用 Cls清除圖片框中的圖形， 39。 并 將當(dāng)前坐標(biāo)移到原點 39。 從當(dāng)前坐標(biāo)處到點 (,)畫一條直線 (, ) 第十一章 圖形設(shè)計 71 1. 線寬屬性 DrawWidth ?設(shè)置圖形方法輸出的線寬。 ?線寬的取值范圍從 1到 32767。 ?該值以像素為單位表示線寬。缺省值為 1，即一個像素寬。 ?如果 DrawWidth屬性值大于 1，畫出的圖形是實線；如果 DrawWidth屬性值等于 1，可以通過 DrawStyle屬性畫出各種線型。 線寬屬性和線型屬性 第十一章 圖形設(shè)計 72 DrawStyle = 0 DrawStyle = 1 DrawStyle = 2 DrawStyle = 3 DrawStyle = 4 DrawStyle = 5 DrawStyle = 6 透明 DrawStyle屬性和各種線型的對應(yīng)關(guān)系： 2. 線型