vb程序設計第8章圖形程序設計(完整版)

　　

【正文】 顏色的函數 RGB（）和QBColor（）。 （ 2）圖形層 Visual Basic在構造圖形時，在三個不同的屏幕層次上放置可視的組成部分。而每個容器都有自己的一個坐標系，構成一個坐標系要包含三個基本要素，那就是：坐標原點、坐標度量單位和坐標軸的長度和方向。 Scale方法用于定義 Form、 PictureBox或 Printer的坐標系統，其語法格式為： [對象 ].Scale (x1,y1)(x2,y2) 其中： 對象為可選項，它可以是 Form、 PictureBox或 Printer對象。 Zorder方法的語法格式為： [Object.]Zorder [position] 其中： Object為要調整的窗體或其他控件對象。 （ 1）直線控件 直線控件（ Line）可以用來在窗體或圖片框上畫直線。 （ 2） Circle方法 Circle方法的基本功能是在窗體或圖片框上繪制圓、橢圓、弧或扇形。它的語法格式如下： [對象 .]Pset [Step] (x ,y ) [,color] 其中： 對象是調用 Pset方法的對象名稱。 x1,y1指定在對象上繪制 picture的目標坐標，即目標矩形區域的左上角坐標，它可以是目標控件的任意位置。分別用來在窗體或圖片框上畫直線和矩形、正方形、橢圓、圓、圓角矩形及圓角正方形 熟悉利用 Line畫圖的方法，說出下面幾個語句的含義。 PaintPicture方法常常用來從一個窗體或圖片框控件中向另一個對象復制一個矩形區域的像素。 ☆ 掌握利用 PaintPicture方法實現像素操作的方法。 圖 82 參考代碼： Private Sub Form_Click() Dim i As Integer For i = 1 To 100 Randomize CurrentX = Rnd() * CurrentY = Rnd() * (0, 0) Next i End Sub 【 實訓 】 在窗體上畫出螺旋線，如圖 83所示。建立新坐標系 (2 * pi, 0)(2 * pi, 0) 39。 提示：在窗體上添加時鐘控件（ timer1）、直線控件數組（ Line1，只畫出 line1（ 0），長度、位置任意）。 A．圖像框 B．標簽 C．圖片框 D．文本框 答案： C 2．下列關于坐標系的說法錯誤的是 。 A．從坐標（ 0， 0）至坐標（ 100,200）的一條線段。 B．若要使用 B，則必須使用 F。 D．窗體上由 PaintPicture方法復制的圖形。如圖 810所示。 圖 812 1．參考代碼： Private Sub Form_Load() = 1000 = 8000 = 6000 = vbBlue = vbYellow = 0 = vbYellow = vbBlue = 0 = vbBlue End Sub Private Sub Form_Resize() = 2022 = + = End Sub Private Sub Timer1_Timer() Dim i As Integer = vbBlue = vbYellow For i = 1 To 100 CurrentX = Rnd * CurrentY = Rnd * Print ★ Next i If Then = 50 Else = + End If End Sub ２．畫出如圖 813所示的太極圖。 繪制如圖 811所示的圖形。 A． Shape B． FillStyle C． DrawStyle D． BorderStyle 答案： A 12．若要使窗體在被其他窗體覆蓋后，再次顯現時，能重新繪制窗體上的所有圖形，應該令 屬性為 True。 D． B和參數 F連續使用時，必須用逗號分開。 C．從坐標（ CurreX， CurrentY）至坐標（ 100,200）的一條線段。 B．若要在窗體上畫出規則的圖形，必須先自定義坐標系。畫出表盤 12個點和時、分、秒共 15個 Line For i = 0 To 14 If i 0 Then Load Line1(i) Line1(i).Visible = True Line1(i).BorderWidth = 5 Line1(i).BorderColor = RGB(0, 128, 0) 39。繪制 y軸 CurrentX = 2 * pi CurrentY = (Sin(CurrentX) + Cos(2 * CurrentX)) / 2 For i = 2 * pi To 2 * pi Step 39。 提示：在窗體上添加圖片框（ picture1）、兩個命令按鈕（ mand1和 mand2），命令按鈕的 Caption屬性分別設置為“同心圓”和“同心矩形”。程序運行白球和黑球分別向右和左運動，當兩球相撞后，分別向相反方向運動，如圖 81所示。目標圖形的大小，可以通過目標圖形與源圖像大小的比例而得，即如果目標圖形比源圖形大，就可得到放大的圖形。 熟悉利用 Circle畫圖的方法，說出下面幾個語句的含義（ pi = ）。 x2,y2指定 picture內剪貼區的位置，即傳送圖形矩形的左上角坐標。 Color用來指定點的顏色。 (x ,y )用來指定圓心坐標。 （ 2）形狀控件 形狀控件（ Shape）可以用來畫矩形、正方形、橢圓、圓、圓角矩形及圓角正方形， 6種圖形分別對應其 Shape屬性的 0~5的 6個屬性值。如果 Position為 0或被省略，則 Object位于 Z順序的前面；如果 Position為 1，則 Object位于 Z順序