第四章 圖形處理

　　1、圖形操作基礎

　　標準坐標系統

　　2、圖形控件

　　直線控件(Line)

　　直線控件用來在窗體和其他容器控件中創建簡單的線段，它沒有自己的特殊方法，也不產生任何事件。設計和運行時可通過它的屬性改變它的位置、粗細和顏色等

　　1.直線控件的常用屬性

　　(1)BorderColor屬性設置直線的顏色。(2)BorderWidth屬性設置直線的粗細。

　　(3)BorderStyle屬性設置直線樣式。 0～6種類型,1—實線,6—內實線。

　　2.直線控件的特有屬性

　　x1,x2,y1,y2屬性指定起點和終點的x坐標及y坐標。可以通過改變x1,x2,y1,y2的值,來改變線的位置和長度。

　　說明：直線控件沒有Left、Top、Width和Height屬性，運行時也不能用Move方法決定直線的位置和長短。

　　3、形狀控件(Shape)

　　Ø 使用形狀控件在窗體或其他控件容器中畫矩形、正方形、圓、橢圓、圓角矩形或圓角正方形。

　　1.形狀控件常用屬性

　　(1)Left、Top、Width和Height決定形狀控件位置和大小，也可用Move方法改變它的大小和位置。

　　(2)BorderWidth設置圖形邊界寬度，值是以像素為單位的邊線寬度 (3)BorderColor：設置圖形邊界顏色。

　　(4)BorderStyle：設置邊界線的類型。 (5)FillColor屬性設置圖形的前景顏色。

　　如要為圖形填充顏色(背景)時,先將FillStyle設成1(透明),否則FillColor(前景色)的顏色會遮蓋背景色。

　　2.形狀控件特有屬性

　　(1)Shape屬性：用來設置圖形的形狀。

　　0——Rectangle 矩形 1——Square 正方形

　　2——Oval 橢圓形 3——Circle 圓形

　　4——Rounded Rectangle 圓角矩形 5——Rounded Square 圓角正方形

　　Ø Shape屬性的缺省值為0(矩形)。若選擇3,則用Shape控件畫出的矩形中畫出一個圓(圓的直徑是矩形的短邊)。

　　(2)BackStyle屬性：設置圖形背景的風格

　　0——Transparent(透明) 1——Opaque(不透明)

　　缺省值為0。如果著色, 要將BackStyle屬性設置為“不透明”。

　　(3)FillStyle屬性：設置圖形填充的線形(風格或樣式)

　　3、 圖形方法

　　4、PSet方法

　　格式:[對象名.]PSet (x,y)[,顏色] 功能:在窗體或圖片框上畫出一個點。對象缺省時,為窗體。

　　程序范例：

　　Ø 有個名稱為Form1的窗體，上面沒有控件，設有以下程序：

　　Dim cmdmave As Boolean

　　Private Sub Form_MouseDown(……)

　　cmdmave = True

　　End Sub

　　Private Sub Form_MouseMove(……)

　　If cmdmave Then

　　Form1.Pset(X,Y)

　　End If

　　End Sub

　　Private Sub Form_MouseUp(……)

　　cmdmave = False

　　End Sub

　　此程序的功能是

　　A)每按下鼠標鍵一次，在鼠標所指位置畫一個點

　　B)按下鼠標鍵，則在鼠標所指位置畫一個點;放開鼠標鍵，則此點消失

　　C)不按鼠標鍵而拖動鼠標，則沿鼠標拖動的軌跡畫一條線

　　D)按下鼠標鍵并拖動鼠標，則沿鼠標拖動的軌跡畫一條線，放開鼠標鍵則結束畫線

　　5、Line方法

　　格式:[對象.]Line (x1,y1)- (x2,y2)[,顏色] 功能:在窗體或圖片框上畫出一條直線。對象缺省時為窗體。

　　6、Circle方法

　　格式:[對象名.]Circle (x,y),半徑[,顏色] 功能:在窗體或圖片框上畫圓。