設(shè)計(jì)圖形和多媒體程序第7章第10章設(shè)計(jì)圖形和多媒體程序10.1圖形控件

VB提供了線條(Line)、形狀(Shape)、圖像框(Image)和圖片框(PictureBox)等四個圖形控件。如圖7-1所示。線條控件：用來繪制直線形狀控件：繪制正方形、圓形、矩形或橢圓形。圖像框控件：顯示各種圖形格式文件的圖形。圖片框控件：不僅可用來顯示現(xiàn)存圖形，還可以利用其提供的方法繪制復(fù)雜圖形。一、線條（Line)控件線條控件的主要屬性有：BorderStyle(線條風(fēng)格)、BorderWidth(線寬)、BorderColor(顏色)等屬性?？砂聪旅娌襟E操作使用線條控件：(1)單擊工具欄中線條控件圖標(biāo)。(2)在窗體上畫出所需線條。(3)打開屬性窗口，設(shè)置線條屬性，如線條風(fēng)格、線條顏色等。(4)對線條調(diào)整:直線的移動；改變直線的端點(diǎn)位置和長度。線條控件的主要屬性(1)BorderStyle屬性BorderStyle屬性決定線條的類型。此屬性有7個取值：0～6，分別對應(yīng)著不同的線條類型：0透明線1實(shí)心線2長劃線3點(diǎn)線4點(diǎn)劃線5點(diǎn)點(diǎn)相間的長劃線6內(nèi)部實(shí)線(2)BorderWidth屬性BorderWidth屬性決定著線條的寬度，即線條的粗細(xì)，如圖7-2所示。(3)其它屬性BorderColor：此屬性決定線條的顏色，通過屬性框中顏色調(diào)色板設(shè)置。X1:直線水平方向的起始坐標(biāo)Y1:直線垂直方向的起始坐標(biāo)X2:直線水平方向的終點(diǎn)坐標(biāo)Y2:直線垂直方向的終點(diǎn)坐標(biāo)二、形狀控件

使用形狀控件的步驟如下：(1)單擊工具箱中的形狀控件按鈕。(2)在窗體中畫出形狀。(3)設(shè)置屬性，定制形狀的外觀。(4)調(diào)整設(shè)置好的形狀。可單擊形狀使其成為可編輯狀態(tài)，通過鼠標(biāo)拖動改變其大小和位置，再用屬性窗口設(shè)置屬性，使其符合設(shè)計(jì)要求。形狀控件的主要屬性：(1)Shape(形狀)屬性

此屬性決定其顯示形狀，該屬性有6個可選值，如表9-2所示。(2)FillStyle(填充模式)設(shè)置FillStyle可以構(gòu)成不同的填充效果。FillStyle可以在0～7之間取值，各數(shù)值對應(yīng)的效果如表7-3。

三、圖像框控件1。Stretch屬性

