第09章圖形處理與多媒體應(yīng)用2學(xué)時(shí)

9.1圖形處理9.2多媒體應(yīng)用

9.3示例第9章圖形處理及多媒體應(yīng)用作業(yè)實(shí)驗(yàn)掌握重點(diǎn)預(yù)習(xí)VisualBasic程序設(shè)計(jì)計(jì)算機(jī)的繪圖和動(dòng)畫是一件奇妙且引人入勝的主題，VisualBasic下的圖象處理技術(shù)，包括繪圖，色彩，動(dòng)畫，三維空間，虛擬現(xiàn)實(shí)，甚至計(jì)算機(jī)仿真的基礎(chǔ)。聽起來(lái)很誘人的東西往往需要大量不誘人的知識(shí)，本章是這些奇妙東西的入門。

VB可以利用繪圖方法在窗體或某容器類對(duì)象上畫圖。也可以用繪圖控件畫圖。其多媒體控件可以讓你感受動(dòng)畫、聲音等。╳

9.1圖形處理9.1圖形處理1.VisualBasic的坐標(biāo)系統(tǒng)系統(tǒng)坐標(biāo)系原點(diǎn)位于屏幕左上角（0，0），從原點(diǎn)出發(fā)，水平向右為X軸正方向，垂直向下為Y軸正方向。

(1)VisualBasic坐標(biāo)系和笛卡爾平面坐標(biāo)系不同容器坐標(biāo)系是:╳

窗體的左上角是原點(diǎn)

X軸的正向水平向右

Y軸的正向垂直向下利用繪圖方法在窗體或某容器類對(duì)象上繪圖，均用容器坐標(biāo)系。所以：窗體中控件的位置用Left，Top屬性描述。Left表示控件左上角到窗體左邊的距離，Top表示控件左上角到窗體上邊的距離。9.1圖形處理Twip是系統(tǒng)缺省的度量單位。通過(guò)使用窗體等容器類對(duì)象的ScaleMode屬性，可另行定義容器坐標(biāo)系度量單位。但容器的left,top,width,height屬性值仍為Twip為單位

利用窗體的Scale方法如：Form1.Scale(-50,50)-(50,-50)

其中:前一個(gè)括號(hào)指定左上角坐標(biāo)，后一個(gè)括號(hào)指定右下角坐標(biāo)

1.VisualBasic的坐標(biāo)系統(tǒng)

(2)建立自己的坐標(biāo)系利用到窗體的Scale系列屬性9.1圖形處理

ScaleLeft屬性：確定對(duì)象左邊的水平坐標(biāo)；

ScaleTop屬性：確定對(duì)象頂端的垂直坐標(biāo)；

ScaleWidth屬性：確定對(duì)象內(nèi)部水平的單元數(shù)目；

ScaleHeight屬性：確定對(duì)象內(nèi)部垂直的單元數(shù)目。如：ScaleLeft=-50:ScaleTop=50

ScaleWidth=100:ScaleHeight=-100可讀系統(tǒng)由控件的ScaleMode屬性設(shè)置的。ScaleMode的值有：ScaleMode值意義0用戶自定義1

點(diǎn)素（Twip

即“特維”，缺省刻度）2

點(diǎn)（Point）3

象素（Pixel，這與屏幕分辨率有關(guān)）4字符（Character）5

英寸（Inch）6

毫米（Millimeter）7

厘米（Centimeter）

╳

1.VisualBasic的坐標(biāo)系統(tǒng)

(3)刻度系統(tǒng)9.1圖形處理1Inch=1440Twips；1Centimeter=567Twips1Inch=72Points；1字符寬（水平方向）=120Twips1字符高（垂直方向）=240Twips；1磅=20Twips。（磅即Point)(1)當(dāng)前坐標(biāo)?對(duì)象：窗體、圖形框、打印機(jī)?屬性：CurrentX、CurrentY，該屬性設(shè)計(jì)階段不可用?絕對(duì)坐標(biāo)：(x,y)?相對(duì)坐標(biāo)：step(x,y)(2)線寬?窗體、圖形框或打印機(jī)的DrawWidth屬性給出這些對(duì)象上所畫線的寬度或點(diǎn)的大小。DrawWidth屬性以像素為單位來(lái)度量，最小值為1。╳

2.

繪圖屬性9.1圖形處理(3)線型（DrawStyle）╳

2.

繪圖屬性9.1圖形處理(4)填充封閉圖形的填充方式由以下兩個(gè)屬性決定：

FillColor指定填充圖案的顏色，缺省值與ForeColor相同F(xiàn)illStyle屬性指定填充的圖案，共有8種內(nèi)部圖案。DrawStyle設(shè)置值線型0實(shí)線1長(zhǎng)劃線2點(diǎn)線3點(diǎn)劃線4點(diǎn)點(diǎn)劃線5透明線6內(nèi)實(shí)線

VB采用對(duì)象前景色（ForeColor）來(lái)繪圖?

