第8章-VB圖形操作

1、1Visual Basic Visual Basic 程序設(shè)計(jì)教程程序設(shè)計(jì)教程主講教師：主講教師：高等教育高等教育“十一五十一五”規(guī)劃教材規(guī)劃教材2目目 錄錄 VB VB程序設(shè)計(jì)概述程序設(shè)計(jì)概述1VBVB可視化編程基礎(chǔ)可視化編程基礎(chǔ)2VBVB語言基礎(chǔ)語言基礎(chǔ)3VBVB程序控制結(jié)構(gòu)程序控制結(jié)構(gòu)4數(shù)數(shù) 組組53目目 錄錄過過 程程6應(yīng)用程序界面設(shè)計(jì)應(yīng)用程序界面設(shè)計(jì)7VBVB圖形操作圖形操作8VBVB文件操作文件操作9VBVB數(shù)據(jù)庫(kù)編程數(shù)據(jù)庫(kù)編程104第第8 8章章 VBVB圖形操作圖形操作l要點(diǎn)提示要點(diǎn)提示圖圖形控件形控件 坐坐標(biāo)標(biāo)系系統(tǒng)統(tǒng) 繪圖屬繪圖屬性性 繪圖繪圖方法方法 5第第8 8章章 V

2、BVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件 在在VBVB中中與圖與圖形有形有關(guān)關(guān)的的標(biāo)標(biāo)準(zhǔn)控件有準(zhǔn)控件有4 4種種，即，即圖圖形框形框（PictureBoxPictureBox）、）、圖圖像框（像框（ImageImage）、直）、直線線（LineLine）和形）和形狀狀（ShapeShape），），為應(yīng)為應(yīng)用程序用程序創(chuàng)創(chuàng)建建圖圖形效果提供了方便的工具。形效果提供了方便的工具。 圖圖形框和形框和圖圖像框的主要功能是像框的主要功能是顯顯示示圖圖形，形，它們它們都可以都可以顯顯示示.bmp.bmp、.ico.ico、.wmf.wmf、.gif.gif、.jpg.jpg等等類類型的文件

3、。型的文件。6第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.1 圖形框圖形框 圖形框（PiceureBox）顯示的圖形是由Picture屬性決定的，Picture屬性可設(shè)置被顯示圖形的可選路徑名和文件名。 圖形框控件也可以作為其他控件的容器，像框架（Frame）控件一樣，可以在圖形框控件上放置其他控件。 7第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.1 圖形框圖形框（1 1）圖形框?qū)傩裕﹫D形框?qū)傩?Picture屬性。用于設(shè)置需要顯示的圖形文件。 p 在設(shè)計(jì)狀態(tài)直接設(shè)置Picture屬性。p 在程序運(yùn)行時(shí)，使用LoadP

4、icture函數(shù)裝入圖形文件。格式：圖形框圖形框.Picture = LoadPicture（“圖形文件名圖形文件名”）如果要在程序運(yùn)行時(shí)刪除圖形，也要使用LoadPicture函數(shù)。格式圖形框圖形框.Picture = LoadPicture（ ）8第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.1 圖形框圖形框（1 1）圖形框?qū)傩裕﹫D形框?qū)傩?AutoSize屬性。說明控件是否自動(dòng)調(diào)整大小，以完整顯示圖形。 CurrentX和CurrentY屬性。用來返回或設(shè)置下一個(gè)輸出的水平（CurrentX）或垂直（CurrentY）坐標(biāo)。格式： 對(duì)象對(duì)象.Curre

5、ntX= x 對(duì)象對(duì)象.CurrentY= y 9第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.1 圖形框圖形框【例例8.18.1】 設(shè)計(jì)設(shè)計(jì)一一個(gè)隨個(gè)隨機(jī)機(jī)顯顯示示圖圖片和文字的程序。片和文字的程序。Private Sub Form_Load() 初始化Command1.Caption = 隨機(jī)文字Command2.Caption = 隨機(jī)圖像Command3.Caption = 退出Form1.ScaleMode = 1Picture1.ScaleMode = 1Picture2.Picture = LoadPicture(C:pic3.jpg) 裝載圖

6、片End Sub10第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.2 圖像框圖像框圖形框和圖像框的主要區(qū)別。圖形框除了可以顯示圖形外，圖形框除了可以顯示圖形外，還可以作為其他控件的容器，還可以作為其他控件的容器，類似于框架控件，其中的控件類似于框架控件，其中的控件可以隨著圖形框的移動(dòng)而移動(dòng)?？梢噪S著圖形框的移動(dòng)而移動(dòng)。但是圖像框不能作為容器。同但是圖像框不能作為容器。同時(shí)圖形框控件支持時(shí)圖形框控件支持VBVB圖形方法，圖形方法，用戶可以通過剪貼板給圖形框用戶可以通過剪貼板給圖形框控件添加圖形?？丶砑訄D形。圖像框沒有圖像框沒有AutosizeAutosize

