【正文】 形設(shè)計(jì) 22 2. Move方法 對(duì)象名 .Move left[, top[, width[, height]]] 例：在窗體上移動(dòng)一正方形，每次移動(dòng)時(shí)使正方形的長(zhǎng)和寬增加 100緹。 2. 屬性 ?BorderStyle（ 見 P229表 115） ?BorderWidth ?X X Y1 、 Y2 Line控件 注意 : 運(yùn)行時(shí)可以通過改變 X X Y1 和 Y2屬性來移動(dòng)它或者調(diào)整它的大小。 ? 當(dāng) BorderWidth為 1時(shí) ， BorderStyle屬性設(shè)置為 1（ 實(shí)線 ） 和 6（ 內(nèi)收實(shí)線 ） 看上去效果相同 。運(yùn)行時(shí)，單擊“開始”按鈕開始移動(dòng)秒針，單擊“停止”按鈕停止移動(dòng)。 秒針旋轉(zhuǎn)角度 Private Sub Form_Load() = False 39。 設(shè)定時(shí)時(shí)間為 1秒 (1, 1)(1, 1) 39。 將秒針的起點(diǎn)移動(dòng)到原點(diǎn) = 0 = 39。 旋轉(zhuǎn)角度為 0 End Sub 代碼如下： 第十一章 圖形設(shè)計(jì) 27 Private Sub Command1_Click() = True 39。 關(guān)閉定時(shí)器 End Sub 第十一章 圖形設(shè)計(jì) 28 繪圖方法 畫點(diǎn)方法 (Pset) 格式 : [對(duì)象名 .]PSet [Step] (x, y) [,顏色 ] 功能 : 在對(duì)象指定位置，用指定的顏色畫點(diǎn) 說明 : ? 對(duì)象名 ：窗體、圖片框、缺省為當(dāng)前窗體。 ? (x, y) ：點(diǎn)的水平和垂直坐標(biāo)。省略時(shí)使用“ 對(duì)象名 ” 的 ForeColor屬性值。 如下圖。 設(shè)窗體寬度為 100個(gè)單位 ScaleHeight = 100 39。 設(shè)置點(diǎn)的大小為 20個(gè)像素 39。 生成隨機(jī)的紅 、 綠 、 籃顏色分量值 m_red = Rnd * 255 m_green = Rnd * 255 m_blue = Rnd * 255 39。 分析： 由于要繪制的曲線在 [00， 3600]之間，因此可以定義窗體的水平坐標(biāo)從左到右為 0到 360；由于正弦函數(shù)的取值范圍為 [1,1]，因此可以設(shè)置垂直坐標(biāo)從下到上為 1到 1。 第十一章 圖形設(shè)計(jì) 34 Private Sub Form_Click() Scale (1, 1)(1, 1) 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è)計(jì) 35 運(yùn)行效果： 第十一章 圖形設(shè)計(jì) 36 格式 : [對(duì)象名 .]Line [Step][(x1, y1)]–[Step](x2, y2) [,顏色 [,B[F]]] 功能 : 在指定兩點(diǎn)之間用指定顏色畫線或矩形 說明 : ?對(duì)象名： 窗體、圖片框，缺省為當(dāng)前窗體Step：可選的，指定相對(duì)于由 CurrentX 和 CurrentY屬性提供的當(dāng)前位置的坐標(biāo)。 ? (x1, y1)：直線或矩形的起點(diǎn)坐標(biāo)。 ?Step：指定相對(duì)于起點(diǎn)的終點(diǎn)坐標(biāo)。 ?顏色： 畫線時(shí)用的 RGB 顏色。 ?F：規(guī)定矩形以矩形邊框的顏色填充。 第十一章 圖形設(shè)計(jì) 39 Private Sub Form_Click() Scale (1, 1)(1, 1) :DrawWidth = 3 Line (1, 0)(1, 0), vbBlue Line (0, 1)(0, 1), vbBlue DrawWidth = 1 For i = 1 To 1 Step Line (i, )(i, 0) 39。 Private Sub Form_Click() ScaleWidth = 100 ScaleHeight = 100 DrawWidth = 5 39。畫矩形 CurrentX = 40: CurrentY = 30 Line (60, 80), vbRed, B 39。如下圖所示。 為了實(shí)現(xiàn)黑白相間的效果 ， 在代碼中引入一個(gè)標(biāo)志變量 Flag， 當(dāng) Flag為 1時(shí) ， 用黑色畫矩形 ， 當(dāng) Flag為 1時(shí) ， 用白色畫矩形 。 分析： 第十一章 圖形設(shè)計(jì) 43 Private Sub Form_Click() 39。 設(shè)置小矩形的左上角坐標(biāo) X1 = i: Y1 = j 39。 根據(jù) Flag的值設(shè)置畫圖顏色 If Flag = 1 Then C = vbWhite Else C = vbBlack End If Line (X1, Y1)(X2, Y2), C, BF 39。使畫線的起始坐標(biāo) （ x1,y1） 和終點(diǎn)坐標(biāo)（ x2,y2） 根據(jù)三角函數(shù)表達(dá)式的規(guī)律變化 ，可以繪制各種風(fēng)格的圖形 。 設(shè) d=100， a在 0到 4π間 第十一章 圖形設(shè)計(jì) 46 分析： 由于 cos函數(shù)值在 1到 1之間，根據(jù)以上表達(dá)式可以看出， f的值在 50到 150之間。據(jù)此，可以用scale方法定義圖片框的刻度單位，其寬度和高度應(yīng)大于或等于 x和 y的取值范圍，以保證所畫的線條落在圖片框內(nèi)。拋物線的數(shù)學(xué)方程式為：y=ax2+bx+c，其中 a,b,c為常數(shù)。 設(shè)計(jì)界面： Text1 Text2 Text3 Command1 Picture1 第十一章 圖形設(shè)計(jì) 51 代碼如下： Private Sub Command1_Click() Dim x As Single, a As Single, b As Single, _ c As Single = 3 39。 用 Line方法繪制 X軸 (20, 0)(20, 0), vbBlue (18, 1)(20, 0), vbBlue (18, 1), vbBlue X 第十一章 圖形設(shè)計(jì) 52 39。 顯示原點(diǎn) = 1 = 1 0 39。 用 Pset方法繪制 x在 10到 10之間的拋物線 39。 說明： ?對(duì)象名 ：窗體、圖片框。為最長(zhǎng)軸的尺寸 ?顏色： 圓的輪廓顏色。指定弧或扇形的起點(diǎn)和終點(diǎn)位置。 終點(diǎn)的缺省值是 2? 。 ?縱橫比： 圓的縱橫尺寸比。 第十一章 圖形設(shè)計(jì) 56 Const pi = ScaleWidth = 100 ScaleHeight = 100 Circle (30, 30), 10 Circle (70, 30), 10, vbGreen, , , Circle (70, 30), 10, vbRed, , , 2 Circle (30, 75), 10, , * pi, * pi Circle (70, 75), 10, , * pi, * pi Circle (70, 75), 10, , * pi, * pi 【例 1112】 在窗體上繪制以下圖形 : 第十一章 圖形設(shè)計(jì) 57 【例 1113】 使用 Circle方法繪制如下圖所示的藝術(shù)圖案。 (x0,y0) y軸 x軸 (0,0) 設(shè)： 使用缺省的坐標(biāo)系統(tǒng)，軌跡圓的圓心坐標(biāo)為（ x0， y0）， 如下圖所示： 第十一章 圖形設(shè)計(jì) 58 分析： 將該圓 30等分，以圓周上的每一個(gè)等分點(diǎn)為圓心畫圓，圓心的坐標(biāo)為： （ x0+r*Cos(i)， y0r*Sin(i)） 其中， i為等分點(diǎn)和（ x0， y0） 的連線與 x軸正方向之間的夾角 (以弧度為單位 )。 第十一章 圖形設(shè)計(jì) 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 代碼如下：