VisualBasic程序設計第9章圖形設計.ppt

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