【正文】 屬性 DrawStyle 設(shè)置圖形方法輸出的線型 。 第十一章 圖形設(shè)計 73 1. 填充顏色屬性 FillColor 設(shè)置封閉圖形的填充顏色。 2. 填充樣式屬性 FillStyle 設(shè)置封閉圖形的填充樣式。取值 0~7。 下圖是各種填充樣式： 填充顏色屬性和填充樣式屬性 第十一章 圖形設(shè)計 74 ?當(dāng) AutoRedraw屬性為“ False”（缺省值）時，對象中的圖形不具有持久性，即在對象被改變大小，或覆蓋它的對象移開后，對象上的圖形將丟失； ?當(dāng) AutoRedraw屬性設(shè)置為“ True”時，表示對象的自動重畫功能有效，對象上的圖形具有持久性，即在對象被改變大小，或覆蓋它的對象移開后，對象內(nèi)的圖形將被重畫，恢復(fù)原來的樣子。 自動重畫 (AutoRedraw)屬性 第十一章 圖形設(shè)計 75 ?運(yùn)行時 在程序中設(shè)置 AutoRedraw，可以在畫持久圖形 (如背景色或網(wǎng)格 )和臨時圖形之間切換。如果設(shè)置 AutoRedraw 為 True，以前的輸出成為背景屏幕的一部分。將AutoRedraw 設(shè)置為 False后，用 Cls 方法清除繪圖區(qū)時不會刪除背景圖形。把 AutoRedraw 改回 True 后，再用 Cls 將清除背景圖形。 第十一章 圖形設(shè)計 76 【 例 1115】 在窗體的 AutoRedraw屬性設(shè)置為True時，畫一個綠色大圓，在窗體的 AutoRedraw屬性設(shè)置為 False時，畫一個紅色小圓。將一個圖片框移過這兩個圓，觀察 AutoRedraw屬性的作用 設(shè)計界面： Timer1 Picture1 第十一章 圖形設(shè)計 77 1）在窗體的 Click事件過程中編寫代碼，在AutoRedraw屬性為 True時畫一個綠色實心圓（持久圖形）；在 AutoRedraw屬性為 False時畫一個紅色實心圓（非持久圖形）；然后啟動定時器。 代碼設(shè)計： Private Sub form_Click() (1, 1)(1, 1) = 0 = True = vbGreen 39。 畫一個綠色實心圓（持久圖形） (0, 0), 1 第十一章 圖形設(shè)計 78 = False = vbRed 39。 畫一個紅色實心圓（非持久圖形） (0, 0), = True End Sub Private Sub Timer1_Timer() + , _ End Sub 2）在定時器的 Timer事件過程中將圖片框向窗體右下角逐漸移動。 第十一章 圖形設(shè)計 79 運(yùn)行效果： 單擊窗體呈現(xiàn)的界面 圖片框移過之后 第十一章 圖形設(shè)計 80 ?在應(yīng)用程序運(yùn)行時，當(dāng)一個對象被放大之后；或當(dāng)一個覆蓋該對象的窗體被移開之后，如果要保持該對象上所畫圖形的完整性 (重現(xiàn)原來的圖形 )，可以選擇觸發(fā) Paint事件來完成圖形的重畫工作。 ?如果 AutoRedraw 屬性被設(shè)置為 True， 重新繪圖將會自動進(jìn)行，此時 Paint 事件無效。 ?使用 Refresh 方法時， Paint 事件即被自動調(diào)用。 ?在 Resize事件過程中調(diào)用 Refresh方法，強(qiáng)制使用 Paint 事件重畫圖形。 Paint事件 第十一章 圖形設(shè)計 81 【例 1116】 在窗體中畫一個米字形。當(dāng)窗體的大小改變時，米字形也隨著自動調(diào)整。 第十一章 圖形設(shè)計 82 Private Sub Form_Paint() Dim HalfX, HalfY 39。 設(shè)置到寬度的一半。 HalfX = ScaleLeft + ScaleWidth / 2 39。 設(shè)置到高度的一半。 HalfY = ScaleTop + ScaleHeight / 2 39。 畫對角線 Line (ScaleLeft, ScaleTop)(ScaleWidth, ScaleHeight) Line (ScaleLeft, ScaleHeight) (ScaleWidth, ScaleLeft) 39。 畫十字 Line (HalfX, ScaleTop)(HalfX, ScaleHeight) Line (ScaleLeft, HalfY)(ScaleWidth, HalfY) End Sub 第十一章 圖形設(shè)計 83 Private Sub Form_Resize() Refresh End Sub 第十一章 圖形設(shè)計 84 保存繪圖結(jié)果 使用 SavePicture語句可以將在對象上繪制的持久圖形和加載到對象中的圖像保存到文件中。 格式： SavePicture 對象名 .Picture|對象名 .Image , 字符串表達(dá)式 功能： 從對象或控件的 Picture或 Image屬性中將圖形或圖像保存到指定的文件中。 第十一章 圖形設(shè)計 85 說明： 1）字符串表達(dá)式：指定要保存的圖形或圖像文件的名稱，可以包含路徑。 2）對象名 .Picture：表示將對象的 Picture屬性指定的圖片保存到指定文件中，如果是位圖、圖標(biāo)、元文件或增強(qiáng)元文件，則使用 SavePicture語句保存后，它們將以和原始文件同樣的格式保存；如果是GIF或 JPEG文件，則它們將被保存為位圖文件。 3）對象名 .Image：圖片總是以位圖的格式保存而不管其原始格式。用圖形方法繪制的圖形應(yīng)使用 Image屬性保存。 第十一章 圖形設(shè)計 86 【 例 1117】 比較使用 SavePicture語句保存Picture屬性和保存 Image屬性的區(qū)別 界面設(shè)計： Picture1 Command1 Command2 Command3 第十一章 圖形設(shè)計 87 代碼設(shè)計： 1）在“畫圖”按鈕 Command1的 Click事件過程中，首先設(shè)置 Picture1的AutoRedraw屬性為 True，然后在圖片框中畫一些垂直線條，使這些線條成為永久圖形。 Private Sub Command1_Click() = True = 5 = vbWhite (0, 0)(10, 10) For i = 1 To 10 (i, 0)(i, 10) Next i End Sub 第十一章 圖形設(shè)計 88 Private Sub Command2_Click() SavePicture , d:\ End Sub 2）在“保存 Picture”按鈕 Command2的Click事件過程中，使用 SavePicture語句指定保存 Picture屬性。 3）在“保存 Image”按鈕的 Click事件過程中指定保存 Image屬性。 Private Sub Command3_Click() SavePicture , d:\ End Sub 第十一章 圖形設(shè)計 89 運(yùn)行界面： 第十一章 圖形設(shè)計 90 保存的文件： 第十一章 圖形設(shè)計 91 本章小結(jié) : 1. 坐標(biāo)系統(tǒng) 改變坐標(biāo)系統(tǒng)的方法 : ?ScaleLeft和 ScaleTop屬性 ?ScaleWidth和 ScaleHeight屬性 ?Scale方法 2. 與位置、大小有關(guān)的屬性 ?Left。Top。Width。Height ?ScaleLeft。ScaleTop。ScaleHeight。 ScaleWidth 第十一章 圖形設(shè)計 92 3. 顏色 ?在設(shè)計階段設(shè)置顏色 ?在運(yùn)行階段設(shè)置顏色 ?使用 RGB函數(shù) ?使用 QBColor函數(shù) ?使用顏色常量 ?使用顏色的十六進(jìn)制值 ?使用系統(tǒng)顏色 第十一章 圖形設(shè)計 93 4. 圖形控件 ?Shape控件 ?Line控件 5. 繪圖方法 ?畫點方法 PSet ?畫直線、矩形方法 Line ?畫圓方法 Circle 第十一章 圖形設(shè)計 94 6. 與繪圖有關(guān)的常用屬性、事件和方法 ?Cls方法 ?DrawWidth屬性 ?DrawStyle屬性 ?FillColor屬性 ?FillStyle屬性 ?AutoRedraw屬性 ?Paint事件 7. 保存繪圖結(jié)果： SavePicture