圖形控件和圖形方法

圖形控件和圖形方法第一頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.1圖片框控件

工具箱中圖片框控件的圖標(biāo)為

。圖片框控件名稱(chēng)的缺省值為：Picture1、Picture2、……，微軟建議名稱(chēng)前綴為pic。圖片框控件用以顯示圖片，也可以作為其他對(duì)象的容器、顯示圖形方法的輸出結(jié)果和Print方法輸出的文本。1．圖片框控件的常用屬性(1)Picture屬性。圖片框控件的Picture屬性返回或設(shè)置圖片框中的圖片。在圖片框中加載圖像有下列兩種方式：1）設(shè)計(jì)時(shí)選?。航缑嬖O(shè)計(jì)時(shí)，在該圖片框控件屬性窗口中點(diǎn)擊“Picture”屬性，隨之彈出“加載圖片”對(duì)話框，選擇所要顯示的圖片文件后，相應(yīng)的圖片被加載到圖片框中。2）

運(yùn)行時(shí)裝入：程序運(yùn)行時(shí)，可用LoadPicture函數(shù)裝入圖片到圖片框控件中。格式：圖片框控件名.Picture=LoadPicture(filename)

2第二頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.1圖片框控件

(2)AutoSize屬性。

AutoSize屬性值為T(mén)rue時(shí)，圖片框的邊界會(huì)隨著所裝入圖片的大小變化而變化。此時(shí)在設(shè)計(jì)窗體過(guò)程中就應(yīng)特別小心，圖片將不考慮窗體上其他控件的分布情況，而根據(jù)圖片的大小自動(dòng)調(diào)整圖片框的大小，可能導(dǎo)致窗體上的其他控件被覆蓋，所以應(yīng)慎用，以免影響窗體界面的完整性。

(3)Align屬性◆

圖片框控件的Align屬性值為0：標(biāo)準(zhǔn)位置，圖片框在原位置?！魣D片框控件的Align屬性值為1，則圖片框貼緊到窗體的上邊；Align屬性值為2，則圖片框貼緊到窗體的下邊。

◆

圖片框控件的Align屬性值為3，則圖片框貼緊到窗體的左邊；Align屬性值為4，則圖片框貼緊到窗體的右邊。

3第三頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.1圖片框控件2．圖片框控件的常用方法(1)Print方法。圖片框控件可以用來(lái)顯示Print方法輸出的文本，格式如下：圖片框控件名稱(chēng).Print輸出表如執(zhí)行“Picture1.Print"圖片框"”，則在圖片框Picture1上當(dāng)前輸出位置，顯示“圖片框”這3個(gè)字。(2)Cls方法。圖片框上除了所裝入的圖片外，其他的所有文字、圖形都可以用Cls方法擦除，格式如下：

圖片框控件名稱(chēng).Cls

4第四頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.2影像框控件

工具箱中影像框控件的圖標(biāo)為

。

影像框控件名稱(chēng)的缺省值為：Image1、Image2、……，微軟建議名稱(chēng)前綴為img。影像框控件只能用于顯示圖像，不支持圖形方法，也不能當(dāng)作容器來(lái)使用。1．影像框控件常用屬性(1)Picture屬性。與圖片框控件的Picture屬性一樣，可以在設(shè)計(jì)時(shí)設(shè)置，也可以在程序運(yùn)行時(shí)用LoadPicture函數(shù)裝入。詳細(xì)說(shuō)明可以參見(jiàn)6.1.1。(2)Stretch屬性。圖片框控件的AutoSize屬性設(shè)置為T(mén)rue時(shí)，其大小會(huì)隨所裝入的圖片而變化，這樣可以得到圖片的原始大小，但有時(shí)當(dāng)所加載的圖片比較大時(shí)，可能會(huì)影響窗體上其他控件的顯示。

5第五頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.2影像框控件2．影像框控件常用事件影像框控件與圖片框控件可以響應(yīng)的事件過(guò)程大體相同，如Change、Click、MouseDown、MouseUp、MouseMove等常用事件。讀者可以根據(jù)程序設(shè)計(jì)的要求，編寫(xiě)相應(yīng)的事件過(guò)程，下列各程序段可以幫助讀者了解鼠標(biāo)引發(fā)事件過(guò)程的使用方法。下列事件過(guò)程可以顯示鼠標(biāo)在影像框控件上點(diǎn)擊位置的坐標(biāo)值。PrivateSubImage1_MouseDown(ButtonAsInteger,ShiftAsInteger,_XAsSingle,YAsSingle)'參數(shù)x、y為鼠標(biāo)在影像框按下處的坐標(biāo)值。

