第1章熟悉VB集成環(huán)境并設(shè)計(jì)第個(gè)VB應(yīng)用程序ppt課件

1、 坐標(biāo)系統(tǒng)概述運(yùn)用VB作圖運(yùn)用圖片定時(shí)器控件第六章 圖像與多媒體6.2 運(yùn)用 Visual Basic作圖 一、繪圖屬性1.用AutoRedraw創(chuàng)建耐久的圖形每個(gè)窗體和圖片框都具有AutoRedraw屬性。1當(dāng)AutoRedraw為默許值False時(shí)，VB會(huì)把圖形輸出到屏幕，而不輸出到內(nèi)存。2當(dāng)AutoRedraw為True時(shí)，VB會(huì)把圖形輸出并保管在內(nèi)存中。留意：運(yùn)轉(zhuǎn)時(shí)，只需當(dāng)AutoRedraw為True時(shí)，才可以用Cls方法去除。舉例:6.2 運(yùn)用 Visual Basic作圖 2、運(yùn)用CurrentX、CurrentY設(shè)置當(dāng)前坐標(biāo)1窗體或圖形框或打印機(jī)的CurrentX、Curren

2、tY屬性給出這些對(duì)象在繪圖時(shí)的當(dāng)前坐標(biāo)。2這兩個(gè)屬性在設(shè)計(jì)階段不能運(yùn)用。當(dāng)坐標(biāo)系確定后，坐標(biāo)值(x，y)表示對(duì)象上的絕對(duì)坐標(biāo)位置。3假設(shè)坐標(biāo)值前加上關(guān)鍵字Step，那么坐標(biāo)值(x，y)表示對(duì)象上的相對(duì)坐標(biāo)位置，即從當(dāng)前坐標(biāo)分別平移x、y個(gè)單位，其絕對(duì)坐標(biāo)值為(CurrentX+x，CurrentY+y)4運(yùn)用CLS方法后，CurrentX、CurrentY屬性值為0。 3、用DrawWidth和DrawStyle屬性設(shè)置 線寬與線型 窗體、圖形框或打印機(jī)的DrawWidth屬性給出這些對(duì)象上所畫線的寬度或點(diǎn)的大小。DrawWidth屬性以像素為單位來(lái)度量，最小值為1。例6.2 用DrawWid

3、th屬性改動(dòng)直線寬度。6.2 運(yùn)用 Visual Basic作圖 窗體或圖形框或打印機(jī)的DrawStyle屬性給出這些對(duì)象上所畫線的外形。6.2 運(yùn)用 Visual Basic作圖 留意：只需當(dāng)DrawWidth設(shè)置為1時(shí)，DrawStyle屬性才會(huì)產(chǎn)生如上圖所示的各種效果。 4、填充與顏色 由Fillstyle、Fillcolor這兩個(gè)屬性決議封鎖圖形的填充方式。1Fillcolor指定填充圖案的顏色，默許的顏色與Forecolor一樣。2FillStyle屬性取值07，用來(lái)指定填充的圖案，共有8種內(nèi)部圖案。6.2 運(yùn)用 Visual Basic作圖 留意：假設(shè)FillStyle設(shè)置為1透明

4、，那么忽略FillColor屬性，但Form對(duì)象除外。6.2.2 畫點(diǎn)案例18：在窗體上畫一幅群星閃爍的畫面。1案例效果演示2案例分析1、畫點(diǎn)Pset方法例：1.Pset(500,1000),RGB(255,0,0) 2.Pset(500,1000),BackColor 擦除該點(diǎn)格式：對(duì)象.Pset (x,y),Color參數(shù)闡明: X,Y:確定畫點(diǎn)的位置 單精度,可以是常量或變量和表達(dá)式 Color:設(shè)置點(diǎn)的顏色缺省時(shí),點(diǎn)的顏色為ForeColor6.2.2 畫點(diǎn)6.2.2 畫點(diǎn)3案例實(shí)現(xiàn) 演示Private Sub TIMER1_TIMER()Dim i As IntegerDim x,

