多媒體軟件設(shè)計(jì)技術(shù)5圖形圖像程序設(shè)計(jì)

第五章：圖形、圖像程序設(shè)計(jì)技術(shù)多媒體軟件設(shè)計(jì)技術(shù)第三版陳啟安(c)西安電子科技大學(xué)出版社出版,2007-2008..可以修改或復(fù)制本幻燈片為非商業(yè)用途，但作者名及本版權(quán)標(biāo)識(shí)不可更改。該幻燈片由作者提供修訂日期:2008年1月30日本章學(xué)習(xí)目標(biāo)了解Visual

Basic中的坐標(biāo)系統(tǒng)及圖形格式了解Visual

Basic如何將圖片顯示在窗口中通過對(duì)圖片進(jìn)行處理以實(shí)現(xiàn)特殊的圖像效果使用API函數(shù)實(shí)現(xiàn)特殊的圖片效果Visual

Basic圖形圖像技術(shù)VB坐標(biāo)系統(tǒng)及圖形格式PaintPicture方法和BitBlt

API函數(shù)LoadPicture函數(shù)和SavePicture語句Pset、Circle、Line繪圖方法VB坐標(biāo)系統(tǒng)（1）在VB中，坐標(biāo)系統(tǒng)是一個(gè)二維網(wǎng)格，可定義屏幕上、窗體中或其它容器中（如：圖片框或

Printer

對(duì)象）的位置。如右圖：窗體的坐標(biāo)系統(tǒng)VB坐標(biāo)系統(tǒng)（2）對(duì)于VB坐標(biāo)系統(tǒng)，應(yīng)注意以下幾點(diǎn)：（1）當(dāng)移動(dòng)控件或調(diào)整控件的大小時(shí)，使用控件容器的坐標(biāo)系統(tǒng)。如果直接在窗體上繪制對(duì)象時(shí)，窗體就是容器。如果在框架或圖片框里繪制控件時(shí)，框架或控件是容器。（2）所有的圖形和Print方法，使用容器的坐標(biāo)系統(tǒng)。例如，那些在圖片框里繪制控件的語句，使用的是控件的坐標(biāo)系統(tǒng)。（3）一些用來調(diào)整窗體大小或移動(dòng)窗體的語句，用緹來表示窗體的位置和大小。（4）當(dāng)創(chuàng)建用來調(diào)整窗體大小或移動(dòng)窗體的代碼時(shí)，應(yīng)先檢查Screen對(duì)象的Height屬性和Width屬性，以確保窗體在屏幕上大小合適。VB坐標(biāo)系統(tǒng)（3）（5）屏幕的左上角總是（0，0）。任何容器的缺省坐標(biāo)系統(tǒng)，都是由容器的左上角（0，0）坐標(biāo)開始。（6）沿這些坐標(biāo)軸定義位置的測(cè)量單位，統(tǒng)稱為刻度。在

Visual

Basic中，坐標(biāo)系統(tǒng)的每個(gè)軸都有自己的刻度。坐標(biāo)軸的方向、起點(diǎn)和坐標(biāo)系統(tǒng)的刻度，都是可以改變的，

但是，一般情況下使用的是缺省系統(tǒng)?？捎脤?duì)象的刻度屬

性ScaleMode和Scale方法，設(shè)置特定對(duì)象（窗體或控件）的坐標(biāo)系統(tǒng)為缺省的刻度、標(biāo)準(zhǔn)刻度或自定義刻度。（7）所有Visual

Basic的移動(dòng)、調(diào)整大小和圖形繪制語句，根據(jù)缺省規(guī)定，使用緹為單位。一緹等于二十分之一磅（磅是打印機(jī)的長(zhǎng)度單位。1440緹=1英寸；567緹=1厘米）。這些測(cè)量值指示對(duì)象打印后的大小。屏幕上的物理實(shí)際距離根據(jù)監(jiān)視器的大小變化。VB圖形格式Visual

Basic

可以支持的圖形格式有：位圖（.bmp）文件、設(shè)備獨(dú)立位圖（.dib）文件、圖標(biāo)（.ico）文件、光標(biāo)（.cur