RGB函數(shù)格式：RGB（紅，綠，藍(lán)）其中：紅、綠、藍(lán)三基色的成分使用0~255之間的整數(shù)，共有256×256×256種顏色?

色彩常量Vbred╳

2.

繪圖屬性9.1圖形處理(5)色彩4.形狀控件Shape控件可以用來(lái)畫矩形、正方形、橢圓、圓、圓角矩形及圓角正方形。當(dāng)Shape控件添加到窗體時(shí)顯示為一個(gè)矩形，可通過(guò)設(shè)置Shape屬性確定所需要的幾何形狀。

3.

畫線工具

Line控件可以用來(lái)畫線。步驟如下：(1)單擊工具箱中的Line圖標(biāo)；(2)移動(dòng)鼠標(biāo)到要畫線的起始位置；(3)按下鼠標(biāo)左鍵并拖曳鼠標(biāo)到要畫線結(jié)束處，放開鼠標(biāo)左鍵。9.1圖形處理(1)Line方法

Line方法用于畫直線或矩形格式：[對(duì)象.]Line[[Step](x1,y1)-(x2,y2)[,顏色][,B[F]]

其中：對(duì)象用于繪圖板的容器對(duì)象名(x1,y1)：為起點(diǎn)坐標(biāo)，單精度，省則為上個(gè)劃線方法劃線的終點(diǎn)為本次劃線起點(diǎn) (x2,y2)：為終點(diǎn)坐標(biāo)，單精度

Step：指定由currentx,currenty屬性提供當(dāng)前圖形起點(diǎn)坐標(biāo)

B：表示畫矩形，使用時(shí)前面逗號(hào)不可省

F：表示用畫矩形的顏色來(lái)填充矩形。╳

5.圖形方法(使用繪圖方法也可繪圖)9.1使用繪圖方法主要有:Line方法,Circle方法,Pset方法,Point方法(2)Circle方法

Circle方法用于畫圓、橢圓、圓弧和扇形格式：[對(duì)象.]Circle[[Step](x,y),半徑[,顏色][,起始角][,終止角][,縱向比率]]]其中：(x,y)為圓心坐標(biāo)；Step表示采用相對(duì)坐標(biāo)。Radius：圓的半徑或橢圓的長(zhǎng)軸半徑Start：畫圓弧時(shí)，用于設(shè)置圓弧的起始弧度值End：畫圓弧時(shí)，用于設(shè)置圓弧的結(jié)束弧度值A(chǔ)spect：畫橢圓時(shí)，垂直長(zhǎng)度和水平長(zhǎng)度比的正浮點(diǎn)數(shù)，小于1，radius指水平方向x半徑，大于或等于1,radius指垂直方向y半徑注：省略參數(shù)時(shí)，逗號(hào)是不可缺省的╳

5.

繪圖方法9.1圖形處理(3)Pset方法

Pset方法用于畫點(diǎn)格式：[對(duì)象.]Pset[Step](x,y)[,顏色]其中：(x,y)為點(diǎn)的坐標(biāo)；Step表示采用相對(duì)坐標(biāo)；采用背景顏色Forecolor可清除某個(gè)位置上的點(diǎn)。(4)Point方法

Point方法用于返回指定點(diǎn)的RGB顏色，格式：[對(duì)象.]Point(x,y)

其中：(x,y)為點(diǎn)的坐標(biāo)。╳

5.

繪圖方法9.1圖形處理（5）清除圖形[object.]clsObject是繪制圖形所在的容器對(duì)象名（6）在圖形中加入文本可使用容器控件的Currentx,Currenty屬性指定文字輸出的位置。Currentx,Currenty屬性均為運(yùn)行時(shí)屬性。例：Currentx＝1000

Currenty＝1000Print“輸出位置“╳

6.

使用圖片框9.1圖形處理在VisualBasic程序里加入圖片(1)圖片通?？梢苑旁贔orm，PictureBox，ImageBox中1、使用picture屬性顯示圖片Autosize=true，則圖片框自動(dòng)適應(yīng)圖片大小2、用代碼加入圖片用LoadPicture函數(shù)如：Image1.Picture=LoadPicture(“c:\pic\demo.bmp”)

刪除圖片的方法：Image1.Picture=LoadPicture(“”)(3)

使用paintpicture方法[Object.]paintpicturepicture,dx,dy[,dw[,dh[,sx[,sy[,sw[,sh,op]]]]]]Object是目標(biāo)窗體或圖片框?qū)ο竺笔楫?dāng)前窗體名Picture是要處理的圖片源Dx,dy指定目標(biāo)對(duì)象中圖片的X,Y坐標(biāo)值Dw,dh目標(biāo)對(duì)象中圖片的寬度與高度，dw或dh使用負(fù)值時(shí)，可實(shí)現(xiàn)圖片對(duì)象的水平或垂直翻轉(zhuǎn)Sx,sy欲處理圖片進(jìn)行剪裁時(shí)，剪裁圖片左上角坐標(biāo)值Sw,sh欲處理圖片進(jìn)行剪裁時(shí)，剪裁圖片寬度和高度op