PrintX,YEndSubImage控件可接受Click等事件，因此可以充當(dāng)圖形命令按鈕。

6第六頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.3形狀控件

工具箱中形狀控件的圖標(biāo)為。形狀控件缺省的控件名稱(chēng)為：Shape1、Shape2、……，微軟建議名稱(chēng)前綴為shp。1．形狀控件常用屬性

(1)Shape屬性。形狀控件用于創(chuàng)建指定的圖形，通過(guò)設(shè)置Shape屬性來(lái)得到所需要的形狀，畫(huà)出正方形、矩形、圓和橢圓等。

Shape屬性定義該控件顯示的圖形。取整數(shù)值或系統(tǒng)定義的符號(hào)常量，取值及含義如下：◆

0或VbShapeRectangle：控件形狀為矩形

?！?/p>

1或VbShapeSquare：控件形狀為正方形?！?/p>

2或VbShapeOval：控件形狀為橢圓形?！?/p>

3或VbShapeCircle：控件形狀為圓形?！?/p>

4或VbShapeRoundedRectangle：控件形狀為圓角矩形?！?/p>

5或VbShapeRoundedSquare：控件形狀為圓角正方形。

7第七頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.3形狀控件

(2)BorderStyle屬性。該屬性定義圖形邊框樣式，取值及含義如下：◆

0：透明，即無(wú)邊框?！?/p>

1：實(shí)線，為缺省值?！?/p>

2：長(zhǎng)虛線?！?/p>

3：虛線?！?/p>

4：點(diǎn)劃線。◆

5：雙點(diǎn)劃線。◆

6：內(nèi)插實(shí)線，如果BorderWidth屬性值大于1，控件保證圖形最大尺寸等于設(shè)定值。

8第八頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.3形狀控件

(3)FillStyle屬性。該屬性用于指定圖形的填充樣式。取值及含義如下：◆

0：實(shí)心填充◆

1：透明，即不填充，為缺省值?！?/p>

2：水平線填充?！?/p>

3：垂直線填充。◆

4：斜線填充?！?/p>

5：反斜線填充。◆

6：網(wǎng)格填充。◆

7：傾斜網(wǎng)格填充。

9第九頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.3形狀控件(4)其他常用屬性?！?/p>

BorderColor：設(shè)置邊框顏色?！?/p>

FillColor：設(shè)置填充顏色?！?/p>

BorderWidth：設(shè)置邊框?qū)挾取＠眯螤羁丶?，可以在界面設(shè)計(jì)時(shí)，通過(guò)對(duì)形狀控件有關(guān)屬性的設(shè)置直接得到相應(yīng)的圖形，也可以在程序中設(shè)置屬性來(lái)獲得所需要的圖形。

10第十頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.1.4直線控件

工具箱中直線控件的圖標(biāo)為

。直線控件缺省的控件名稱(chēng)為：Line1、Line2、……，微軟建議名稱(chēng)前綴為lin。直線控件與形狀控件相似，但只用于畫(huà)線。界面設(shè)計(jì)時(shí)可以通過(guò)鼠標(biāo)操作調(diào)整線段的位置、長(zhǎng)短和顏色等屬性；程序運(yùn)行時(shí)，可以通過(guò)改變直線的端點(diǎn)坐標(biāo)（x1,y1）、（x2,y2）來(lái)移動(dòng)它或調(diào)整它的長(zhǎng)短。同形狀控件的邊框樣式屬性一樣，Line控件通過(guò)對(duì)BorderStyle屬性的設(shè)置定義該控件所顯示的直線的線形，其不同取值表示不同的線形，分別為透明、實(shí)線、長(zhǎng)虛線、虛線、點(diǎn)劃線、雙點(diǎn)劃線等。11第十一頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.1容器坐標(biāo)系

在VisualBasic中，每個(gè)容器都有一個(gè)坐標(biāo)系，坐標(biāo)系中的X軸向右、Y軸向下延伸，如圖6-11所示為缺省的窗體坐標(biāo)系統(tǒng)、框架控件的坐標(biāo)系統(tǒng)。1．控件在容器中的位置屬性控件在容器中的位置屬性包括Top屬性和Left屬性。

x

y圖6-11VisualBasic坐標(biāo)系示例

12第十二頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.1容器坐標(biāo)系