5、y As Single For I = 1 To 100 X = Int(Rnd * 6000) Y = Int(Rnd * 6000) PSet (X, Y), vbYellow Next IEnd Sub直線格式：對(duì)象. LineStep(x1,y1)-Step(x2,y2),Color參數(shù)闡明: X1,Y1:畫線的起點(diǎn), 省略:當(dāng)前坐標(biāo)為起始坐標(biāo)。 X2,Y2:直線的終點(diǎn) Color:設(shè)置直線的顏色 缺省時(shí),為ForeColorStep:表示后面的坐標(biāo)相對(duì)于當(dāng)前坐標(biāo)的偏移量6.2.3 畫直線和矩形舉例:Private Sub Command1_Click()Line (1000, 100

6、0)-(2000, 2000)Line -(300, 3000)Picture1.Line (100, 500)-Step(2000, 2000)Picture1.Line (1500, 1500)-Step(200, 200), vbBlueEnd Sub如何改動(dòng)直線的粗細(xì)和線型?6.2.3 畫直線和矩形DrawWidth屬性: 指定線的寬度(以磅為單位。DrawStyle屬性: 指定線型。矩形格式：對(duì)象. LineStep(x1,y1)-Step(x2,y2),Color,BF參數(shù)闡明: X1,Y1:矩形的左上角點(diǎn), 省略:當(dāng)前坐標(biāo)的為起始坐標(biāo), X2,Y2:矩形的右下角點(diǎn)B：表示畫一個(gè)矩

7、形; F：表示畫一個(gè)實(shí)心的矩形,這時(shí)忽略 Fillcolor和FillStyle屬性留意：有B參數(shù)才干運(yùn)用F例1：Private Sub Command1_Click()Line (500, 500)-Step(1000, 0)Line -Step(0, 1000)Line -Step(-1000, 0)Line -Step(0, -1000)Line (500, 500)-Step(1000, 1000), , BFEnd Sub6.2.3 畫直線和矩形6.2.4 畫圓、橢圓、圓弧和扇形案例19：在窗體上繪制一幅顏色、大小各不一樣的彩環(huán)。1案例效果演示格式： 對(duì)象. CircleStep(x

8、,y),半徑,Color,起始角,終止角,縱橫比6.2.4 畫圓、橢圓、圓弧和扇形 (11時(shí)，指向垂直方向的Y半徑 參數(shù)闡明:起始角和終止角：取值在0 時(shí)為圓弧。假設(shè)起始角的絕對(duì)值大于終止角的絕對(duì)值，那么畫一個(gè)角度大于180的圓??；假設(shè)為負(fù)數(shù)，那么畫出扇形。2案例分析6.2.4 畫圓、橢圓、圓弧和扇形6.2.4 畫圓、橢圓、圓弧和扇形Private Sub Command1_Click() X = Form1.Width Y = Form1.Height For I = 1 To 10 R = Rnd * Y * 0.1 Circle (X * Rnd, Y * Rnd), R, QBColo

9、r(I) Next IEnd Sub3案例實(shí)現(xiàn)演示6.2.5 運(yùn)用Line控件和Shape控件作圖案例20：在窗體中展現(xiàn)外形控件。1案例效果 演示6.2.5 運(yùn)用Line控件和Shape控件作圖1.Line控件常用屬性:X1、Y1、X2、Y2：控制線的兩個(gè)端點(diǎn)。BorderWidth:設(shè)置線寬。BorderStyle:設(shè)置線形。2.Shape控件常用屬性：FillStyle:設(shè)置填充圖案。FillColor:設(shè)置填充顏色。Shape:提供6種預(yù)定義外形。演示2案例分析1、設(shè)計(jì)階段方法：屬性窗口的Picture屬性裝入。利用剪貼板步驟：在繪圖軟件中復(fù)制圖片選中圖片框粘貼 2、運(yùn)轉(zhuǎn)階段方法：運(yùn)用L

10、oadPicture函數(shù)格式：對(duì)象.Picture = LoadPicture“文件名其中文件名包含途徑。復(fù)制：Picture2.Picture= Picture1.Picture刪除圖片格式：對(duì)象.Picture = LoadPicture 對(duì)象.Picture = LoadPicture“6.3 運(yùn)用圖片圖片框PictureBox和圖像框Imag1、作用：在指定位置顯示圖形信息。2、區(qū)別：圖片框中可以包含其他控件，圖像框不能。圖片框可以經(jīng)過(guò)Print方法接納文本，圖像框不能。圖像框占用內(nèi)存少，顯示速度快。6.3 運(yùn)用圖片3、屬性：Picture屬性:經(jīng)過(guò)屬性窗口設(shè)置，用來(lái)把圖形放入這些對(duì)象

11、中。適用于：窗體、圖片框、圖像框。支持的圖形文件格式：Bitmap Icon Metafile JPEG GIF(2)圖像框的Stretch屬性:自動(dòng)調(diào)整圖像框中圖形內(nèi)容的大小。格式：對(duì)象.Stretch=Boolean取值False時(shí)，可以自動(dòng)改動(dòng)大小。6.3 運(yùn)用圖片(1)圖片框的AutoSize屬性 當(dāng)AutoSize屬性為True時(shí)，可使圖片框自動(dòng)擴(kuò)展到可包容新圖片的大小。6.4 定時(shí)器控件案例21：制造一個(gè)模擬秒表，可用來(lái)計(jì)時(shí)。1案例效果屬性: Enable屬性 :能否可用 Interval屬性: 定時(shí)器事件之間的時(shí)間間隔毫秒數(shù) 取值范圍:0-64767 ,最長(zhǎng)間隔為64.8秒事件：

12、Timer事件 經(jīng)過(guò)了interval所設(shè)置的時(shí)間間隔后,將會(huì)觸 發(fā)timer事件.計(jì)時(shí)器控件Timer：按一定的時(shí)間間隔執(zhí)行操作 可制造動(dòng)畫效果6.4 定時(shí)器控件2案例分析分析: (1)在窗體上裝入一個(gè)圖片picture控件 (2)圖片在窗體上的位置不斷改動(dòng)即Left,Top例：以窗體為背景，顯示汽車行駛的動(dòng)畫Private Sub Timer1_Timer( ) Picture1.Left = Picture1.Left + 10End Sub6.4 定時(shí)器控件例：顯示滾動(dòng)字幕Private Sub Timer1_Timer() Label1.Left = Label1.Left + 100 If