（1）True——圖形能夠自動縮放以適應(yīng)圖像框大??；以圖像框的大小為準(zhǔn)。（2）False——(默認(rèn)值）圖像框自動隨實(shí)際圖像大小縮放。以圖像實(shí)際大小顯示。當(dāng)在程序中動態(tài)加入圖形時(shí)，為防止因圖形大小不一而影響界面，可以置Stretch為True。

2。Picture屬性

為顯示一幅圖像，要對Picture賦值?？梢杂肔oadPicture方法，也可用其他圖像框或圖片框的圖像數(shù)據(jù)來賦值。

Imagel.Picture=LoadPicture("c:\widnows\sun.bmp")Imagel.Picture=Image2.PictureImagel.Picture=Picture1.Picture把圖片框１的圖像賦給圖像框１。

3。用圖像框設(shè)計(jì)動畫程序首先準(zhǔn)備制作動畫的素材，選用兩幅蝴蝶的圖片bfly1.bmp和bfly2.bmp(在VB\Sles\Pguide\VCR下)。(1)在窗體上，放三個圖像框(Image)、一個定時(shí)器控件(Timer)和一個命令按鈕控件。(２)為Image1和Image2的Picture屬性填入文件名。設(shè)置Command1的Caption屬性為“開始動畫”，設(shè)置定時(shí)Timer1的Interval(定時(shí)間隔)屬性為200，Enabled屬性為False。設(shè)計(jì)好的界面如圖9-10所示。編寫代碼----用定時(shí)器控制圖片的交替顯示

PrivateSubTimer1_Timer()Staticflag'定義靜態(tài)變量Ifflag=0ThenImage3.Picture=Imagel.Pictureflag=1ElseImage3.Picture=Image2.Pictureflag=0EndIfEndSub用Command1控制動畫開始設(shè)置Timer1的Enabled屬性為Ture即可。PrivateSubCommand1_Click()Timer1.Enabled=TrueTimer2.Enabled=TrueEndSubVB10L蝴蝶飛

Ｍove方法的語法格式為：

[對象.]MoveLeft[,Top,Width,Height]Left：圖象框左邊的新位置Top：圖象框頂端的新位置Width：圖象框的新寬度Height：圖象框的新高度。Left參數(shù)是必須提供的。讓蝴蝶水平移動，用下面語句：Image3.MoveImage3.Left+100Image3.MoveImage3.Left+100,Image3.top-50020004000Image1位置二位置一1

01000(0,0)TopLeft蝴蝶重新飛回的代碼IfImage3.Left>=Form1.ScaleWidththenImage3.Left=Form1.LeftEndIfImage3.MoveImage3.Left+100控制蝴蝶水平移動

用定時(shí)器Timer2控制蝴蝶移動速度：設(shè)置其Enabled屬性為False，Interval屬性為250(移動間隔)。在Timer2_Timer過程中添加下面代碼：PrivateSubTimer2_Timer()IfImage3.Left>=Me.ScaleWidthThenImage3.Left=Me.Left-100endifImage3.MoveImage3.Left+100EndSub最后在Command1_Click()中添加代碼Timer2.Enabled=True以啟動定時(shí)器2。(vb7dh)四、圖片框控件1。使用VisualBasic顏色

VisualBasic提供了兩個選擇顏色函數(shù)QBColor()和RGB()，其中QBColor()能夠選擇16種顏色。表7-4列出了QBColor()能夠選擇的顏色：表10-4QBColor()可選擇的顏色RGB()函數(shù)能夠選擇更多的顏色，此函數(shù)有三個參數(shù)：RGB(R,G,B)R、G、B分別指明顏色中紅色、綠色、藍(lán)色的比例，它們的取值范圍為0～255。

10.2圖形方法1．Scale方法Scale方法定義繪圖的坐標(biāo)系。語法格式：[對象.]Scale(LeftX,TopY)-(RightX,BottomY)對象：可為Form和PictureBox控件。LerftX,TopY：所定義坐標(biāo)系中左上角的坐標(biāo)。RightX,BottomY：坐標(biāo)系中右下角的坐標(biāo)。Scale(-200,200)-(200,-200)如何定義一個如圖的坐標(biāo)系。(200,-200)(-200,200)(0,0)2．Line方法Line方法用來畫線，格式為：[對象.]Line[[Step](X1,Y1)]-[Step](X2,Y2)[,[Color][,B[F]]]（1）(X1,Y1)和(X2,Y2)：線段的起止坐標(biāo)；(X1,Y1)省略表示從當(dāng)前位置開始畫到(X2,Y2)點(diǎn)。（2）Step：是相對意義，為相對于當(dāng)前點(diǎn)的坐標(biāo)。（3）Color：用于設(shè)置畫線顏色。（4）B：表示以(X1,Y1)和(X2,Y2)對角坐標(biāo)畫一方框。加入F則表示對矩形框填充。例如：Form1.Line(200,550)-(600,600)Line-(800,700)，Vbred,BLine(200,300)-(400,100)與Line(200,300)-Step(200,-200)是等效的。例2（10-2）在窗體上畫多條直線。所畫直線的寬度由DrawWidth屬性決定，每條直線的顏色是隨機(jī)的。(vb10L10-2)PrivateSubForm_Click()Forc=1to10Form1.DrawWidth=c*2Form1.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Line(100,c*200)-(100+c*500,c*200)NextcEndSub例3(10-3)用Line方法在窗體上畫出如圖所示的隨機(jī)射線.(vb10L10-3)PrivateSubForm_Click()DimiAsInteger,xAsSingle,yAsSingleScale(-320,240)-(320,-240)Fori=1To100x=320*RndIfRnd<0.5Thenx=-xy=240*RndIfRnd<0.5Theny=-ycolorcode=15*RndLine(0,0)-(x,y),QBColor(colorcode)NextiEndSub3．Circle方法Circle方法用來畫圓、橢圓、弧等。格式：[對象.]Circle[step](x,y),radius[,[color][,[start][,end][,aspet]]]例4：Circle(2000,2000),1500,Qbcilor(4),,0.5（VB10L4)(1)(x,y)為圓心坐標(biāo)。(2)radius為半徑長度。(3)color為圖形顏色(4)start、end確定圓或橢圓弧的起止角度，取值范圍為-2π～2π

(5)aspet:為圓的縱橫比。畫圓時(shí)為1(缺省值)，4．PSet方法在指定位置用指定顏色畫點(diǎn)。其語法格式如下：[對象.]Pset[Step](X,Y)[,Color](1)對象:是可以是窗體和圖片框。(2)(Ｘ,Ｙ)為畫點(diǎn)的位置坐標(biāo)。(3)Color可選，用于設(shè)置點(diǎn)的顏色。如:Picture1.DrawWidth=10'設(shè)置點(diǎn)的粗度Picture1.Pset(270,250),RGB(255,0,0)‘畫一個亮紅點(diǎn)Vbred或Qbcolor(12)例5(10-6)用Pset方法繪制阿基米德螺線.PrivateSubForm_Click()DimxAsSingle,yAsSingle,iAsSingleScale(-15,15)-(15,-15)Line(0,14)-(0,-14)Line(14.5,0)-(-14.5,0)Form1.DrawWidth=5加一延時(shí)程序，起動畫效果螺線方程Fori