(1)Top屬性?？丶脑搶傩灾凳强丶笊辖堑剿谌萜魃线呇氐木嚯x。如果控件外的容器為窗體，則控件的Top屬性值為控件左上角到所在窗體標(biāo)題欄下邊沿的距離。(2)Left屬性。控件的該屬性值是控件左上角到所在容器左邊沿的距離。PrivateSubForm_Click()PrintTop,Left,Height,WidthPrintFrame1.Top,Frame1.Left,Frame1.Height,Frame1.WidthPrintText1.Top,Text1.Left,Text1.Height,Text1.WidthEndSub

13第十三頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.1容器坐標(biāo)系

2．控件自身寬度、高度的屬性(1)Width屬性，該屬性值為控件本身的寬度。(2)Height屬性，該屬性值為控件本身的高度。在圖6-11中，如果拖動(dòng)框架控件、改變其在窗體中的位置，框架控件的Top、Left屬性可以被改變，而Width、Height屬性不改變。如果僅改變框架控件的大小而保持其左上角位置不變，則Width、Height屬性被改變。3．容器（窗體、圖片框）的坐標(biāo)屬性(1)ScaleLeft屬性，該屬性值為容器左上角的橫坐標(biāo)，缺省值為0。(2)ScaleTop屬性，該屬性值為容器左上角的縱坐標(biāo)，缺省值為0。(3)ScaleWidth屬性，該屬性值為容器內(nèi)部的寬度值。(4)ScaleHeight屬性，該屬性值為容器內(nèi)部的高度值(5)CurrentX、CurrentY屬性，分別表示當(dāng)前點(diǎn)在容器內(nèi)的橫坐標(biāo)、縱坐標(biāo)。設(shè)置CurrentX、CurrentY屬性后，所設(shè)值就是下一個(gè)輸出方法的當(dāng)前位置。14第十四頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.2改變?nèi)萜髯鴺?biāo)系的Scale方法

容器坐標(biāo)系中，坐標(biāo)系刻度單位的缺省值為“緹”（1緹≈0.01764mm），容器的最小坐標(biāo)值為左上角坐標(biāo)，容器的最大坐標(biāo)值為右下角坐標(biāo)。利用Scale方法可以改變?cè)c(diǎn)的坐標(biāo)并隨之改變最大坐標(biāo)值，格式為：容器名.Scale(x1,y1)-(x2,y2)

該語(yǔ)句功能：改變?nèi)萜鳎ㄈ笔∪萜髅复绑w）左上角坐標(biāo)為(x1,y1)，右下角坐標(biāo)值為(x2,y2)，將容器在X軸方向分為x2-x1等份、Y軸方向分為y2-y1等份，并將容器的4個(gè)坐標(biāo)屬性設(shè)置為：◆

容器名.ScaleLeft=x1◆

容器名.ScaleTop=y1◆

容器名.ScaleWidth=x2-x1◆

容器名.ScaleHeight=y2-y115第十五頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.3坐標(biāo)刻度

VisualBasic程序設(shè)計(jì)中，經(jīng)常使用的刻度單位為：緹、磅和毫米。通過(guò)設(shè)置容器的ScaleMode屬性可以選擇改變坐標(biāo)系統(tǒng)的單位。1．設(shè)置（選擇）標(biāo)準(zhǔn)刻度◆

ScaleMode屬性值為1，容器坐標(biāo)系的刻度單位為緹，1緹≈0.01764毫米≈0.05磅◆

ScaleMode屬性值為2，容器坐標(biāo)系的刻度單位為磅，1磅≈0.353毫米?！?/p>

ScaleMode屬性值為3，容器坐標(biāo)系的刻度單位為像素，是顯示器分辨率的最小單位?！?/p>

ScaleMode屬性值為4，容器坐標(biāo)系的刻度單位為字符，每個(gè)字符寬6磅、高12磅。◆

ScaleMode屬性值為5，容器坐標(biāo)系的刻度單位為英寸?！?/p>

ScaleMode屬性值為6，容器坐標(biāo)系的刻度單位為毫米。◆

ScaleMode屬性值為7，容器坐標(biāo)系的刻度單位為厘米。

16第十六頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.2.3坐標(biāo)刻度

當(dāng)選擇標(biāo)準(zhǔn)刻度時(shí)，系統(tǒng)自動(dòng)使ScaleLeft、ScaleTop值為0，并設(shè)置ScaleHeight、ScaleWidth值，這些屬性決定了容器坐標(biāo)的最小值、最大值。2．自定義刻度將ScaleMode值設(shè)置為0，則采用自定義刻度。用Scale方法設(shè)置坐標(biāo)系后，ScaleMode值自動(dòng)變?yōu)?。反之，ScaleLeft、ScaleTop、ScaleHeight、ScaleWidth屬性被改變，ScaleMode值自動(dòng)變?yōu)?，單位長(zhǎng)度根據(jù)變化后的上述屬性重新確定。

