第十單元 程序.ppt

1、第十單元 圖形操作,第一節(jié) 圖形控件 1、直線空間Line 2、形狀控件shape 第二節(jié) 圖形方法 1、Pset方法畫點,1、直線控件 （P102 5.11） 直線（Line）控件主要用于在窗體、框架和圖片框上畫直線。設計時可通過屬性BorderWidth、BorderStyle的值確定線的寬度和形狀，運行時直線兩個端點的位置由位置屬性（x1，y1）指定起點坐標，（x2，y2）指定終點坐標確定。,第一節(jié) 圖形控件,5.11.1 直線的屬性,1）X1、Y1、X2、Y2屬性 設置（或返回）該直線的起點和終點的x坐標及y坐標。直線起點坐標的屬性為x1、y1，直線終點坐標的屬性為x2、y2。 2）B

2、orderWidth、BorderStyle、BorderColor屬性 （1） BorderStyle： 用來指定直線的類型。在屬性窗口的屬性表中，找到BorderStyle，單擊右端箭頭，有一個下拉菜單，列出下列7種類型。 0Transparent，透明的，即不顯示出線來。 1Solid，實線。 2Dash，虛線。 3Dot，點線。 4Dash-Dot，點畫線。 5Dash-Dot-Dot，雙點畫線。 6Inside Solid，內實線。,注意：只有當BorderWidth為1時才可以用以上7種類型的線，如果BorderWidth不為1，則上述7種類型中只有0和6有效。 （2） Borde

3、rWidth： 設置線寬。 （3） BorderColor： 設置顏色。 （4） x1、x2、y1、y2： 指定直線起點和終點的x坐標及y坐標?？梢酝ㄟ^改變x1、x2、y1、y2的值改變線的位置。,例5.14 在窗體上畫一系列不同的直線。在窗體上添加1個Line1控件數(shù)組Line1（0）Line1（4），再添加3個命令按鈕Command1 Command3（標題分別為“設置線寬”、“設置線型”、“設置線色”）。運行時單擊某一命令按鈕，分別將直線設置成不同的線寬運行界面如圖5.23所示，線型運行界面如圖5.24所示和線色運行界面如圖5.25所示。,單擊“設置線寬”命令按鈕，事件過程代碼如下： P

4、rivate Sub Command1_Click() For i = 0 To 4 Line1(i).BorderWidth = i + 3 Next i End Sub 單擊“設置線型”命令按鈕，事件過程代碼如下： Private Sub Command2_Click() For i = 0 To 4 Line1(i).BorderStyle = i + 1 Next i End Sub,單擊“設置線色”命令按鈕，事件過程代碼如下： Private Sub Command3_Click() For i = 0 To 4 Line1(i).BorderColor = QBColor(i +

5、8) Next i End Sub 其中：QBColor是顏色函數(shù)，當參數(shù)i為不同值時，給出不同的顏色。,形狀（Shape）控件主要用于在窗體、框架或圖片框上繪制常見預定義的幾何圖形。 1）Shape屬性 通過設置圖形（Shape）控件的Shape屬性，可以畫出矩形、正方形、橢圓形、圓形、圓角矩形或圓角正方形等多種圖形。該屬性值有6種情況： （1）0-表示vbShapeRectangle，即矩形（缺省值） （2）1-表示vbShapeSquare，即正方形 （3）2-表示vbShapeOval，即橢圓形,2、形狀控件 （書上P100）,（4）3-表示vbShapeCircle，即圓形 （5）4

6、-表示vbShapeRoundedRectangle，即圓角矩形 （6）5-表示vbShapeRoundedSquare，即圓角正方形 2）BorderWidth屬性 設置圖形邊界的寬度。 3）BorderStyle屬性 設置圖形控件畫線的樣式，該屬性值有7種情況： （1）0-表示vbTransparent，即透明線，忽略BorderWidth屬性。 （2）1-表示vbBSSolid，即實線（缺?。?邊框處于形狀邊緣的中心。,（3）2-表示vbBSDash，即虛線，當BorderWidth為1時有效。 （4）3-表示vbBSDot，即點線，當BorderWidth為1時有效。 （5）4-表示v

7、bBSDashDot，即點劃線，當BorderWidth為1時有效。 （6）5-表示vbBSDashDotDot，即雙點劃線，當BorderWidth為1時有效。 （7）6-表示vbBSInsideSolid，即內收實線，邊框的外邊界就是形狀的外邊緣。 4）BorderColor屬性 設置Shape控件的邊界顏色。 5）FillColor屬性 設置Shape控件的內部填充顏色。缺省值為0（黑色）。,6）FillStyle屬性 該屬性用于設置Shape控件的內部填充圖案樣式。該屬性值有8種情況： （1）0表示vbFSSolid，即實心 （2）1表示vbFSTransparent，即透明（缺省值）

8、 （3）2表示vbHorizontalLine，即水平直線 （4）3表示vbVerticalLine，即垂直直線 （5）4表示vbUpwardDiagonal，即正對角線 （6）5表示vbDownwardDiagonal，即反對角線 （7）6表示vbCross，即十字交叉線 （8）7表示vbDiagonalCross，即對角交叉線。,例 5.13 在窗體上畫一系列不同的形狀。在窗體上添加1個Label控件數(shù)組Label 1（0）Label（7），1個Shape控件數(shù)組Shape1（0）Shape（7），再添加4個命令按鈕Command1 Command4（標題分別為“設置形狀”、“設置顏色”、

9、“填充線條”和“退出”）。運行的效果界面如圖5.22所示,單擊“設置形狀”命令按鈕，事件過程代碼如下： Private Sub command1_Click() For i = 0 To 7 shape1(i).Shape = i Label1(i).Caption = i= & Str(i) Next i End Sub,單擊“設置顏色”命令按鈕，事件過程代碼如下： Private Sub command2_Click() For i = 0 To 5 shape1(i).FillStyle = 1 shape1(i).BackStyle = 1 shape1(i).BackColor =

10、QBColor(i) Label1(i).Caption = i= & Str(i) Next i End Sub,單擊“填充線條”命令按鈕，事件過程代碼如下： Private Sub command3_Click() For i = 0 To 7 shape1(i).FillStyle = i Label1(i).Caption = i= & Str(i) Next i End Sub 單擊“退出”命令按鈕，事件過程代碼如下： Private Sub command4_Click() End End Sub,1、Pset方法畫點 （書上P96） 用于畫點。其中，參數(shù)(x，y)為所畫點的坐標，關鍵字Step表示采用當前作圖位置的相對值。采用背景顏色可清除某個位置上的點。 格式：對象名稱.PsetStep(x，y),顏色 （1）參數(shù)（X，Y）為所畫點的坐標。 （2）Step是可選項，選擇該項則表示該坐標（X，Y）是相對坐標，否則是絕對坐標。 （3）顏色也是可選項，省略該項則采用容器的前景色畫點；如果使用背景顏色則可清除某個位置上的點。,第二節(jié) 圖形方法,例 5.8 在窗體中從坐標原點處開始連續(xù)畫10個紅色的點，每個點距離上一個點的相對位置為水平、垂直方向各10個像