繪圖投影片.pptVIP

Graphics物件 VB繪圖功能依賴Graphics物件，當在表單或控制項建立當在表單或控制項建立Graphics物件後，就可以將表單或控制項轉換成畫布，在畫布上繪出所需的圖形。 由Paint事件建立畫布 CreateGraphics()方法建立畫布 由Paint事件產生畫布 在表單或控制項上繪圖時，就會觸發Paint事件，在Paint事件處理程序的PaintEventArgs參數可以取得Graphics物件。 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 CreateGraphics()方法建立畫布 如果沒有使用Paint事件處理程序，我們可以在其他事件處理程序使CreateGraphics()方法來建立Graphics物件。例如：表單物件。例如：表單Form1的Click事件處理程序，如下所示： Private Sub Form1_Click(ByVal sender As _ Object, ByVal e As System.EventArgs) _ Handles Me.Click 建立Graphics方法二 Dim gg As Graphics = Me.CreateGraphics() End Sub 繪圖工具說明 在在VB表單或控制項建立好畫布後，我們在開始繪圖前，需要一些繪圖工具，如下 建立畫筆 我們要繪圖前，我們需要建立畫筆，請使用Pen物件，我們利用New關鍵字建立Pen物件，如下所示： 建立畫筆 Dim pen1 As Pen = New Pen(Color.Red, 1) 建立筆刷--筆刷Brush 筆刷可以填滿圖形或顯示文字，其常用的類別如下表所示： Dim brush1 As SolidBrush = New SolidBrush(Color.Blue) 繪出文字和圖形 繪出填滿圖形 * 建立繪圖的畫筆，可以指定畫筆的色彩和寬度 Pen物件 填滿圖形的筆刷 Brush物件 在繪出文字內容時，使用的字型與其樣式 Font物件 設定繪圖時使用的色彩 Color結構 說明 物件與結構 建立圖片紋理的筆刷，可以使用圖片檔案來填滿圖形 TextureBrush 建立單一色彩的筆刷 SolidBrush 說明 類別 使用Pen畫筆在(x, y)座標的長方形左上角，寬width和高height的長方形中繪出橢圓形 DrawEllipse(Pen, x, y, width, height) 使用Pen畫筆以第2個參數Point物件陣列的座標繪出多邊形 DrawPolygon(Pen, Points) 使用Pen畫筆在(x, y)座標的長方形左上角繪出寬width和高height的長方形 DrawRectangle(Pen, x, y, width,height) 使用Pen畫筆從(x1, y1)座標到(x2, y2)座標繪出一條直線 DrawLine(Pen, x1, y1, x2, y2) 使用Pen畫筆在(x, y)座標的長方形左上角，寬width和高height的長方形中，繪出從startAngle開始共sweepAngle角度的弧形 DrawArc(Pen, x, y, width, height,startAngle, sweepAngle) 在參數(x, y)位置使用Font物件的字型和Brush筆刷繪出參數String的文字內容 DrawString(String, Font, Brush, x, y) 說明 方法 使用Brush畫筆在(x, y)座標的長方形左上角，寬width和高height的長方形中，繪出填滿的橢圓形 DrawEllipse(Brush, x, y, width,height) 使用Brush筆刷在(x, y)座標的長方形左上角，寬width和高height的長方形中，繪出從startAngle開始共sweepAngle角度的填滿扇形 DrawPie(Brush, x, y, width, height,startAngle, sweepAngle) 使用Brush筆刷以第2個參數Point物件陣列的座標繪出填滿的多邊形 FillPolygon(Brush, Points) 使用Brush筆刷在(x, y)座標的長方形左上角繪出