vb程序編寫語言學(xué)習(xí)

《vb程序編寫語言學(xué)習(xí)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、第8章：圖形12.1用直線控件畫線12.2用形狀控件畫出幾何圖形12.3用Pset方法畫點(diǎn)12.4用Line方法畫線和矩形12.5用Circle方法畫圓、橢圓、圓弧及扇形12.6使用PaintPicture方法12.7窗體和控件的圖形屬性習(xí)題12.1用直線控件畫線直線控件常用的屬性有下述4個(gè)。（1）BorderStyle：用來指定直線的類型。在屬性窗口的屬性表中，找到BorderStyle，單擊右端箭頭，有一個(gè)下拉菜單，列出下列7種類型。0——Transparent，透明的，即不顯示出線來。1——Solid，實(shí)線。2

2、——Dash，虛線。3——Dot，點(diǎn)線。4——Dash-Dot，點(diǎn)畫線。5——Dash-Dot-Dot，雙點(diǎn)畫線。6——InsideSolid，內(nèi)實(shí)線。只有當(dāng)BorderWidth為1時(shí)才可以用以上7種類型的線，如果BorderWidth不為1，則上述7種類型中只有0和6有效。（2）BorderWidth：設(shè)置線寬。（3）BorderColor：設(shè)置顏色。（4）x1、x2、y1、y2：指定直線起點(diǎn)和終點(diǎn)的x坐標(biāo)及y坐標(biāo)?？梢酝ㄟ^改變x1、x2、y1、y2的值改變線的位置。【例1】在窗體上使用直線控件畫7條實(shí)線

3、，編寫一個(gè)事件過程，改變它們的顏色及類型。窗體設(shè)計(jì)如圖所示。單擊工具箱中的“直線控件”圖標(biāo)，在窗體上畫出最上面一條直線，將其“名稱”屬性定為Lline。再畫第二條直線，將其“名稱”屬性也定為LLine，這時(shí)會(huì)彈出一個(gè)消息框，問“你已有一個(gè)名為LLine的控件，你是否想建立一個(gè)控件數(shù)組”。選擇“是”時(shí)，則系統(tǒng)會(huì)將該控件作為控件數(shù)組LLine中的一個(gè)元素LLine(1)，而將第一條直線定為數(shù)組元素LLine(0)。下面以同樣的方法再畫出5條直線，分別定名為LLine(2)～LLine(6)。在窗體上加兩個(gè)命令按鈕。將一個(gè)按鈕

4、的Caption屬性設(shè)置為“畫直線”，另一個(gè)設(shè)置為“退出”。按題目要求，單擊“畫直線”命令按鈕，應(yīng)畫出不同顏色、不同類型的7條線。編寫相應(yīng)的過程代碼：圖12.1PrivateSubcmdLine_Click()Line1(2).BorderWidth=1Fori=0To6LLine(i).BorderColor=QBColor(i)LLine(i).BorderStyle=iNextiEndSubQBColor是顏色函數(shù)，當(dāng)參數(shù)i為不同值時(shí)，給出不同的顏色。運(yùn)行程序時(shí)，單擊“畫直線”命令按鈕，即將窗體上的7條直線

5、分別改變?yōu)椴煌伾筒煌愋偷闹本€，如圖下所示。QBColor函數(shù)返回一個(gè)Long，用來表示所對(duì)應(yīng)顏色值的RGB顏色碼。語法：QBColor(color)必要的color參數(shù)是一個(gè)界于0到15的整型。設(shè)置值color參數(shù)有以下這些設(shè)置。值顏色0黑色8灰色1蘭色9亮蘭色2綠色10亮綠色3青色11亮青色4紅色12亮紅色5洋紅色13亮洋紅色6黃色14亮黃色7白色15亮白色圖12.2用VisualBasic提供的形狀控件（Shape）可以方便地畫出矩形、正方形、圓、橢圓等簡單的幾何圖形。使用形狀控件的方法是，單擊工具箱中的“形狀控

6、件”圖標(biāo)，然后按下鼠標(biāo)左鍵并在窗體上拖動(dòng)，在適當(dāng)?shù)奈恢冕尫攀髽?biāo)，窗體上出現(xiàn)一個(gè)矩形框，就是形狀控件。為該控件設(shè)置不同的Shape屬性，可以得到不同的形狀。12.2用形狀控件畫出幾何圖形在屬性窗口選擇Shape屬性，并單擊該屬性右端向下的箭頭，顯示一個(gè)下拉列表，其含義如下：0——Rectangle，矩形。1——Square，正方形。2——Oval，橢圓形。3——Circle，圓形。4——RoundedRectangle，圓角矩形。5——RoundedSquare，圓角正方形。Shape屬性的默認(rèn)值為0（矩形）。

7、若選擇3，則在剛才用形狀控件畫出的矩形中畫出一個(gè)圓，圓的直徑是矩形的短邊，也就是說，圓內(nèi)切于矩形?！纠?】設(shè)計(jì)如圖所示的窗體。窗體上有6個(gè)Shape控件、6個(gè)標(biāo)簽以及“設(shè)置形狀”、“設(shè)置顏色”、“填充線條”、“退出”等4個(gè)命令按鈕。運(yùn)行時(shí)，如單擊“設(shè)置形狀”命令按鈕，將為形狀控件設(shè)置Shape屬性；單擊“設(shè)置顏色”按鈕，用不同的顏色填充各形狀控件；單擊“填充線條”按鈕，以不同的線條填充圖形。為便于程序處理，形狀控件和標(biāo)簽控件均使用控件數(shù)組。圖12.3（1）單擊“設(shè)置形狀”按鈕，執(zhí)行cmdShape_Click事件過程。通

8、過For循環(huán)設(shè)置Shape屬性的值。PrivateSubcmdShape_Click()′為各Shape控件設(shè)置形狀參數(shù)Fori=0To5Shape1(i).Shape=iLabel1(i).Caption="i="&Str(i)NextEndSub如圖4所示表示執(zhí)行cmdShape_Click()