第十一章繪圖與多媒體.pptVIP

第11章 繪圖與多媒體 11-1 繪圖的基礎 11-2 繪出文字和圖形 11-3 圖片檔案的載入與顯示 11-4 動畫效果 11-5 應用實例：螢幕保護程式 11-1 繪圖的基礎 11-1-1 繪圖的座標 11-1-2 建立畫布 11-1-3 建立畫筆和筆刷 11-1-1 繪圖的座標 在電腦螢幕的座標系統是以「像素」（Pixels）為單位，在表單顯示區域或控制項建立的畫布，它是一張長方形區域，其左上角為原點，座標是 0, 0 ，X軸從左到右，Y軸由上到下，如下圖所示： 11-1-2 建立畫布-說明 Visual Basic繪圖功能是Graphics物件，當在表單或控制項建立Graphics物件後，就可以將表單或控制項轉換成畫布，在畫布上繪出所需的圖形。 11-1-2 建立畫布-建立Paint事件的畫布 在表單或控制項上繪圖時，就會觸發Paint事件，在Paint事件處理程序的PaintEventArgs參數可以取得Graphics物件。例如：表單Form1的Paint事件處理程序，如下所示： Private Sub Form1_Paint ByVal sender As Object, _ ByVal e As _ System.Windows.Forms.PaintEventArgs _ Handles Me.Paint Dim g As Graphics e.Graphics g.Clear Color.Blue ‘ 繪圖方法的程式碼 ……… End Sub 11-1-2 建立畫布-CreateGraphics 方法建立畫布 如果沒有使用Paint事件處理程序，我們可以在其他事件處理程序使用CreateGraphics 方法來建立Graphics物件。例如：表單Form1的Click事件處理程序，如下所示： Private Sub Form1_Click ByVal sender As Object, _ ByVal e As System.EventArgs Handles Me.Click Dim g As Graphics Me.CreateGraphics ‘ 繪圖方法的程式碼 ……… End Sub 11-1-3 建立畫筆和筆刷-說明 在Visual Basic表單或控制項建立好畫布後，我們在開始繪圖前，需要一些繪圖工具，其相關物件與結構如下表所示： 11-1-3 建立畫筆和筆刷-畫筆Pen物件 在使用Graphics物件的方法繪圖前，我們需要建立畫筆Pen物件，請使用New關鍵字建立Pen物件，如下所示： Dim pen As Pen New Pen Color.Red, 1 在建立好Pen物件後，就可以在程式碼使用Color和Width屬性更改畫筆物件的色彩與寬度，如下所示： pen.Width 3 pen.Color Color.Green 11-1-3 建立畫筆和筆刷-筆刷Brush物件1 筆刷可以填滿圖形或顯示文字，其常用的類別如下表所示： 11-1-3 建立畫筆和筆刷-筆刷Brush物件2 同樣的，Brush物件也需要使用New關鍵字來建立，如下所示： Dim brush1 As SolidBrush _ New SolidBrush Color.Blue 上述程式碼建立藍色的SolidBrush筆刷，建構子參數是色彩Color結構。 如果使用TextureBrush類別，就可以使用圖檔來建立筆刷，如下所示： Dim brush2 As TextureBrush _ New TextureBrush _ New Bitmap C:\範例程式\Ch11\back.bmp 11-2 繪出文字和圖形 11-2-1 繪出文字與線條 11-2-2 繪出長方形與多邊形 11-2-3 繪出弧線與橢圓形 11-2-4 繪出填滿圖形 11-2-5 位移、縮放和旋轉畫布 11-2-1 繪出文字與線條 Graphics物件繪出文字與線條的方法，如下表： 11-2-2 繪出長方形與多邊形-方法 Graphics物件繪出長方形與多邊形的方法，如下表所示： 11-2-2 繪出長方形與多邊形- DrawPolygon 方法 DrawPolygon 方法需要使用Point物件陣列的座標，每一個Point物件是一個端點座標，如下所示： Dim arrPoint As Point _ New Point 170, 30 , _ New Point 180, 120 , _ New Point 250, 100 上述程式碼Point類別的建構子參數是 x, y 座標，在建立好Point物件陣列後，DrawPolygon 方法只是將座標使用Pen物件的畫筆，以