《VisualBasic程式设计》由会员分享，可在线阅读，更多相关《VisualBasic程式设计（37页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程式設計講師：戴志華 hanaarbor.ee.ntu.edu.tw 國立台灣大學電機工程研究所1第七章 繪圖世界w繪圖函式 w繪圖控制項2Print函式wPrint:畫出文字nCurrentX:x座標值nCurrentY:y座標值For i=1 to 5print “CurrentX=”;CurrentX, _“CurrentY=”;CurrentY Next iForm的屬性 ，不用宣告3Print函式(contd)w改變CurrentX與CurrentY的值可以改變文 字的位置Randomize Cls For i=1 to 5CurrentX=Rnd()*Wi
2、dthCurrentY=Rnd()*Heightprint “test” Next i4座標系統w修改表單(form)的ScaleMode屬性可以改 變座標系統 w單位大小:表單(Form)的ScaleMode屬性 wScaleWidth, ScaleHeight wWidth, Heightx軸y軸(x,y)可由屬性視 窗修改5座標系統(contd)vbUser0由程式設計師自訂 vbTwips1每吋1440twips,每公分 567twips,每點20twips vbPoints2每吋72個point vbPixels3像素-螢幕上最小的單位 vbCharacter4字元 vbInches
3、5英吋 vbMillimeters6公厘 vbCentimeters7公分6座標系統(contd)屬性值值說 明0使用者自訂。當改變ScaleTop, ScaleLeft, ScaleHeight, ScaleWidth 值時，系統會自動設ScaleMode = 0 1以Twip為單位，1 Twip = 1/1440英吋(預設值)。2以點(Point)為單位，1點 = 1/72英吋。3以像素(Pixel)為單位，像素為螢幕上的基本單位。4以字元(Character)為單位，每個字元高1/6英吋，寬1/12 英吋。 5以英吋(inch)為單位。6以公厘(mm)為單位。7以公分(cm)為單位。7S
4、cale()語法：物件. Scale (x1 ，y1 )(x2 ，y2 ) 功能：設定物件內部坐標8Scale() wPrivate Sub Form_Load()Me.Scale (-100, 100)-(300,-100)End Sub(-100,100)(300,-100) 9利用Scale* 自訂座標系統w也可經由設定ScaleTop, ScaleLeft, ScaleWidth, ScaleHeight四個屬性來自訂 座標Form1.ScaleTop=-100Form1.ScaleLeft=-100Form1.ScaleWidth=400Form1.ScaleHeight=200 1
5、0Line函式:畫線wLine (x1,y1) (x2,y2), 顏色, BF w顏色:nvbRed, vbBlue, vbGreennRGB(R,G,B)RGB(0,0,255) w型式:n畫線n畫方框:Bn畫實心長方形:BF框線顏色使用ForeColor11Line函式:畫線(contd)Line (0,0)-(50,50) Line (10,30)-(60,60),vbRed Line (30,30)-(70,70),vbGreen,B Line (70,70)-(100,100),vbBlue,BF可試著改變 座標系統12顏色vbBlack黑0,0,0vbBlue藍0,0,255vbC
6、yan0,255,255vbGreen綠0,255,0vbYellow黃255,255,0vbWhite白255,255,255vbRed紅255,0,0vbMagenta255,0,255QBColor(i) :利用QBColor函數，以條狀圖來顯示顏色代碼 0-15所對應的顏色。 13顏色wRGB (Red, Green, Blue) : 使用RGB函數設定顏色 紅(R)綠(G)藍(B)白黃灰藍紫範例14Point 方法object. point (x, y) w傳回指定位置的色彩值：PointColor = Point (500, 500)15Circle函式:畫圓(橢圓)wCircle
7、 (x,y) ,r ,color,起始角度,結束角 度,比率n(x,y):圓心nr:半徑Private Sub form_click()Circle (50, 50), 30Circle (80, 80), 30Circle (100, 100), 20, vbRed, , , 2 End Sub以後的例子使用vbPixel模式16Circle函式:畫弧畫扇(contd)0 or 21/2 3/2 Dim PI As SinglePI = 3.14159Circle (50, 50), 30, , -PI/2, -PICircle (100, 100), 30, , -PI/2, PICirc
8、le (140, 140), 30, , PI/2, -PI17PSet:畫點wPSet(x,y),顏色18PSet:畫點 (contd)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) X2表示X的2次方 Next x End Sub
9、繪製一條拋物線，其方程式： X2 /10 (X為整數且- 10X10） 19PSet:畫點 (contd)20DrawStylew在屬性視窗在修改 wDrawStyle=vbSolidvbSolid 0vbDashDotDot4vbDash1vbInvisible5vbDot2vbInsideSolid6vbDashDot321FillStylevbFSSolid0vbUpwardDiagonal4vbFSTransparent1vbDownwardDiagonal5vbFSHorizontalLi ne2vbCrose6vbVerticaLine3vbDiagonalCross722Fill
10、Styl e值值說 明0實心1透明(預設值值)2水平線3垂直線4左上到右下的斜線5左下到右上的斜線6垂直交叉線7對角交叉線23例子Private Sub form_click()ForeColor = vbBlackFillColor = vbGreenLine (10, 10)-(30, 30), , BFLine (40, 40)-(60, 60), , BFillStyle = vbSolidLine (70, 70)-(90, 90), , BFillStyle = vbHorizontalLineLine (100, 100)-(120, 120), , BForeColor = v
11、bGreenLine (110, 110)-(130, 130), , B End Sub24小時鐘IIPrivate Sub Timer1_Timer()ClsDim hr, min, sec As IntegerConst PI As Single = 3.14159Dim x, y As Integerhr = Hour(Time)min = Minute(Time)sec = Second(Time)Circle (100, 100), 90程式還沒完喔25小時鐘II(contd)x = 100 + 60 * Cos(hr - 3) * (-360 / 12) _* (PI / 180
12、) + min/60 * (-360 / 12) _* (PI / 180)y = 100 - 60 * Sin(hr - 3) * (-360 / 12) _* (PI / 180) + min/60 * (-360 / 12) _* (PI / 180)Line (100, 100)-(x, y)x = 100 + 70 * Cos(min - 15) * (-360 / 60) _* (PI / 180)y = 100 - 70 * Sin(min - 15) * (-360 / 60) _* (PI / 180)Line (100, 100)-(x, y), vbBluex = 100
13、 + 80 * Cos(sec - 15) * (-360 / 60) _* (PI / 180)y = 100 - 80 * Sin(sec - 15) * (-360 / 60) _* (PI / 180)Line (100, 100)-(x, y), vbRed End Sub26小時鐘II(contd)31269 =-(hr-3)*(360/12)*(/180)2=360 。 1 。 = /180r*sin()r*cos()27Image控制項w使用控制項的好處：n不會被Cls清除n有分開的訊息n易於管理netcImageLineShape28Image控制項(contd)w屬性:nP
14、icture:用對話盒選取檔案nScretch:是否放大、縮小29Image控制項(contd)w支援的圖形格式GIF.gifCursor.curBitmap.bmpWindows meta file.wmfBitmap.dibEnhance WMF .emfIcon.icoJPEG.jpg30Line控制項w屬性：nBorderColor:線條顏色nBorderStyle:線條形式nBorderWidth:線條寬度nX1,Y1:線條起始點nX2,Y2:線條終點31BorderStylevbTransparent0vbBSSolid1vbBSDash2vbBSDot3vbBSDashDot4v
15、bBSDashDotDot5vbBSInsideSolid6注意：與 DrawStyle 相似，但 不同32例子Private Sub form_click()Line1.BorderWidth = 10Line2.BorderStyle = vbBSDotLine3.Visible = False End Sub33Shape控制項w改變Shape屬性值可以轉變成多種形狀 w其它屬性nBorderStylenBorderWidthnFillStylenvbShapeRectanglevbShapeCirclevbShapeOvalvbShapeRoundedRectanglevbShapeSquarevbShapeRoundedSquare3435習題w設計一個可以畫出二元二次方程式的圖 形,請自行設定PictureBox的座標系統史 琪左上角和右下角座標分別為(-100,500) 和(100,-500)3637