）文件、元（.wmf

）文件、增強(qiáng)的元文件（.emf）、GIF（.gif）文件以及JPEG

（.jpg）文件。擴(kuò)展名大小限制最大色數(shù)矢量或點(diǎn)陣透明效果存儲(chǔ)格式BMP無全彩點(diǎn)陣無BMPDIB無全彩點(diǎn)陣無DIBICO32*3216點(diǎn)陣有ICOCUR32*322點(diǎn)陣有CURWMF無全彩矢量有WMFEMF無全彩矢量有EMFGIF無256點(diǎn)陣有BMPJPG無全彩點(diǎn)陣無BMP注：存儲(chǔ)格式是指用VB5

SavePicture存儲(chǔ)后的文件格式。PaintPicture方法和BitBlt

API函數(shù)PaintPicture基本功能是圖像塊傳輸，是VB中用來代替BitBlt

API調(diào)用的簡(jiǎn)單而方便的方法?？焖俚貙煞粓D進(jìn)行合并；將位圖的全部或某一部分快速剪切并粘貼到其它地方；將位圖自動(dòng)延伸或壓縮以適應(yīng)新的環(huán)境；在屏幕上不同位置之間、屏幕與內(nèi)存之間傳遞位圖；采用32位三元光柵操作代碼（RasterOp），在源位圖、選定的刷子位圖和目標(biāo)位圖之間進(jìn)行顏色組合，生成目標(biāo)位圖中的最終顏色；將13個(gè)常用的RasterOp操作以內(nèi)部常量形式給出，不需任何聲明。PaintPicture方法（1）作用：在Form,

PictureBox或Printer上繪制圖形文件（.bmp、.wmf、.emf、.cur、.ico或.dib）的內(nèi)容。語法：object.PaintPicture

picture,x1,y1,width1,height1,

x2,

y2,

width2,

height2,

opcode參數(shù)說明：object可選的。一個(gè)對(duì)象表達(dá)式，其值可以為窗體、PictureBox控件或Printer。如果省略object，帶有焦點(diǎn)的Form對(duì)象缺省為object。Picture必需的。要繪制到object上的圖形源。x1,y1必需的（目標(biāo)位圖的參數(shù)）。Width1可選的（目標(biāo)位圖的參數(shù)）。指示picture的目標(biāo)寬度。如果目標(biāo)寬度比源寬度（width2）大或小，將適當(dāng)?shù)乩旎驂嚎s

picture。如果該參數(shù)省略，則使用源寬度。PaintPicture方法（2）Height1可選的（目標(biāo)位圖的參數(shù)）。指示picture的目標(biāo)高度。如果目標(biāo)高度比源高度（height2）大或小，將適當(dāng)?shù)乩旎驂嚎spicture。如果該參數(shù)省略，則使用源高度。x2,y2可選的（源位圖的參數(shù)）。指示picture內(nèi)剪貼區(qū)的坐標(biāo)（x-軸和y-軸）。如果該參數(shù)省略，則缺省為0。Width2可選的（源位圖的參數(shù)）。指示picture內(nèi)剪貼區(qū)的源寬度。如果該參數(shù)省略，則使用整個(gè)源寬度。Height2可選的（源位圖的參數(shù)）。指示picture內(nèi)剪貼區(qū)的源高度。如果該參數(shù)省略，則使用整個(gè)源高度。Opcode可選的。該參數(shù)與BitBlt中dwRop參數(shù)含義相同，它表示源圖與目標(biāo)位圖（或刷子位圖）的組合關(guān)系，用來定義在將

pictur繪制到object上時(shí)對(duì)picture執(zhí)行的位操作（例如，

vbMergeCopy或vbSrcAnd操作符）。opcode定義了13個(gè)內(nèi)部常量：PaintPicture方法（3）VbDstInvert（&H00550009）：目標(biāo)位圖取反

VbSrcCopy（&H00CC0020）：源位圖直接覆蓋目標(biāo)位圖

