VisualBasic程序設(shè)計(jì)第9章圖形設(shè)計(jì).ppt

Visual Basic程序設(shè)計(jì) 第9章 圖形設(shè)計(jì),2009年 月 日,計(jì)算機(jī) 學(xué)院,教師：傅茂洺,9.1 坐標(biāo)系統(tǒng)和顏色,提 要,9.2 圖形控件,9.3 常用繪圖方法,9.4 顯示圖片,9.1 坐標(biāo)系統(tǒng)和顏色 9.1.1 坐標(biāo)系統(tǒng),坐標(biāo)原點(diǎn)、坐標(biāo)度量單位、坐標(biāo)軸的長度與方向 1.坐標(biāo)度量單位(坐標(biāo)刻度) 由容器對象的ScaleMode屬性決定 如：在窗體上繪制控件及圖形，窗體為容器對象。,2.VB的缺省坐標(biāo)系統(tǒng),3.自定義坐標(biāo)系 方法一：設(shè)置對象的相關(guān)坐標(biāo)屬性,表9-2 坐標(biāo)屬性,【例9-1】在窗體的單擊事件中定義窗體Form1的坐標(biāo)系 Private Sub Form_Click() Cls Form1.ScaleLeft = -200 Form1.ScaleTop = 250 Form1.ScaleWidth = 500 Form1.ScaleHeight = -400 End Sub,方法二：采用Scale方法來設(shè)置坐標(biāo)系 對象. Scale(左上角坐標(biāo)) (右下角坐標(biāo)) 【例9-2】假定當(dāng)前對象為窗體Form1，則代碼： Me.Scale(-200,250) (300,-150) 采用的Scale方法所定義的坐標(biāo)系與例9-1是等效的,9.1.2 使用VB顏色,1.QBColor函數(shù) QBColor(color) color參數(shù)是介于015的整型值,表9-3 color參數(shù)的設(shè)置值所選擇的顏色,2.RGB函數(shù) RGB(R,G,B) R、G、B分別指明三原色中紅色、綠色、藍(lán)色的比例，它們的取值范圍為0255。,表9-4 常見的標(biāo)準(zhǔn)顏色RGB值,1.線條控件(Line) 在窗體、圖片框和框架中畫各種直線段。通過使用Line控件在窗體上可視化地安排直線的位置、長度、寬度、顏色等。 常用屬性： X1、X2、Y1和Y2 BorderStyle（邊框風(fēng)格）屬性 BorderWidth（線寬）屬性,9.2 圖形控件,2.形狀控件(Shape) Shape控件預(yù)定義了6種形狀，通過設(shè)置Shape屬性來實(shí)現(xiàn) 所需形狀。,表9-5 Shape屬性設(shè)置值及對應(yīng)的形狀,9.2.3 圖形控件與動畫,【例9-3】,Shape,Line,Timer,Timer1的Timer事件代碼： Private Sub Timer1_Timer() t = t + 1 Shape3.Left = x0 + Shape1.Tag * Cos(pi * t / 30) - 90 Shape3.Top = y0 - Shape1.Tag * Sin(pi * t / 30) - 90 Line1.X2 = Shape3.Left + 90 Line1.Y2 = Shape3.Top + 90 Line2.Y2 = y0 - Shape1.Tag * Sin(pi * t/30) -Sqr(Line2.Tag2 _ - (Shape1.Tag * Cos(pi * t / 30)2) Line2.X1 = Line1.X2 Line2.Y1 = Line1.Y2 Shape4.Top = Line2.Y2 - 200 End Sub,9.2.4 與圖形有關(guān)的屬性,表9-8 對象的圖形屬性,1.DrawMode屬性 決定繪制線條的真實(shí)顏色 對象. DrawMode =值 2.DrawWidth屬性和DrawStyle屬性 DrawWidth屬性用來設(shè)置繪圖線的寬度 對象. DrawWidth =值 DrawStyle屬性用于指定用圖形方式創(chuàng)建的線是實(shí)線還是虛線 對象. DrawStyle =值,DrawWidth屬性和DrawStyle屬性設(shè)置對應(yīng)的線寬和線型,3.FillColor屬性和FillStyle屬性 FillColor屬性為填充色和FillStyle屬性為填充樣式 對象. FillColor =值 對象. FillStyle =值,圖9-8 FillStyle屬性不同設(shè)置值的效果,9.3 常用繪圖方法 1.畫點(diǎn)方法(PSet) 可以在對象的指定位置(x,y)，按確定的像素顏色畫點(diǎn) 對象. Pset Step (x,y) ,顏色 【例9-4】使用PSet方法繪制阿基米德螺線,X=t*cost,Y=t*sint,For t = 0 To 12 Step 0.01 y = t * Sin(t) x = t * Cos(t) PSet (x, y)，vbRed Next t,圖9-9 用Pset方法繪制數(shù)學(xué)曲線,2.畫直線、矩形方法 畫直線、矩形方法可以在對象上的兩點(diǎn)之間畫直線或矩形 對象.Line Step x1,y1-Step(x2.y2) ,顏色 ,BF 【例9-5】 使用Line方法的不同參數(shù)畫出圖形,起始點(diǎn)坐標(biāo),終點(diǎn)坐標(biāo),畫菱形的左上邊 Line (ScaleLeft, my)-(mx, ScaleTop) 畫菱形的右上邊 Line -(ScaleWidth + ScaleLeft, my) 畫菱形的右下邊 Line -(mx, ScaleHeight + ScaleTop) 畫菱形的左下邊 Line -(ScaleLeft, my),3.畫圓方法 可以在容器對象上畫圓、橢圓或弧 對象. Circle Step (x,y), 半徑 , 顏色, 開始, 結(jié)束, 方位,Const pi = 3.1415926 Circle (1500, 1200), 1000, vbRed, -pi / 2, -2 * pi Circle Step(500, -500), 500 Circle Step(0, 0), 500, , , , 5 / 25,說明： (x,y) 指定圓、橢圓或弧的中心坐標(biāo) “開始”和“結(jié)束” 指定弧或扇形的起始點(diǎn)以及終點(diǎn)位置 方位 為垂直半徑與水平半徑之比，不能為負(fù)數(shù) 【例9-6】利用Circle方法在窗體中央畫出如圖9-11所示的圖形。,4.清除圖形方法 可以清除窗體或PictureBox等容器對象中由圖形和打印語句在運(yùn)行時所生成的圖形和文本。 語法: 對象. Cls 調(diào)用Cls之后，對象的CurrentX和CurrentY屬性復(fù)位為0(返回坐標(biāo)原點(diǎn))。,9.4 顯示圖片 圖片可以在三個對象中出現(xiàn) Form、PicutreBox、Image 1.直接加載圖片到窗體 使用窗體的Picture屬性 要在運(yùn)行時顯示或替換圖片，可利用函數(shù)LoadPicture來設(shè)置Picture屬性 LoadPicture(文件名) 注明： “文件名”是一個字符串表達(dá)式，包括驅(qū)動器、文件夾和文件的名稱，也可以使用App.Path獲得當(dāng)前路徑,2.使用圖像框(Image)控件 Picture屬性 LoadPicture函數(shù) Strech(伸展屬性) 【例9-7】設(shè)計(jì)一個窗體，在窗體上添加3個圖像框和2個命令按鈕。當(dāng)用戶單擊“交換”命令按鈕時，交換兩個圖像框中的圖形；單擊“結(jié)束”命令按鈕時，結(jié)束程序運(yùn)行。,程序界面設(shè)計(jì)及運(yùn)行結(jié)果,3.使用圖片框(PictureBox)控件 Picture AutoSize Image 【例9-8】利用圖片框（PictureBox）輸出圖形和文本。,4.使用滾動條控件(ScrollBar) 滾動條屬性(ValueLargeChangeSmallChange) 滾動條事件(ChangeScroll) 滾動條應(yīng)用 【例9-9】,水平滾動條(HScrollBar),垂直滾動條(VScrollBar),利用滾動條控制設(shè)置R(紅)、G(綠)、 B(藍(lán))三原色彩的調(diào)合比例并返回調(diào)合色彩的RG