姚茂群

[摘要]闡明Visual Basic可視化編程方法進(jìn)行圖形程序設(shè)計(jì)的通用方法，以具體實(shí)例說(shuō)明了Visual Basic圖形處理過(guò)程中坐標(biāo)設(shè)置、像素點(diǎn)、圖形、顏色值的定義、讀取、處理及各種圖形藝術(shù)化處理的技術(shù)和方法，并給出處理圖形的應(yīng)用程序。

[關(guān)鍵詞]VB 圖形方法 像素 過(guò)程代碼

中圖分類號(hào)：TP3文獻(xiàn)標(biāo)識(shí)碼：A文章編號(hào)：1671－7597（2009）0220069－01

一、引言

Visual Basic作為功能強(qiáng)大的Windows程序開發(fā)工具軟件，由于它具有先進(jìn)的設(shè)計(jì)思想、快速易掌握的使用方法及圖形處理技術(shù)手段靈活多樣等特點(diǎn)，受到了軟件開發(fā)人員的關(guān)注和青睞，因此成為圖形處理應(yīng)用程序開發(fā)的理想工具。VB提供了與圖形有關(guān)的控件，如圖形框PictureBox、圖像框Image、直線Line與形狀Shape，還提供了完善的做圖方法，可以在窗體或圖形框中繪制各種圖形，如Line方法、Circle方法、Paintpicture方法等。

二、圖形方法

圖形方法是一種在程序運(yùn)行過(guò)程中繪制圖形的手段，它可以經(jīng)過(guò)計(jì)算，精確地設(shè)計(jì)圖形的位置與外形，并可以按照不同的算法，生成各種復(fù)雜的圖形。下面列舉VB中簡(jiǎn)單圖形方法及圖形處理所需程序代碼。

（一）直線和矩形的繪制——Line方法

Line方法具有在object指定對(duì)象上畫直線和矩形兩種功能。

命令格式：object. Line [STEP][(X1,Y1)]-[STEP](X2,Y2).[顏色],[B][F]

其中：objet可以是窗體或圖形框；（X1，Y1），（X2，Y2）分別表示線條的起點(diǎn)和終點(diǎn)坐標(biāo)。顏色表示畫線時(shí)用的RGB顏色；B表示畫直線還是畫矩形，F(xiàn)規(guī)定矩形以及邊框的顏色填充

（二）圖象處理——PaintPicture方法

PaintPicture方法可以將圖像框、圖形框或窗體中的一個(gè)矩形區(qū)域的像素，復(fù)制到圖像框、窗體對(duì)象中，并且源像素與目標(biāo)像素可以有多種組合方式，形成各種有趣的顯示效果， 使用它可以完成很多圖像的特殊處理工作。

命令格式：object PaintPicture Pic,dx,dy,dw,dh,sx,sy,sw,sh,[,

操作碼]

其中Pic：為圖片對(duì)象，如圖形框、圖像框或窗體等；dx,dy：目標(biāo)圖像左上角坐標(biāo)位置；

dw,dh：目標(biāo)圖像的寬和高尺寸；sx,sy：原圖像的左上角坐標(biāo)；sw,sh：原圖像的寬和高尺寸；

操作碼指定源像素與目標(biāo)像素的組合方式，共有256種不同的方式。

從以上格式可以看出，此命令可以通過(guò)改變參數(shù)dw與dh值,改變復(fù)制后的圖像的尺寸，實(shí)現(xiàn)放大或縮小圖像顯示，甚至可以置這兩個(gè)屬性為負(fù)值，這樣可使目標(biāo)圖像在水平方向、垂直方向翻轉(zhuǎn)，實(shí)現(xiàn)特殊效果的圖像顯示。

三、圖形方法的使用拓展

（一）Line方法拓展——繪制一個(gè)圓的追逐線

基本思想是：假定平面上兩點(diǎn)M1（X1，Y1）和M2（X2，Y2）。M2沿著某條曲線移動(dòng)，當(dāng)M2移動(dòng)后畫出M1到M2的直線，然后M1沿著這根直線移動(dòng)直線長(zhǎng)度的一個(gè)百分比。新坐標(biāo)位置由：X1=X1+N*（X2-X1），Y1=Y1+N*（Y2-Y1）得到。如此進(jìn)行下去得到的圖形便是追逐線圖形。

窗體事件過(guò)程代碼：

Private Sub Form_Click()

const PI=3.14159

dim x1,y1,x2,y2,M,N,I as single

scale(-1,1)-(1,-1)

M=1:x1=-1:y1=1:N=0.05

for I=0 to 2*pI step 0.05

x2=M*cos(I):y2=M*sin(I)

line(x1,y1)-(x2,y2):x1=x1+N*(x2-x1):y1=y1+N*(y2-y1)

next i

end sub

（二）PaintPicture方法拓展——圖形像素逆轉(zhuǎn)、圖像平鋪、水平翻轉(zhuǎn)顯示

首先在From1窗體中創(chuàng)建圖形框Picture1及圖像框image1，命令按鈕，并在各個(gè)命令按鈕的Click()事件中編寫過(guò)程代碼，運(yùn)行程序后通過(guò)不同按鈕顯示不同的圖像處理效果，按“結(jié)束”按鈕則結(jié)束程序運(yùn)行。各個(gè)命令按鈕的Click()事件過(guò)程代碼如下：

1．圖形像素逆轉(zhuǎn)顯示：

Private Sub Command1_Click()

Dim dx!, DY!, DW!, DH!, SX!, SY!, SW!, SH!

SX = 0: SY = 0 : SW = Image1.Width: SH = Image1.Height

dx = 0: DY = 0:DW = Image1.Width: DH = Image1.Height

Picture1.PaintPicture Image1.Picture, dx, DY, DW, DH, SX, SY, SW, SH, vbnotSrcCopy

End Sub

2．圖形復(fù)制平鋪顯示：

Private Sub Command2_Click()

Dim m, n As Integer

r=Int(Picture1.Width / Image1.Width): c= Int(Picture1.Height / Image1.Height)

For m = 0 To r + 2

For n = 0 To c + 2

Picture1.PaintPicture Image1.Picture, n * Image1.Width, m * Image1.Height, Image1.Width, Image1.Height

Next

Next

End Sub

3．圖形水平翻轉(zhuǎn)顯示：

Private Sub Command3_Click()

Dim dx!, DY!, DW!, DH!, SX!, SY!, SW!, SH!

SX = Image1.Width: SW = -Image1.WidtH : SH = Image1.Height

dx = 0: DY = 0 : DW = Image1.Width:DH = Image1.Height

Picture1.PaintPicture Image1.Picture, dx, DY, DW, DH, SX, SY, SW, SH, vbSrcCopy

End Sub

結(jié)束按鈕

Private Sub Command5_Click()

End

End Sub

參考文獻(xiàn)：

[1]朱新華，Visual Basic程序設(shè)計(jì)教程，廣西師范大學(xué)出版社.

[2]張?jiān)圃?，VB圖形處理技術(shù)，天津職業(yè)技術(shù)師范學(xué)院學(xué)報(bào).

[3]潘小轟，中文Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程，冶金工業(yè)出版社.