vbSrcAnd（&H008800C6）：源位圖與目標(biāo)位圖進(jìn)行“與”操作

vbSrcInvert（&H00660046）：源位圖與目標(biāo)位圖進(jìn)行“異或”操作

vbSrcPaint（&H00EE0086）：源位圖與目標(biāo)位圖進(jìn)行“或”操作

vbNotSrcCopy（&H00330008）：源位圖取反

vbSrcErase(&H00440328)：目標(biāo)位圖取反，再與源位圖進(jìn)行“與”操作

vbNotSrcErase（&H001100A6）：源位圖與目標(biāo)位圖進(jìn)行“或非”操作

vbMergePaint（&H00BB0226）：源位圖取反，再與目標(biāo)位圖進(jìn)行“或”操作

vbMergeCopy（&H00C000CA）：合并模式和源位圖

vbPatCopy（&H00F00021L）：將模式復(fù)制到目標(biāo)位圖

vbPatInvert（&H005A0049L）：用Xor運(yùn)算合并目標(biāo)位圖與模式

vbPatPaint（&H00FB0A09L）：用Or運(yùn)算合并反轉(zhuǎn)的源位圖與模式。然后用Or運(yùn)算合并上述結(jié)果與目標(biāo)位圖其中，與刷子位圖有關(guān)的常量是vbMergeCopy、vbPatCopy、vbPatInvert和vbPatPaint，這13個(gè)位操作符常數(shù)的詳細(xì)含義，請(qǐng)參閱Visual

Basic

Help文件中的RasterOp

Constants主題。PaintPicture方法（4）巧用PainPicture方法，結(jié)合控件屬性，可以方便地產(chǎn)生許多常見的圖像切換效果，如我們?cè)诙嗝襟w作品及電視中常見的圖像旋轉(zhuǎn)引入、翻轉(zhuǎn)、飛入、滑入、彈出、淡入淡出、隱現(xiàn)等動(dòng)畫效果。PainPicture方法實(shí)例：圖像滑入（Wipe）效果的實(shí)現(xiàn)在滑入效果中，新圖像慢慢逐漸覆蓋舊圖像，就像在墻上展開一幅卷成筒狀的畫。PaintPicture方法（5）滑入的效果BitBlt

API函數(shù)（1）作用：與PaintPicture方法相同。函數(shù)聲明Declare

Function

BitBlt

Lib

"gdi32"

Alias

"BitBlt"

（ByValhDestDC

As

Long,

ByVal

x

As

Long,

ByVal

y

As

Long,

ByValnWidth

As

Long,

ByVal

nHeight

As

Long,

ByVal

hSrcDC

As

Long,ByVal

xSrc

As

Long,

ByVal

ySrc

As

Long,

ByVal

dwRop

As

Long）As

Long參數(shù)說明：hDestDC目標(biāo)設(shè)備環(huán)境x目標(biāo)左上角坐標(biāo)，y目標(biāo)頂端坐標(biāo)

nWidth目標(biāo)寬，nHeight目標(biāo)高h(yuǎn)SrcDC源設(shè)備環(huán)境，xSrc源左上角坐標(biāo)，ySrc源頂端坐標(biāo)

dwRop位處理操作，與PaintPicture方法相同，如vbSrcAnd、vbSrcAnd、vbSrcCopy等目標(biāo)或源只能是Picture,

Form或Printer對(duì)象。各單位為象素。PaintPicture

方法與BitBlt函數(shù)的功能相似，但速度不及BitBlt函數(shù)。BitBlt

API函數(shù)（2）BitBlt

API函數(shù)實(shí)例：多幅畫面間切換的四種圖像特技在多媒體程序設(shè)計(jì)中，為了美化顯示屏

幕，增加畫面的動(dòng)感，常常要用到各種

圖像顯示特技。圖像的切換技術(shù)能明顯

美化畫面。用Visual

Basic編制這類程

序時(shí)，由于VB自身沒有這種切換功能，

因此需要利用第三方控件或調(diào)用

WindowsAPI函數(shù)BitBlt來實(shí)現(xiàn)這種功能。下面介紹用BitBlt函數(shù)實(shí)現(xiàn)畫面的四種