7、屬性，但屬性，但是有是有StretchStretch屬性。同時(shí)，圖屬性。同時(shí)，圖像框占用內(nèi)存比圖形框少，顯像框占用內(nèi)存比圖形框少，顯示速度快。圖像框只支持圖形示速度快。圖像框只支持圖形框控件的一部分屬性、事件和框控件的一部分屬性、事件和方法。例如，圖像框控件不支方法。例如，圖像框控件不支持持PrintPrint方法方法。11第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.2 圖像框圖像框【例例8.28.2】 設(shè)計(jì)設(shè)計(jì)一一個(gè)動(dòng)態(tài)個(gè)動(dòng)態(tài)放大、放大、縮縮小小圖圖片的程序片的程序。Dim a As BooleanPrivate Sub Form_Load() Imag

8、e1.Picture = LoadPicture(C:pic1.bmp) 裝載圖片文件End SubPrivate Sub Command1_Click() 放大按鈕 Timer1.Enabled = True a = TrueEnd Sub12第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.3 直直 線線利用直線控件，可以畫出水平線、垂直線、對(duì)角線，通過屬性的設(shè)置利用直線控件，可以畫出水平線、垂直線、對(duì)角線，通過屬性的設(shè)置可以改變線的粗細(xì)、顏色和樣式?？梢愿淖兙€的粗細(xì)、顏色和樣式。直線（直線（Line）控件常用屬性除了具有）控件常用屬性除了具有Name、Vi

9、sible等標(biāo)準(zhǔn)屬性外，等標(biāo)準(zhǔn)屬性外，還具有以下屬性。還具有以下屬性。 X1、Y1、X2、Y2屬性。表示直線控件的起始點(diǎn)（屬性。表示直線控件的起始點(diǎn)（X1, Y1）和終止）和終止點(diǎn)（點(diǎn)（X2, Y2）的坐標(biāo)。）的坐標(biāo)。 BorderColor屬性。設(shè)置直線的顏色。屬性。設(shè)置直線的顏色。 BorderStyle屬性。設(shè)置直線的樣式。屬性。設(shè)置直線的樣式。 13第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.3 直直 線線【例例8.38.3】 Line Line控件示例。控件示例。Dim i As Integer, j As Integer, k As Integ

10、erPrivate Sub Command1_Click() 改變線形 i = i + 1 If i 6 Then i = 0 直線BorderStyle屬性值為06 Line1.BorderStyle = i 為直線的BorderStyle屬性賦值 Select Case I 顯示當(dāng)前直線控件的線形 Case 0: Label1.Caption = 透明線 Case 1: Label1.Caption = 實(shí)線14第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.4 形狀控件形狀控件 形狀（形狀（Shape）控件也是在窗體或容器控件中顯示圖形的，但它可）控件也

11、是在窗體或容器控件中顯示圖形的，但它可以顯示矩形、正方形、圓形等圖形。形狀控件的常用屬性如下。以顯示矩形、正方形、圓形等圖形。形狀控件的常用屬性如下。 BackColor屬性。設(shè)置圖形的背景色。屬性。設(shè)置圖形的背景色。 BackStyle屬性。設(shè)置圖形的背景樣式是否透明。屬性。設(shè)置圖形的背景樣式是否透明。 BorderStyle屬性。設(shè)置圖形邊框的樣式。屬性。設(shè)置圖形邊框的樣式。 FillColor屬性。設(shè)置圖形內(nèi)部的填充顏色。屬性。設(shè)置圖形內(nèi)部的填充顏色。 FillStyle屬性。設(shè)置圖形的填充的方式。屬性。設(shè)置圖形的填充的方式。 Height、Width、Left、Top屬性。返回或設(shè)置圖

12、形的大小及位置。屬性。返回或設(shè)置圖形的大小及位置。 Shape屬性。用于設(shè)置圖形的樣式屬性。用于設(shè)置圖形的樣式。 15第第8 8章章 VBVB圖形操作圖形操作 8.1 8.1 圖圖形控件形控件8.1.4 形狀控件形狀控件【例例8.48.4】 Shape Shape控件示例?？丶纠?。 Private Sub Form_Activate() Dim i As Integer Shape1(0).Shape = 0 Shape1(i).FillStyle = 2 For i = 1 To 5 Load Shape1(i) 裝入數(shù)組控件 Shape1(i).Left = Shape1(i - 1).

