VisualBasic程式設计.pptVIP

Visual Basic 程式設計 講師：戴志華 hana@arbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所 第七章 繪圖世界 繪圖函式 繪圖控制項 Print函式 Print:畫出文字 CurrentX:x座標值 CurrentY:y座標值 Print函式(cont’d) 改變CurrentX與CurrentY的值可以改變文字的位置 座標系統 修改表單(form)的ScaleMode屬性可以改變座標系統 單位大小:表單(Form)的ScaleMode屬性 ScaleWidth, ScaleHeight…… Width, Height…… 座標系統(cont’d) 座標系統(cont’d) Scale() 語法：[物件.] Scale [(x1 ，y1 )－(x2 ，y2 )] 功能：設定物件內部坐標 Scale() Private Sub Form_Load() Me.Scale (-100, 100)-(300,-100) End Sub 利用Scale** 自訂座標系統 也可經由設定ScaleTop, ScaleLeft, ScaleWidth, ScaleHeight四個屬性來自訂座標 Form1.ScaleTop=-100 Form1.ScaleLeft=-100 Form1.ScaleWidth=400 Form1.ScaleHeight=200 Line函式:畫線 Line (x1,y1) – (x2,y2)[, 顏色][, B[F]] 顏色: vbRed, vbBlue, vbGreen…… RGB(R,G,B)?RGB(0,0,255) 型式: 畫線 畫方框:B 畫實心長方形:BF Line函式:畫線(cont’d) 顏色 顏色 RGB (Red, Green, Blue) : 使用RGB函數設定顏色 Point 方法 [object.] point (x, y) 傳回指定位置的色彩值： PointColor = Point (500, 500) Circle函式:畫圓(橢圓) Circle (x,y) ,r [,color][,起始角度,結束角度][,比率] (x,y):圓心 r:半徑 Circle函式:畫弧畫扇(cont’d) PSet:畫點 PSet(x,y),顏色 PSet:畫點 (cont’d) Private Sub Form_Activate() Scale (-20, 20)-(20, -20) Line (-20, 0)-(20, 0), RGB(0, 0, 255) 畫x軸 Line (0, 20)-(0, -20), RGB(0, 0, 255) 畫y軸 DrawWidth = 3 設粗細 For x = -10 To 10 PSet (x, x ^ 2 / 10), RGB(255, 0, 0) X^2表示X的2次方 Next x End Sub PSet:畫點 (cont’d) DrawStyle 在屬性視窗在修改 DrawStyle=vbSolid FillStyle 例子 小時鐘II 小時鐘II(cont’d) 小時鐘II(cont’d) Image控制項 使用控制項的好處： 不會被Cls清除 有分開的訊息 易於管理 etc…… Image控制項(cont’d) 屬性: Picture:用對話盒選取檔案 Scretch:是否放大、縮小 Image控制項(cont’d) 支援的圖形格式 Line控制項 屬性： BorderColor:線條顏色 BorderStyle:線條形式 BorderWidth:線條寬度 X1,Y1:線條起始點 X2,Y2:線條終點 BorderStyle 例子 Shape控制項 改變Shape屬性值可以轉變成多種形狀 其它屬性 BorderStyle BorderWidth FillStyle …… 習題 設計一個可以畫出二元二次方程式的圖形,請自行設定PictureBox的座標系統史琪左上角和右下角座標分別為(-100,500)和(100,-500) 5 vbBSDashDotDot 6 vbBSInsideSolid 4 vbBSDashDot 3 vbBSDot 2 vbBSDash 1 vbBSSolid 0 vbTransparent 注意：與DrawStyle相似，但不同 Private Sub form_click() Line1.BorderWidth = 10 Line2.BorderStyle = vbBSDot Lin