切換方法（從中間逐步放大、從左到右、從右到左、柵條狀）。假設(shè)有4個(gè)圖像文件（Pic1.jpg--

Pic4.jpg）,我們想要讓這4幅畫自動(dòng)地

循環(huán)顯示，每幅畫以某種切換方式出現(xiàn)。LoadPicture函數(shù)和SavePicture語句（1）LoadPicture函數(shù)作用：將圖形載入到窗體的Picture屬性、PictureBox控件或

Image控件。語法：LoadPicture（[filename],[size],[colordepth],[x,y]）參數(shù)說明：filename可選的。字符串表達(dá)式指定一個(gè)文件名。size可選變體。如果filename是光標(biāo)或圖標(biāo)文件，則該值指定的是想要的圖標(biāo)大小。·vbLPSmall

0系統(tǒng)小圖標(biāo)?！bLPLarge1系統(tǒng)大圖標(biāo)?！bLPSmallShell2外殼小圖標(biāo)大小，由“控制面板”中的Display

Properties對(duì)話框中Appearance選項(xiàng)卡上的

Caption

Buttons的大小設(shè)置決定。·vbLPLargeShell

3外殼大圖標(biāo)大小，由“控制面板”中的DisplayProperties對(duì)話框中Appearance選項(xiàng)卡上的圖標(biāo)大小設(shè)置決定?！bLPCustom4自定義大小，由x和y參數(shù)提供值。LoadPicture函數(shù)和SavePicture語句（2）（3）colordepth可選變體。如果filename是一個(gè)光標(biāo)或圖標(biāo)文件，指定想要的顏色深度。·vbLPDefault0如果使用指定文件，則為最佳可用匹配;·vbLPMonochrome

12色;·vbLPVGAColor216色;·vbLPColor

3

256色。（4）[x,y]可選變體。如果filename是一個(gè)光標(biāo)或圖標(biāo)文件，指定想要的寬度和高度。在包含多個(gè)獨(dú)立圖像的文件中，如果那樣大小的圖像不能得到時(shí)，則使用可能的最好匹配。只有當(dāng)

colordepth設(shè)為vbLPCustom時(shí)，才使用X和Y值。For

icon

files

255

is

the

maximumpossible

value。注：賦值不帶參數(shù)的LoadPicture將清除窗體、圖片框及圖像控件中的圖形。LoadPicture函數(shù)和SavePicture語句（3）例子Set

Picture

=

LoadPicture（"PARTY.BMP"）Set

Picture1.Picture

=

LoadPicture（"PARTY.BMP"）如果要將圖標(biāo)賦予窗體，則要把LoadPicture函數(shù)的返回值賦給

Form對(duì)象的Icon屬性：Set

Form1.Icon

=

LoadPicture（"MYICON.ICO"）圖標(biāo)也可以被賦予除Timer控件和Menu控件外的其它控件的

DragIcon屬性，例如：Set

Command1.DragIcon

=

LoadPicture（"MYICON.ICO"）使用LoadPicture可將圖形文件載入到系統(tǒng)剪貼板，如下所示：

Clipboard.SetData

LoadPicture（“PARTY.BMP”）LoadPicture函數(shù)實(shí)例本例使用LoadPicture函數(shù)將圖片加載到窗體的PictureBox控件并從控件上清除掉該圖片。程序運(yùn)行后，單擊窗體，即可看到所加載的圖片。LoadPicture函數(shù)和SavePicture語句（4）SavePicture語句作用：從對(duì)象或控件（如果有一個(gè)與其相關(guān)）的Picture或Image屬性中將圖形保存到文件中。語法：SavePicture

picture,

stringexpression參數(shù)說明：picture

產(chǎn)生圖形文件的PictureBox控件或Image控件。stringexpression

欲保存的圖形文件名。注：無論在設(shè)計(jì)時(shí)還是運(yùn)行時(shí)圖形從文件加載到對(duì)象的Picture屬性，而且如果圖形是位圖、圖標(biāo)、元文件或增強(qiáng)元文件，則圖形將以原始文件同樣的格式保存。如果它是GIF或JPEG文件，則將保存為位圖文

