第四章 圖形處理

　　1、圖形操作基礎(chǔ)

　　標(biāo)準(zhǔn)坐標(biāo)系統(tǒng)

　　2、圖形控件

　　直線控件(Line)

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

　　1.直線控件的常用屬性

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

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

　　2.直線控件的特有屬性

　　x1,x2,y1,y2屬性指定起點(diǎn)和終點(diǎn)的x坐標(biāo)及y坐標(biāo)�？梢酝ㄟ^改變x1,x2,y1,y2的值,來改變線的位置和長度。

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

　　3、形狀控件(Shape)

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

　　1.形狀控件常用屬性

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

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

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

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

　　2.形狀控件特有屬性

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

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

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

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

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

　　(2)BackStyle屬性：設(shè)置圖形背景的風(fēng)格

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

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

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

　　3、 圖形方法

　　4、PSet方法

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

　　程序范例：

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

　　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)每按下鼠標(biāo)鍵一次，在鼠標(biāo)所指位置畫一個點(diǎn)

　　B)按下鼠標(biāo)鍵，則在鼠標(biāo)所指位置畫一個點(diǎn);放開鼠標(biāo)鍵，則此點(diǎn)消失

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

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

　　5、Line方法

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

　　6、Circle方法

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