13、Left + 1000 確定控件Left屬性 Shape1(i).Visible = True 顯示該控件 Shape1(i).Shape = i 確定所需要的幾何形狀16第第8 8章章 VBVB圖形操作圖形操作 8.2 8.2 圖圖形操作基形操作基礎(chǔ)礎(chǔ)8.2.1 VBVB坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)在在VBVB中，默認(rèn)的坐標(biāo)原點(diǎn)為中，默認(rèn)的坐標(biāo)原點(diǎn)為對(duì)象的左上角，橫向向右為對(duì)象的左上角，橫向向右為X X軸的正向，縱向向下為軸的正向，縱向向下為Y Y軸軸的正向。如圖所示，就是窗的正向。如圖所示，就是窗體和文本框的默認(rèn)坐標(biāo)系。體和文本框的默認(rèn)坐標(biāo)系。窗體的窗體的HeightHeight屬性值包括了屬性值包括

14、了標(biāo)題欄和水平邊框線的寬度，標(biāo)題欄和水平邊框線的寬度，WidthWidth屬性值包括了垂直邊屬性值包括了垂直邊框線寬度?？蚓€寬度。 Height ScaleHeight 17第第8 8章章 VBVB圖形操作圖形操作 8.2 8.2 圖圖形操作基形操作基礎(chǔ)礎(chǔ)8.2.1 VBVB坐標(biāo)系統(tǒng)坐標(biāo)系統(tǒng)（1）ScaleMode屬性屬性 為了在不影響原始坐標(biāo)的情況下改變坐標(biāo)單位，可以使用為了在不影響原始坐標(biāo)的情況下改變坐標(biāo)單位，可以使用ScaleModeScaleMode屬性。屬性。（2）ScaleLeft和和ScaleTop屬性屬性 這兩個(gè)屬性用來自定義對(duì)象內(nèi)繪圖區(qū)域左上角坐標(biāo)，缺省值為這兩個(gè)屬性用來自定

15、義對(duì)象內(nèi)繪圖區(qū)域左上角坐標(biāo)，缺省值為（0 0，0 0）。）。 （3）ScaleWidth和ScaleHeight屬性 這兩個(gè)屬性用來自定義對(duì)象內(nèi)繪圖區(qū)域?qū)挾龋ㄟ@兩個(gè)屬性用來自定義對(duì)象內(nèi)繪圖區(qū)域?qū)挾龋⊿caleWidthScaleWidth屬性）屬性）和高度（和高度（ScaleHeightScaleHeight屬性）。屬性）。 18第第8 8章章 VBVB圖形操作圖形操作 8.2 8.2 圖圖形操作基形操作基礎(chǔ)礎(chǔ)8.2.2 自定義坐標(biāo)系自定義坐標(biāo)系【例例8.58.5】 在在FormForm窗體上加窗體上加載載Form_LoadForm_Load事件，事件，并并在其中定在其中定義義窗體的坐窗體的坐

16、標(biāo)標(biāo)系。系。Private Sub Form_load() Cls Form1.ScaleLeft = -100 Form1.ScaleTop = 100 Form1.ScaleHeight = -200 Form1.ScaleWidth = 200 Line (-100, 0)-(200, 0) 畫X軸 Line (0, 100)-(0, -200) 畫Y軸 CurrentX = 0: CurrentY = 0: Print 0 標(biāo)記坐標(biāo)原點(diǎn) CurrentX = 90: CurrentY = 20: Print X 標(biāo)記X軸19第第8 8章章 VBVB圖形操作圖形操作 8.2 8.2 圖圖

17、形操作基形操作基礎(chǔ)礎(chǔ)8.2.2 自定義坐標(biāo)系自定義坐標(biāo)系【例例8.68.6】 在在Form_PaintForm_Paint事件中通事件中通過過ScaleScale方法定方法定義義窗體窗體Form1Form1的坐的坐標(biāo)標(biāo)系。系。Private Sub Form_Paint() Cls Form1.Scale (-200, 250)-(300, -150) Line (-200, 0)-(300, 0) 畫X軸 Line (0, 250)-(0, -150) 畫Y軸 CurrentX = 0: CurrentY = 0: Print 0 標(biāo)記坐標(biāo)原點(diǎn) CurrentX = 280: Current

