VB程序設(shè)計電子教案-第8章：圖形程序設(shè)計

第8章圖形程序設(shè)計圖形程序設(shè)計根底常用畫圖方法動畫程序設(shè)計初步本章學習目標正確理解坐標系及其相關(guān)概念，并掌握自定義坐標系的方法能運用相關(guān)屬性與方法繪制簡單圖形能實現(xiàn)圖像的選取、旋轉(zhuǎn)、縮放等簡單處理了解動畫程序設(shè)計的根本方法，并能進行簡單的動畫編程圖形程序設(shè)計根底坐標系統(tǒng)顏色的運用坐標系統(tǒng)系統(tǒng)坐標系坐標系統(tǒng)的三個要素：坐標原點、坐標度量單位和坐標軸的方向。用戶自定義坐標系與坐標系相關(guān)的屬性屬性功能ScaleLeft設(shè)置或返回當前坐標系的左邊界值，缺省為0ScaleTop當前坐標系的上邊界值，缺省為0ScaleWidth當前坐標系的橫坐標的最大值，與坐標系統(tǒng)使用的單位有關(guān)ScaleHeight當前坐標系的縱坐標的最大值，與坐標系統(tǒng)使用的單位有關(guān)ScaleMode定義坐標系統(tǒng)的度量單位CurrentXCurrentY光標當前的坐標用戶自定義坐標系的方法通過設(shè)置與坐標系相關(guān)的屬性實現(xiàn)通過Scale方法來實現(xiàn)設(shè)置相關(guān)屬性實現(xiàn)自定義坐標系例如，下面的代碼可實現(xiàn)將窗體大小設(shè)置為屏幕的70%，坐標原點設(shè)置在窗體Form1的中央，且X軸的向右及Y軸的向下為正向。PrivateSubForm_Load()Form1.Width=Screen.Width*0.7'窗體的寬度是屏幕寬度的70%Form1.Height=Screen.Height*0.7'窗體的高度是屏幕高度的70%ScaleWidth=Form1.Width'窗體坐標系的橫坐標最大值與窗體的寬度相同ScaleHeight=Form1.Height'窗體坐標系的縱坐標最大值與窗體高度相同F(xiàn)orm1.ScaleLeft=-Int(ScaleWidth/2)'設(shè)置窗體對象的中點為坐標系原點Form1.ScaleTop=-Int(ScaleHeight/2)‘用Form1.ScaleTop=Int(ScaleHeight/2便可設(shè)置Y軸的向上方向為正向EndSub通過Scale方法實現(xiàn)自定義坐標系例如，下面的代碼可實現(xiàn)將坐標原點設(shè)置在窗體工作區(qū)中央，繪圖區(qū)域為640*480，單位是像素，且橫軸的向右方向及縱軸的向上方向為正方向。PrivateSubForm_Load()Form1.ScaleMode=3Form1.Scale(-320,240)-(320,-240)EndSub顏色的運用用RGB函數(shù)用QBColor函數(shù)用顏色常數(shù)直接賦值常用畫圖方法根本的畫圖方法簡單畫圖程序?qū)嵗龍D像簡單處理應(yīng)用實例根本的畫圖方法去除控件中的所有圖形：[對象.]cls畫點：[對象.]Pset(x,y)[,color][對象.]PsetStep(x,y)[,color]獲得指定點的顏色：[對象.]Point(x,y)畫線、矩形[對象.]Line[Step](x1,y1)-[Step](x2,y2)[,color],[B]/[BF]畫圓〔弧〕、橢圓簡單畫圖程序?qū)嵗緦嵗?-1】利用Line畫線方法繪制逐漸旋轉(zhuǎn)縮小的正方形。圖像簡單處理應(yīng)用實例【實例8-2】實現(xiàn)圖像的縮放、旋轉(zhuǎn)和區(qū)域保存。動畫程序設(shè)計初步動畫程序設(shè)計的根本方法通過不斷地重畫、擦除來實現(xiàn)；通過窗體、PictureBox控件的PaintPicture方法實現(xiàn)；通過圖形控件的移動〔Move)方法實現(xiàn)；利用API函數(shù)實現(xiàn)高質(zhì)量的動畫；簡單動畫實例簡單動畫實例【實例8-3】點擊窗體上的“開始”按鈕就可從窗體左上角開始自動地移動一個紅色實心圓，假設(shè)遇窗體邊界那么自動反彈。實現(xiàn)分析總的設(shè)計思想是：利用定時器自動進行繪圖、擦除圓，窗體上只需一個定時器控件，并設(shè)置時間間隔。小球遇窗體邊框的判斷假設(shè)：x