件。Image屬性中的圖形總是以位圖的格式保存而不管其原始格式在使用SavePicture語句之前，必須先將窗體或圖片框的AutoRedraw屬性設(shè)為True，否則保留的將是一張空?qǐng)D。SavePicture語句實(shí)例：使用SavePicture語句保存畫在Form對(duì)象的Picture屬性中的圖形。Pset、Circle、Line繪圖方法（1）VB提供創(chuàng)建圖形的一些方法，適用于窗體和圖片框。方法描述：·Cls清除所有圖形和Print輸出。·PSet設(shè)置各個(gè)像素的顏色?！oint返回指定點(diǎn)的顏色值?！ine畫線、矩形、或填充框?！ircle畫圓、橢圓、或圓弧。·PaintPicture在任意位置畫出圖形。Pset、Circle、Line繪圖方法（2）PSet方法作用：將對(duì)象上的點(diǎn)設(shè)置為指定顏色。語法object.PSet[Step]（x,y）,[color]參數(shù)說明：object

可選的。對(duì)象表達(dá)式，其值為“應(yīng)用于”列表中的對(duì)象。如果object省略，具有焦點(diǎn)的窗體作為object。Step

可選的。關(guān)鍵字，指定相對(duì)于由CurrentX和CurrentY屬性提供的當(dāng)前圖形位置的坐標(biāo)。（x,y）

必需的。x軸和y軸坐標(biāo)。color可選的。為該點(diǎn)指定的RGB顏色。如果省略，則使用當(dāng)前的ForeColor屬性值?？捎肦GB函數(shù)或QBColor函數(shù)指定顏色。注：所畫點(diǎn)的尺寸取決于DrawWidth屬性值。當(dāng)DrawWidth為1，PSet將一個(gè)像素的點(diǎn)設(shè)置為指定顏色。當(dāng)DrawWidth大于1，則點(diǎn)的中心位于指定坐標(biāo)。執(zhí)行PSet時(shí)，

CurrentX和CurrentY屬性被設(shè)置為參數(shù)指定的點(diǎn)。想用PSet方法清除單一像素，可通過設(shè)定定該像素的坐標(biāo)，并用BackColor屬性設(shè)置作為color參數(shù)。Form1.CurrentX

=

1000Form1.CurrentX

=

1000Form1.PSet

Step(500,

500),

vbRed以上語句就是相對(duì)于(1000,1000)這個(gè)點(diǎn)再x右移500,y軸上移500畫一個(gè)紅色的點(diǎn)。PSet方法實(shí)例：用PSet方法在窗體上畫五彩碎紙。Pset、Circle、Line繪圖方法（3）Circle方法作用：在對(duì)象上畫圓、橢圓或弧。語法object.Circle

[Step]（x,

y）,

radius,

[color,

start,

end,

aspect]object

可選的。對(duì)象表達(dá)式，如果object省略，具有焦點(diǎn)的窗體作為object。Step可選的。關(guān)鍵字，指定圓、橢圓或弧的中心，它們相對(duì)于當(dāng)前object的

CurrentX和CurrentY屬性提供的坐標(biāo)。（x,

y）

必需的。 圓、橢圓或弧的中心坐標(biāo)。Radius

必需的。圓、橢圓或弧的半徑。Color

可選的。Long

（長(zhǎng)整型數(shù)），圓的輪廓的RGB顏色。如果它被省略，則使用ForeColor屬性值?？捎肦GB函數(shù)或QBColor函數(shù)指定顏色。start,end

可選的。當(dāng)弧、或部分圓或橢圓畫完以后，start和end指定（以弧度為單位）弧的起點(diǎn)和終點(diǎn)位置。其范圍從-2

pi到2

pi。起點(diǎn)的缺省值是0;

終點(diǎn)的缺省值是2

*

pi。Aspect