18、Y = 20: Print X 標(biāo)記X軸 CurrentX = 10: CurrentY = 240: Print Y 標(biāo)記Y軸End Sub20第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.1 當(dāng)前坐標(biāo)當(dāng)前坐標(biāo) 對(duì)于窗體、圖形或者打印機(jī)，對(duì)于窗體、圖形或者打印機(jī)，CurrentX CurrentX 和和 CurrentY CurrentY 屬性給屬性給出了這些對(duì)象在繪圖時(shí)的當(dāng)前坐標(biāo)。出了這些對(duì)象在繪圖時(shí)的當(dāng)前坐標(biāo)。 當(dāng)坐標(biāo)系確定之后，坐標(biāo)值（當(dāng)坐標(biāo)系確定之后，坐標(biāo)值（x x，y y）表示對(duì)象上的絕對(duì)坐標(biāo)）表示對(duì)象上的絕對(duì)坐標(biāo)位置。如果坐標(biāo)值前面加上關(guān)鍵字位

19、置。如果坐標(biāo)值前面加上關(guān)鍵字StepStep，則坐標(biāo)值（，則坐標(biāo)值（x x，y y）表示）表示對(duì)象上的相對(duì)坐標(biāo)位置，即從當(dāng)前坐標(biāo)分別平移對(duì)象上的相對(duì)坐標(biāo)位置，即從當(dāng)前坐標(biāo)分別平移x x，y y個(gè)單位，其個(gè)單位，其絕對(duì)坐標(biāo)值為（絕對(duì)坐標(biāo)值為（CurrentX+xCurrentX+x，CurrentY+yCurrentY+y）。）。 21第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.1 當(dāng)前坐標(biāo)當(dāng)前坐標(biāo)【例例8.78.7】 用用PrintPrint方法在窗體上方法在窗體上隨隨機(jī)機(jī)顯顯示示5050個(gè)個(gè)“ “” ”和和5050個(gè)個(gè)“ “” ”。 Private Su

20、b Form_Click() Dim i As Integer Randomize For i = 1 To 100 CurrentX = Form1.Width * Rnd CurrentY = Form1.Height * Rnd If (i Mod 2) = 0 Then Print Else Print 22第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.2 線寬與線型線寬與線型 窗體、圖片框或打印機(jī)的窗體、圖片框或打印機(jī)的DrawWidthDrawWidth屬性說明在這些對(duì)屬性說明在這些對(duì)象上所畫線的寬度或點(diǎn)的大小。象上所畫線的寬度或點(diǎn)的大小。Dra

21、wWidthDrawWidth屬性以像素為屬性以像素為單位，最小值為單位，最小值為1 1。 23第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.2 線寬與線型線寬與線型【例例8.88.8】 通通過過改改變變DrawStyleDrawStyle屬屬性性值值在窗體上在窗體上畫畫出不同的出不同的線線形。形。Private Sub Command1_Click() Cls Dim j As Integer Print DrawStyle 0 1 2 3 4 5 6 Print 線 型 實(shí)線 長(zhǎng)劃線 點(diǎn)線 點(diǎn)劃線 點(diǎn)點(diǎn)劃線 透明線 內(nèi)實(shí)_ 線 Print Print 圖

22、 示 CurrentX = 600 設(shè)置直線的開始位置24第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.3 填充與色彩填充與色彩 封閉圖形的填充方式由封閉圖形的填充方式由FillStyleFillStyle、FillColorFillColor這兩個(gè)屬這兩個(gè)屬性決定。性決定。FillColorFillColor屬性指定填充圖案的顏色，默認(rèn)的顏屬性指定填充圖案的顏色，默認(rèn)的顏色與色與ForeColorForeColor相同。相同。FillStyleFillStyle屬性指定填充的圖案。屬性指定填充的圖案。 1. 1. 填充填充25第第8 8章章 VBVB圖形操

23、作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.3 填充與色彩填充與色彩（1）使用）使用RGB函數(shù)函數(shù)RGB函數(shù)通過紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，語法為：函數(shù)通過紅、綠、藍(lán)三基色混合產(chǎn)生某種顏色，語法為： RGB（紅，綠，藍(lán)）（紅，綠，藍(lán)） （2）QBColor函數(shù)函數(shù) QBColor(顏色碼顏色碼)（3）使用）使用“對(duì)象瀏覽器對(duì)象瀏覽器”中列出的常數(shù)中列出的常數(shù)2. 2. 色彩色彩26第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.3 填充與色彩填充與色彩27第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.3 填充與