Click就是一個(gè)鼠標(biāo)事件，它可以發(fā)生在許多對(duì)象上。同時(shí)鼠標(biāo)事件還有DblClick，MouseDown，MouseUp，MouseMove以及拖曳后放下的事件。在VisualBasic所附的示例程序里，有一個(gè)介紹鼠標(biāo)事件的例子，它的通常的路徑及文件名是：

c:\vb\samples\mouse\mouse.vbp

╳

7.VisualBasic的鼠標(biāo)事件9.1圖形處理(1)MouseDown，MouseUp，Mousemove事件

MouseDown，MouseUp事件分別發(fā)生在按下鼠標(biāo)按鍵和松開鼠標(biāo)按鍵或鼠標(biāo)在對(duì)象范圍內(nèi)移動(dòng)時(shí)，窗體的空的MouseDown，MouseUp事件是這樣的：

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)EndSubButton:返回一個(gè)表示按鼠標(biāo)鍵狀況的整數(shù)，左鍵返回1，右鍵返回2，中間返回4Shift：返回一個(gè)表示按控制鍵狀況的整數(shù)，按shift返回1，按ctrl返回2，按Alt返回4X,y：返回鼠標(biāo)當(dāng)前位置x,y坐標(biāo)值

(2)MouseDown，MouseUp事件與Click事件的不同Click事件不能檢測(cè)到是哪一個(gè)按鍵按下了，也不能檢測(cè)到按下鼠標(biāo)的同時(shí)鍵盤上是否按著Shift，Ctrl，Alt鍵，而且Click事件還不能確定按鼠標(biāo)時(shí)鼠標(biāo)指針的位置。而這些在MouseDown，MouseUp事件里都可以知道.這也是這兩個(gè)事件過(guò)程發(fā)生時(shí)后面四個(gè)參數(shù)的意義。在需要上面所說(shuō)的參數(shù)時(shí)，可以用MouseDown事件或MouseUp事件代替Click事件。

╳

9.1圖形處理7.VisualBasic的鼠標(biāo)事件╳

1.使用動(dòng)畫控件（Animation)

(1)功能用于播放無(wú)聲的“.avi”的數(shù)字電影文件。

(2)添加部件部件——MicrosoftWindowsCommonControls-26.0

(3)常用屬性Center:設(shè)為True，可確保播放的畫面位于動(dòng)畫控件的中間位置。Autoplay:用于設(shè)定已打開的動(dòng)畫文件的自動(dòng)播放。9.2多媒體應(yīng)用

VB中與多媒體有關(guān)的控件有兩個(gè)，都是ActiveX控件。一個(gè)是動(dòng)畫控件，另一個(gè)是媒體控制控件。(4)常用方法Open---打開播放文件格式：Object.OpenfnamePlay----用于進(jìn)行播放格式：Object.Play[repeat][,start][,end]其中：repeat：重復(fù)播放的次數(shù)

start：起始播放的楨（畫面）；end：停止播放的楨例如：animat1.play5,9,24╳

1.使用動(dòng)畫控件（Animation)

9.2多媒體應(yīng)用表示：使用名為animat1的動(dòng)畫控件要把已打開的“.avi”文件的第10幅畫到第25幅畫面重復(fù)播放5遍。

Stop-----停止播放一般形式：Object.stop

Close-----關(guān)閉文件2.多媒體控件(1)多媒體控件(MultimediaMCI)

用于管理，控制各種MCI（MediaContolInterface)設(shè)備的控件。它提供了一組控制按鈕，可以通過(guò)這些按鈕控制和管理聲卡、CD-ROM、VCD播放器等設(shè)備。(2)添加部件第一步:工程/部件第二步:部件第三步:在“控件”列表框中選定

MicrosoftMultimediaControl6.0╳

9.2多媒體應(yīng)用(3)主要屬性:

Enabled：使該控件有效

Visible：使該控件可見

DeviceType：設(shè)置多媒體控件所要管理的設(shè)備類型

AutoEnable：為True時(shí)，自動(dòng)激活DeviceType所指定的設(shè)備。

FileName：指定MCI所要使用的文件名稱

Command：在運(yùn)行時(shí)使用，指定需要執(zhí)行的MCI命令(4)MCI命令

它是通過(guò)一套高層的與設(shè)備無(wú)關(guān)的命令來(lái)控制多媒體設(shè)備的。主要命令如表9-7所示(p223)。

格式：Mmcontrol1.Command=“commandname”

例如：Mmcontrol1.Command=“Open”╳

2.多媒體控件9.2多媒體應(yīng)用示例:交叉火力請(qǐng)演示<圖形示例文件夾>中的程序需要定時(shí)器:PrivateSubTimer1_Timer()IfmnuCtlMoveDemo.CheckedAndDoFlag=TrueThenCtlMoveDemoElseIfmnuLineDemo.CheckedAndDoFlag=TrueThenLin