17第十七頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.1使用顏色

使用圖形方法繪圖時(shí)總要使用不同的顏色，VisualBasic6.0使用的顏色用一個(gè)長(zhǎng)整型數(shù)（通常用16進(jìn)制）表示，如&HFFFF00&。其數(shù)值由3部分組成：右邊的兩位（16進(jìn)制數(shù)，下同）代表紅色的亮度值，中間的兩位代表綠色的亮度值，左邊的兩位代表藍(lán)色的亮度值。每個(gè)亮度值都可以取0～255之間的數(shù)值，因此共有1600多萬(wàn)種不同的顏色取值。界面設(shè)計(jì)時(shí)可以通過(guò)在對(duì)象的屬性窗口中選擇需要設(shè)置的顏色屬性，用打開(kāi)的“調(diào)色板”對(duì)話框進(jìn)行顏色設(shè)置。程序運(yùn)行時(shí)，可以使用顏色函數(shù)、使用系統(tǒng)預(yù)定義顏色常量、直接賦值或使用通用對(duì)話框中的“顏色”對(duì)話框來(lái)指定顏色。

18第十八頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.1使用顏色

1．顏色函數(shù)

VisualBasic提供了兩個(gè)專(zhuān)門(mén)處理顏色的函數(shù)：RGB和QBColor。

(1)RGB函數(shù)。

RGB函數(shù)是顏色函數(shù)中最常用的一個(gè)，其使用格式為：

RGB(Red,Green,Blue)

其中：Red、Green、Blue分別表示紅色的亮度值，綠色的亮度值和藍(lán)色的亮度值，取值范圍都是0～255。如將窗體Form1的背景色設(shè)置為紅色，命令如下：

Form1.BackColor=RGB(255,0,0)RGB函數(shù)采用紅、綠、藍(lán)三色原理，返回一個(gè)Long整數(shù)，用來(lái)表示一個(gè)顏色值。表6-1列出了一些常見(jiàn)的顏色以及這些顏色的三色值。19第十九頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.1使用顏色顏色紅色值綠色值藍(lán)色值白色255255255黃色2552550洋紅色2550255紅色25500青色0255255綠色02550藍(lán)色00255黑色000表6-2Color參數(shù)的設(shè)置值及對(duì)應(yīng)的顏色

參數(shù)值顏色參數(shù)值顏色參數(shù)值顏色0黑

色6黃

色12亮紅色1藍(lán)色7白色13亮洋紅色2綠色8灰色14亮黃色3青色9亮藍(lán)色15亮白色4紅色10亮綠色

5洋紅色11亮青色

表6-1常見(jiàn)顏色的RGB值20第二十頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.1使用顏色例如：將窗體Form1的背景色設(shè)置為紅色，也可以寫(xiě)作：Form1.BackColor=QBColor(12)2．使用預(yù)定義常量由VisualBasic6.0內(nèi)部定義，讀者可以在“視圖”菜單的“對(duì)象瀏覽器”中選擇ColorConstants，查看所有這些常量，在程序中不需要聲明就可以直接使用。如：Form1.BackColor=vbRed '將窗體背景設(shè)置為紅色Form1.BackColor=vbGreen '將窗體背景設(shè)置為綠色3．直接賦值如果知道具體的顏色值，也可以直接給顏色屬性賦值，如：Form1.BackColor=&HFF& '設(shè)置窗體背景色為紅色Form1.BackColor=&HFF00& '設(shè)置窗體背景色為綠色Form1.BackColor=&HFFFF00&'設(shè)置窗體背景色為黃色21第二十一頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用

1．畫(huà)點(diǎn)方法Pset格式：[容器.]Pset[step](x,y)[,color]

該方法在容器上(x,y)處以值為color的顏色畫(huà)點(diǎn)（x、y是Single類(lèi)型表達(dá)式）；缺省容器則指當(dāng)前窗體，缺省color則為容器前景色（ForeColor）。◆

容器的當(dāng)前輸出位置坐標(biāo)為（容器名.CurrentX，容器名.CurrentY），加Step關(guān)鍵字則在坐標(biāo)（容器名.CurrentX+x，容器名.CurrentY+y）位置畫(huà)點(diǎn)?！?/p>

