第十一章多表单与模组设计.ppt

第12章 繪圖與多媒體 12-1 繪圖的基礎 12-2 繪出文字和圖形 12-3 載入與顯示圖形檔案 12-4 建立多媒體的動畫效果 12-5 應用實例：螢幕保護程式 12-1 繪圖的基礎 12-1-1 繪圖的座標 12-1-2 建立畫布 12-1-3 建立畫筆和筆刷 12-1-1 繪圖的座標 在電腦螢幕的座標系統是以「像素」（Pixels）為單位，在表單顯示區域或控制項建立的畫布，它是一張長方形區域，其左上角為原點，座標是(0, 0)，X軸從左到右，Y軸由上到下，如下圖所示： 12-1-2 建立畫布-說明 Visual Basic繪圖功能是Graphics物件，當在表單或控制項建立Graphics物件後，就可以將表單或控制項轉換成畫布，在畫布上繪出所需的圖形。 12-1-2 建立畫布-建立Paint事件的畫布 在表單或控制項上繪圖時，就會觸發Paint事件，在Paint事件處理程序的PaintEventArgs參數可以取得Graphics物件。 表單Form1的Paint事件處理程序，如下所示： Private Sub Form1_Paint(sender As Object, e As _ PaintEventArgs) Handles Me.Paint Dim g As Graphics = e.Graphics g.Clear(Color.Blue) ‘ 繪圖方法的程式碼 ……… End Sub 12-1-2 建立畫布-CreateGraphics()方法建立畫布 如果沒有使用Paint事件處理程序，我們可以在其他事件處理程序使用CreateGraphics()方法來建立Graphics物件。例如：表單Form1的Click事件處理程序，如下所示： Private Sub Form1_Click(sender As Object, _ e As EventArgs) Handles Me.Click Dim g As Graphics = Me.CreateGraphics() ‘ 繪圖方法的程式碼 ……… End Sub 12-1-2 建立畫布-Visual Basic專案 Visual Basic專案：Ch12-1-2 在Windows應用程式分別使用Paint事件和CreateGraphics()方法建立表單和標籤控制項的畫布，然後在畫布範圍繪出彩色框線，如下圖所示： 12-1-3 建立畫筆和筆刷-說明 在Visual Basic表單或控制項建立好畫布後，我們在開始繪圖前，需要一些繪圖工具，其相關物件與結構如下表所示： 12-1-3 建立畫筆和筆刷-色彩Color結構 Visual Basic指定色彩是使用Color結構屬性（關於Visual Basic結構的說明請參閱附錄A-8節），如下所示： g.Clear(Color.LightGray) 上述程式碼指定色彩為淡灰色。常用色彩結構屬性說明，如下表所示： 12-1-3 建立畫筆和筆刷-字型Font物件 字型是Font類別的物件，需要使用New運算子建立，如下所示： Dim font As Font = New Font(標楷體, 14, FontStyle.Bold) 上述程式碼建立Font物件font，使用的是類別建構子（即建立物件的方法，詳細說明請參閱附錄A-2-3節），其參數依序是字型名稱、字型尺寸和樣式，樣式是FontStyle列舉常數。 12-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 12-1-3 建立畫筆和筆刷-筆刷Brush物件1 筆刷可以填滿圖形或顯示文字，其常用的類別如下表所示： 12-1-3 建立畫筆和筆刷-筆刷Brush物件2 同樣的，Brush物件也需要使用New運算子來建立藍色的SolidBrush筆刷，如下所示： Dim brush1 As SolidBrush = _ New SolidBrush(Color.Blue) 如果使用TextureBrush類別，就可以使用圖檔來建立筆刷，如下所示： Dim brush2 As TextureBrush = _ New TextureBrush( _ New Bitmap(\範例程式\Ch12\back.bmp)) 12-1-3