VB-09 绘图.ppt

VB程式語言 VB-09 繪圖 課程介紹 課程介紹 坐標單位 顏色設定 PSet方法 Line方法 Circle方法 Point方法 直線(Line) 形狀(Shape) 課程介紹 座標系統 預設原點在視窗左上方 座標系統 ScaleMode屬性 表單、圖片方塊和印表機三種物件專有的屬性 座標系統 座標系統 座標系統 座標系統 座標相關的屬性說明 座標單位 Scale方法 語法： [物件.] Scale [(x1 ，y1 )－(x2 ，y2 )] 功能：設定物件內部坐標。 可用在表單、圖片方塊或印表機中。 座標單位 Scale語法對應關係 x1 ：ScaleLeft的屬性值。 y1 ：ScaleTop的屬性值。 x2 - x1 ：ScaleWidth的屬性值。 y2 - y1 ：ScaleHeight的屬性值。 座標單位 CurrentX 、 CurrentY屬性 語法一： [物件.] CurrentX = X[物件.] CurrentY = Y 功能：設定欲顯示文字或圖形起始點之坐標值 語法二： X = [物件.] CurrentXY = [物件.] CurrentY 功能：取得目前坐標點所在的坐標值 坐標單位 CurrentX, CurrentY使用說明 可用於表單、圖片方塊或印表機中。 只能於程式執行階段中設定，無法在程式設計階段中設定。 若在Line方法執行後，CurrentX,CurrentY是指直線終點坐標。若在Circle方法後，是指圓心的坐標。 座標系統 範例A：座標模式轉換 表單 習作範例 程式 習作範例 程式 習作範例 執行 定位 語法： [物件.] PSet (x, y) [,Color] 功能： 繪製一個指定顏色的點在表單、圖片方塊或印表機物件上。 取點 語法：[物件.] Point (x,y) 功能：取得表單或圖片方塊物件中特定點的顏色值。 直線 語法： 直線： [物件.] Line (x1,y1)-(x2,y2) [物件.] Line -(x2,y2) [物件.] Line (x1,y1)-[Step](x2,y2) 功能：繪製直線，方框或方塊在表單、圖片方塊或印表機物件上。 直線 語法： 直線： [物件.] Line [(x1,y1)]-[Step](x2,y2) ,[Color] 方框： [物件.] Line [(x1,y1)]-[Step](x2,y2),[Color],B 方塊： [物件.] Line [(x1,y1)]-[Step](x2,y2),[Color],BF 直線 繪直線時常使用的屬性 直線 範例B：繪製各種線形 表單 習作範例 程式 習作範例 執行 直線 範例C. 鑽石圖 表單 習作範例 程式 習作範例 執行 直線 範例D1 ：繪製拋物線，方程式： 表單 習作範例 程式 習作範例 執行 直線 範例D2 ：繪製正弦函數 y = sin(x) 表單 習作範例 程式 習作範例 執行 圓 語法： 1.圓形：[物件.]Circle(x，y)，r，[C] 2.圓弧：[物件.]Circle(x，y)，r，[C]，d1，d2 3.扇形：[物件.]Circle(x，y)，r，[C]，-d1，-d2 4.橢圓：[物件.]Circle(x，y)，r，[C]，，，a 5.橢圓弧：[物件.]Circle(x，y)，r，[C]，d1，d2，a 功能：繪製正圓、橢圓、弧線或扇形在指定的表單、圖片方塊或印表機等物件上。 圓 扇形繪製：在d1,d2前面加負號，則會由該角度的圓周上連一條線到圓心。 橢圓繪製： a：軸向比，即垂直方向的半徑長除以水平方向半徑長值。 當a=1時畫出圓為正圓。 當a1時為瘦長的橢圓（垂直軸較長，r為垂直方向半徑長）。 當a1時則為扁平的橢圓（水平軸較長，r為水平半徑長）。 圓 範例E：圓弧圖案 表單 習作範例 程式 習作範例 執行 形狀控制項 形狀控制項常用屬性 形狀控制項 Shape屬性 形狀控制項 FillStyle屬性 形狀控制項 DrawMode屬性 特定形狀 顏色覆蓋模式 Private Sub Form_Activate() shpUp1.DrawMode = 4 shpUp2.DrawMode = 9 shpUp3.DrawMode = 11 shpUp4.DrawMode = 15 End Sub 特定形狀 範例F：大餅圖 表單 習作範例 程式 習作範例 執行 滑鼠事件 MouseMove 物件或表單上移動滑鼠時觸發 Private Sub物件_MouseMove(Button As Integer, Shift As Integer,