該方法所畫(huà)點(diǎn)的大小，取決于容器的DrawWidth屬性值。

DrawWidth用來(lái)設(shè)置繪圖線的寬度，值以像素為單位，取值范圍是1～32767，缺省值為1即一個(gè)像素寬。設(shè)置該屬性后，將影響Pset、Line和Circle等方法的輸出效果。

22第二十二頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用2．返回某點(diǎn)顏色值的函數(shù)Point格式：Point(x,y)該函數(shù)的返回值為點(diǎn)(x,y)的顏色值。如執(zhí)行語(yǔ)句“C=Point(50,100)”，將窗體坐標(biāo)(50,100)處點(diǎn)的顏色值存入變量C。例6-1以下程序利用Pset方法繪制Cos(x)函數(shù)曲線。PrivateSubForm_Click()DimxAsInteger,iAsIntegerFori=0To10000PSet(i,1200),vbRed'用畫(huà)點(diǎn)的方法連線

NextiForx=0To10000PSet(x,1000*Cos(x*3.1415926/1800)+1200),vbBlueNextxEndSub

23第二十三頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用3．畫(huà)線、矩形方法Line(1)兩點(diǎn)連線。①格式1：[容器名.]Line[(x1,y1)]-(x2,y2)[,Color]

缺省容器名指窗體；缺省起點(diǎn)坐標(biāo)則以當(dāng)前輸出位置為起點(diǎn)；缺省Color表達(dá)式則為容器的ForeColor屬性；坐標(biāo)點(diǎn)為Single類(lèi)型表達(dá)式。例如，下列語(yǔ)句分別在窗體、控件Picture1上畫(huà)線。

Line(100,150)-(400,300),RGB(120,120,200) '窗體坐標(biāo)

Picture1.Line(10,10)-(60,100),RGB(0,0,255) '圖片框坐標(biāo)②格式2：[容器名.]Line[(x1,y1)]-Step(x2,y2)[,Color]

所繪制直線的兩個(gè)端點(diǎn)位置為(x1,y1)和(x1+x2,y1+y2)。24第二十四頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用(2)多點(diǎn)折線。連續(xù)使用缺省起點(diǎn)、畫(huà)兩點(diǎn)連線的語(yǔ)句，可以繪制多點(diǎn)折線：每句的終點(diǎn)位置為下一句的起點(diǎn)位置，首句或是采用格式1，或是以當(dāng)前輸出位置作為起點(diǎn)。例如：下列語(yǔ)句在窗體上所繪折線如圖6-15所示。Line(50,100)-(100,100),RGB(120,120,200)Line-(150,150),RGB(120,120,200)Line-Step(-50,50),RGB(120,120,200)Line-(50,200),RGB(120,120,200)Line-(0,150),RGB(120,120,200)Line-(50,100),RGB(120,120,200)

25第二十五頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用（100，200）（150，150）（100，100）（50，100）（0，150）（50，200）圖6-15多點(diǎn)折線

(3)矩形與填充矩形。①格式1：[容器名.]Line[(x1,y1)]-[Step](x2,y2)[,[Color][,B]]指定位置為矩形對(duì)角點(diǎn)，以容器的FillStyle填充格式、FillColor顏色在矩形內(nèi)部填充；圖形邊框的顏色由Color表達(dá)式指定，缺省Color表達(dá)式則為容器的ForeColor屬性。圖形的填充特性只有對(duì)封閉圖形才起作用。26第二十六頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用②格式2：[容器名.]Line[(x1,y1)]-[Step](x2,y2),[Color],BF

用畫(huà)矩形邊框的顏色再填充矩形為實(shí)心，該語(yǔ)句的輸出效果與容器的FillStyle、FillColor屬性無(wú)關(guān)。例如：執(zhí)行下列語(yǔ)句后，在窗體上的輸出結(jié)果如圖6-16所示。Form1.FillStyle=2Form1.FillColor=vbBlueForm1.ForeColor=vbGreenLine(100,100)-(1500,1000),vbRed,B'紅色外框，蘭色水平填充線Line(1600,100)-(2500,1000),,B'綠色外框，蘭色水平填充線Line(2800,100)-(3800,1000),vbRed,BF'紅色實(shí)心矩形27第二十七頁(yè)，共二十九頁(yè)，編輯于2023年，星期二6.3.2圖形方法與應(yīng)用4．圓、圓弧與橢圓方法Circle(1)畫(huà)圓。