24、色彩填充與色彩28第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.3 填充與色彩填充與色彩29第第8 8章章 VBVB圖形操作圖形操作 8.3 8.3 繪圖屬繪圖屬性性8.3.2 填充與色彩填充與色彩【例例8.98.9】 演示演示顏顏色的色的漸變過漸變過程。程。 Private Sub Form_Click() Dim j As Integer , x As Single , y As Single y = Form1.ScaleHeight x = Form1. ScaleWidth 設(shè)置直線X方向終點(diǎn)坐標(biāo) sp = 255 / y 每次改變基色的增量 Fo

25、r j = 0 To y Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp) 畫線 Next j End Sub30第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.1 ClsCls方法方法 Cls Cls方法用于方法用于清清除所有使用除所有使用圖圖形方法和形方法和PrintPrint方法方法顯顯示的文本或示的文本或圖圖形，形，并將并將光光標(biāo)標(biāo)移移動(dòng)動(dòng)到原點(diǎn)位置。到原點(diǎn)位置。 語語法格式：法格式： 對(duì)對(duì)象象.Cls.Cls 31第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.2 PSe

26、tPSet方法方法PSetPSet方法可以在方法可以在對(duì)對(duì)象的指定位置按確定的像素象的指定位置按確定的像素顏顏色色畫畫點(diǎn)。點(diǎn)。語語法格式：法格式： 對(duì)對(duì)象象.PSet Step (x, y) ,Color .PSet Step (x, y) ,Color 32第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.2 PSetPSet方法方法【例例8.108.10】 Pset Pset方法示例。方法示例。Private Sub Form_click() Dim x As Single, y As Single Cls Scale (-15, 15)-(15, -15)

27、 Line (0, 14)-(0, -14) 畫X軸 Line (14.5, 0)-(-14.5, 0) 畫Y軸 CurrentX = 0: CurrentY = 0: Print 0 標(biāo)記坐標(biāo)原點(diǎn) CurrentX = 14: CurrentY = 2: Print X 標(biāo)記X軸 CurrentX = -15: CurrentY = 0: Print -15 CurrentX = 13: CurrentY = 0: Print 1533第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.3 LineLine方法方法LineLine方法可以在方法可以在對(duì)對(duì)象上的象

28、上的兩兩點(diǎn)之點(diǎn)之間畫間畫直直線線或矩形?；蚓匦?。語語法格式：法格式： 對(duì)對(duì)象象.Line Step(x1,y1)-Step (x2,y2) ,.Line Step(x1,y1)-Step (x2,y2) ,顏顏色色 ,BF ,BF 34第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.3 LineLine方法方法【例例8.118.11】 利用利用LineLine方法在窗體上方法在窗體上畫畫3 3個(gè)個(gè)矩形方框矩形方框. . Private Sub Form_Click() Line (500, 500)-Step(500, 0) Line -Step(0, 500

29、) Line -Step(-500, 0) Line -Step(0, -500) Line (1000, 1000)-Step(500, 500), , B Line (1500, 500)-(2000, 1000), , BF End Sub 35第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.4 CircleCircle方法方法使用使用CircleCircle方法可以在方法可以在對(duì)對(duì)象上象上畫圓畫圓、橢圓橢圓或或圓圓弧?；?。語語法格式：法格式： 對(duì)對(duì)象象.Circle Step(x, y),.Circle Step(x, y),半半徑徑,顏顏色色, ,起

30、點(diǎn)起點(diǎn), ,終終點(diǎn)點(diǎn), ,縱橫縱橫比比 36第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.4 CircleCircle方法方法【例例8.128.12】 用用CircleCircle方法在窗體上方法在窗體上畫圖畫圖。Private Sub Form_Click() Const PI = 3.14159 Circle (2000, 1500), 1000, vbBlue, -PI, -PI / 2 Circle Step(-500, -500), 500 Circle Step(0, 0), 500, , , , 5 / 25 End Sub 37第第8 8章章

31、 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.5 PointPoint方法方法PointPoint方法用于返回窗體或方法用于返回窗體或圖圖形框上指定點(diǎn)的形框上指定點(diǎn)的RGBRGB顏顏色。色。語語法格式：法格式： 對(duì)對(duì)象象.Point (x, y).Point (x, y) 38第第8 8章章 VBVB圖形操作圖形操作 8.4 8.4 繪圖繪圖方法方法8.4.5 PointPoint方法方法【例例8.138.13】 用用PointPoint方法方法獲獲取一取一個(gè)區(qū)個(gè)區(qū)域的信息域的信息并并使用使用PsetPset方法方法進(jìn)進(jìn)行仿行仿真真。 Private Sub Form_Click() Dim i, j As Integer, mcolor As Long Form1.Scale (0, 0) - (100, 100) Picture1.Scale (0, 0) - (100, 100