【文章內(nèi)容簡介】 1 Step Line (i, )(i, 0) 39。 畫垂直刻度 Next i DrawWidth = 2 ForeColor = vbRed For t = 0 To 2 * Step x=Sin(2 * t) * Cos(t) : y = Sin(2 * t) * Sin(t) PSet (x, y) Next t End Sub 第十一章 圖形設(shè)計 40 【例 118】 單擊窗體在窗體上繪制直線、矩形。 Private Sub Form_Click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 5 39。畫三角形 Line (10, 30)(10, 80), vbRed Line (30, 80), vbGreen Line (10, 30), vbBlue 39。畫矩形 CurrentX = 40: CurrentY = 30 Line (60, 80), vbRed, B 39。畫實心矩形 CurrentX = 70: CurrentY = 30 Line Step(20, 50), vbMagenta, BF End Sub 第十一章 圖形設(shè)計 41 【例 119】 使用 Line方法繪制矩形的功能畫一個黑白格相間的棋盤。如下圖所示。 第十一章 圖形設(shè)計 42 假設(shè)棋盤有 10行 10列 ， 因此可以首先用Scale方法將窗體的高度和寬度劃分成 10個單位 。 為了實現(xiàn)黑白相間的效果 ， 在代碼中引入一個標(biāo)志變量 Flag， 當(dāng) Flag為 1時 ， 用黑色畫矩形 ， 當(dāng) Flag為 1時 ， 用白色畫矩形 。 在 Line方法中使用 BF參數(shù)指定繪制填充矩形 。 分析： 第十一章 圖形設(shè)計 43 Private Sub Form_Click() 39。 定義窗體寬度和高度為 10個單位 Scale (0, 0)(10, 10) Flag = 1 For i = 0 To 9 Flag = Flag * (1) For j = 0 To 9 39。 設(shè)置小矩形的左上角坐標(biāo) X1 = i: Y1 = j 39。 設(shè)置小矩形的右下角坐標(biāo) X2 = i + 1: Y2 = j + 1 代碼如下： 第十一章 圖形設(shè)計 44 39。 根據(jù) Flag的值設(shè)置畫圖顏色 If Flag = 1 Then C = vbWhite Else C = vbBlack End If Line (X1, Y1)(X2, Y2), C, BF 39。 畫矩形 Flag = Flag * (1) Next j Next i End Sub 第十一章 圖形設(shè)計 45 【 例 1110】 使用 Line方法繪制藝術(shù)圖案 。使畫線的起始坐標(biāo) （ x1,y1） 和終點(diǎn)坐標(biāo)（ x2,y2） 根據(jù)三角函數(shù)表達(dá)式的規(guī)律變化 ，可以繪制各種風(fēng)格的圖形 。 設(shè)坐標(biāo) （ x1,y1） 、 （ x2,y2） 隨表達(dá)式 x1=320+fcos(a) y1=200fsin(a) x2=320+fcos(a+π/5) y2=200fsin(a+π/9) 的規(guī)律變化 ， 其中 ， f由表達(dá)式 f=d(1+1/2cos()) 決定 ， d是個常量 。 設(shè) d=100， a在 0到 4π間 第十一章 圖形設(shè)計 46 分析： 由于 cos函數(shù)值在 1到 1之間，根據(jù)以上表達(dá)式可以看出， f的值在 50到 150之間。根據(jù) f的取值范圍和 sin、 cos函數(shù)的取值范圍可以推導(dǎo)出 x坐標(biāo)值在 170～ 470之間， y坐標(biāo)的值在 50～ 350之間。據(jù)此，可以用scale方法定義圖片框的刻度單位，其寬度和高度應(yīng)大于或等于 x和 y的取值范圍，以保證所畫的線條落在圖片框內(nèi)。 第十一章 圖形設(shè)計 47 設(shè)計界面： Picture1 第十一章 圖形設(shè)計 48 Private Sub Picture1_Click() Const pi = , d = 100 Dim a As Single, f As Single Dim x1 As Integer, y1 As Integer Dim x2 As Integer, y2 As Integer (170, 50)(470, 350) For a = 0 To 4 * pi Step pi / 100 f = d * (1 + 1 / 2 * Cos( * a)) x1 = 320 + f * Cos(a) y1 = 200 f * Sin(a) x2 = 320 + f * Cos(a + pi / 5) y2 = 200 f * Sin(a + pi / 9) (x1, y1)(x2, y2), vbBlue Next a End Sub 代碼如下： 第十一章 圖形設(shè)計 49 運(yùn)行效果： 第十一章 圖形設(shè)計 50 【 例 1111】 用 Line方法繪制坐標(biāo)軸，用 Pset方法繪制拋物線。拋物線的數(shù)學(xué)方程式為：y=ax2+bx+c，其中 a,b,c為常數(shù)。輸入常數(shù)a,b,c的值，畫出相應(yīng)的拋物線。 設(shè)計界面： Text1 Text2 Text3 Command1 Picture1 第十一章 圖形設(shè)計 51 代碼如下： Private Sub Command1_Click() Dim x As Single, a As Single, b As Single, _ c As Single = 3 39。 重新設(shè)置坐標(biāo)系，原點(diǎn)在 Picture1的中心 (20, 20)(20, 20) 39。 用 Line方法繪制 X軸 (20, 0)(20, 0), vbBlue (18, 1)(20, 0), vbBlue (18, 1), vbBlue X 第十一章 圖形設(shè)計 52 39。 用 Line方法繪制 Y軸 (0, 20)(0, 20), vbBlue (1, 18)(0, 20), vbBlue (1, 18), vbBlue Y 39。 顯示原點(diǎn) = 1 = 1 0 39。 取方程系數(shù) a = Val() b = Val() c = Val() 第十一章 圖形設(shè)計 53 39。 用 Pset方法繪制 x在 10到 10之間的拋物線 39。 設(shè)在 x每隔 For x = 10 To 10 Step (x, a * x ^ 2 + b * x + c), vbRed Next End Sub 運(yùn)行界面： 第十一章 圖形設(shè)計 54 格式 : [對象名 .]Circle [Step](x, y), 半徑 , [顏色 ], [起始角 ], [終止角 ] [, 縱橫比 ] 功能：在對象上畫圓、橢圓或弧。 說明： ?對象名 ：窗體、圖片框。缺省為當(dāng)前窗體 ? Step：指定圓、橢圓或弧的中心相對坐標(biāo) ? (x, y)：圓、橢圓或弧的中心坐標(biāo) ?半徑 ：圓、橢圓或弧的半徑。為最長軸的尺寸 ?顏色： 圓的輪廓顏色。默認(rèn)為 ForeColor 畫圓方法 (Circle) 第十一章 圖形設(shè)計 55 ?起始角 , 終止角 ：范圍 [ 2?, 2?]。指定弧或扇形的起點(diǎn)和終點(diǎn)位置。起點(diǎn)的缺省值是 0。 終點(diǎn)的缺省值是 2? 。若為負(fù) ,在畫弧的同時畫圓心到弧端點(diǎn)的連線。 ?縱橫比： 圓的縱橫尺寸比。缺省值為 (標(biāo)準(zhǔn)圓 ) 注意： Circle 方法總是沿逆時針方向繪圖。 第十一章 圖形設(shè)計 56 Const pi = ScaleWidth = 100 ScaleHeight = 100 Circle (30, 30), 10 Circle (70, 30), 10, vbGreen, , , Circle (70, 30),