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