可選的。圓的縱橫尺寸比。缺省值為1.0，它在如何屏幕上都產(chǎn)生一個(gè)標(biāo)準(zhǔn)圓（非橢圓）。注：想要填充圓，使用圓或橢圓所屬對(duì)象的FillColor和FillStyle屬性。只有封閉的圖形才能填充。封閉圖形包括圓、橢圓、或扇形。Pset、Circle、Line繪圖方法（4）Circle方法實(shí)例用Circle方法在窗體中央畫許多同心圓。Pset、Circle、Line繪圖方法（5）Line方法作用：在對(duì)象上畫直線和矩形。語法object.Line

[Step]

（x1,

y1）

[Step]

（x2,

y2）,

[color],

[B][F]·object

可選的。對(duì)象表達(dá)式，如果object省略，具有焦點(diǎn)的窗體作為object?！tep

可選的。關(guān)鍵字，指定起點(diǎn)坐標(biāo)，它們相對(duì)于由CurrentX和CurrentY屬性提供的當(dāng)前圖形位置。·（x1,y1）

可選的。直線或矩形的起點(diǎn)坐標(biāo)。ScaleMode屬性決定了使用的度量單位。如果省略，線起始于由CurrentX和CurrentY指示的位置?！tep

可選的。關(guān)鍵字，指定相對(duì)于線的起點(diǎn)的終點(diǎn)坐標(biāo)?！ぃ▁2,y2）

必需的。直線或矩形的終點(diǎn)坐標(biāo)?！olor

可選的。畫線時(shí)用的RGB顏色。如被省略，則使用ForeColor屬性值?！

可選的。利用對(duì)角坐標(biāo)畫出矩形?！

可選的。如果使用了B選項(xiàng)，則F選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F光用B，則矩形用當(dāng)前的FillColor和FillStyle填充。注：畫聯(lián)結(jié)的線時(shí)，前一條線終點(diǎn)是后一條線的起點(diǎn)。線的寬度取決于DrawWidth屬性值。執(zhí)行Line方法時(shí)，CurrentX和CurrentY屬性參數(shù)被設(shè)置為終點(diǎn)。Pset、Circle、Line繪圖方法（6）：繪圖方法程序?qū)嵗L制任意曲線的真彩色畫板利用Visual

Basic進(jìn)行圖像處理在圖片上平滑移動(dòng)文字圖像的滾動(dòng)顯示和縮放屏幕圖像的捕捉圖像的濾鏡效果圖像的旋轉(zhuǎn)與翻轉(zhuǎn)在圖片上平滑移動(dòng)文字圖像的滾動(dòng)顯示和縮放（1）在窗體中放置picture1作為容器,然后在其中放置

picture2，最后在窗體中再放置二個(gè)滾動(dòng)條（一個(gè)為水平滾動(dòng)條HScroll1，另一個(gè)為垂直滾動(dòng)條

VScroll1）。picture2的autosize屬性為TRUE，borderstyle屬性為0，autoredraw屬性為true,滾動(dòng)條的largechange和smallchange屬性設(shè)為合適大小。圖像的滾動(dòng)顯示和縮放（2）另外一種放大和縮小圖像的簡(jiǎn)單方法：把圖像放到Image控件，設(shè)置屬性Stretch為True。這是，只要改變Image的大小，圖像就可以放大和縮小。以下程序在Image1單擊事件中將圖像縮小一倍：Private

SubImage1_Click()Image1.Height

=

Image1.Height

/

2Image1.Width

=

Image1.Width

/

2End

Sub屏幕圖像的捕捉圖像的濾鏡效果（1）VB操作像素的基本方法：PSet和Point使用PSet方法可以生成像素；而使用Point方法則可以讀取像素值。

RGB（Red,Green,Blue）函數(shù)，有三個(gè)分量Red、Green和Blue，如RGB（255,0,0）表示紅色，代表一個(gè)長(zhǎng)整形數(shù)。VB中沒有提供將像素點(diǎn)的RGB值還原成三個(gè)分量Red、Green、Blue值的函數(shù)，可以用以下方法獲得某一點(diǎn)的RGB三個(gè)分量R