VB中PictureBox控件使用方法

VB中PictureBox件使用方法本頁僅作為文檔封面，使用時(shí)可以刪除Thisdocumentisforreferenceonly-rar21year.MarchVB中PictureBox控件使用教程PictureBox對象可以說是任何對象的原始型態(tài)，它可以加載圖片、顯示文字、畫圖外，它還能寫Frame對象一樣，在自己本身里頭加載其它的對象而自成一個(gè)小群組，用PictureBox可以仿真出任何對象的外觀,PictureBox是VB基本控件里變化最多，功能最多，也是不人最想去征服它的二個(gè)物件J?PictureBox與Frame對象一樣，本身都能裝載其它的對象而自己形成一個(gè)對象WT如果要拿PictureBox裝載對象時(shí)，可以把它視為Frame來使用。與Image對象一樣在設(shè)計(jì)階段時(shí)，以Picture屬性來加載圖片。石Image對象一樣都是在屬性對話窗口按一下 鈕后，跳出''加載圖片〃對曬，選擇所要的日檔，然后加載一召階段，有以用VB的函數(shù)來報(bào)PictureBox加載圖片：Commandl_Click()工load涵ire囪MyGifV)EndSub云設(shè)計(jì)階段,若后悔加載圖片,想把它消除時(shí),而以把PictureBox^Delete鍵刪掉，然后從工具箱拖曳一個(gè)新的PictureBox,或是在屬性對話框里的Picture屬性，把''(位圖)〃這幾個(gè)反白，或是移到''(〃的最前端，按二卞鍵盤的Delete鍵即可移除圖片。］若在執(zhí)行階段，想把PictureBox內(nèi)的圖片移除，可再用LoadPicture函數(shù)，并且傳^字符串給也「PrivateSubCommandlClick()=LoadPicture("")EndSub在PictureBox里畫圖：?PSet方法:PSet不只是用在PictureBox±,也可以用在窗體上，PSet最主要功用用就是在某一點(diǎn)位置上畫一個(gè)點(diǎn)，用法是(X,Y),Color：PrivateSubCommandl_Click()(500,260),rZb(128,0,255)'RGB函數(shù)是以紅色、綠色、藍(lán)色來表丕耍色，詳情請到函數(shù)指令參考EndSub?若顏色省略，則以PictureBox預(yù)設(shè)的顏色。?前面有學(xué)到隨機(jī)數(shù)的運(yùn)用，因此我們來做個(gè)范例看看,范例-滿木繁星：PrivateSubTimerl()TimerRandomizeX=lnt(Rnd*Y=lnt(Rnd*R=lnt(Rnd*256)G=lnt(Rnd*256)B=lnt(Rnd*256)(X,Y),RGB(R,G,B)EndSub?Line方法:Line方法專門用來畫直線的工具,在窗體上也可以使用，用法：(X1ZY2)-(X2ZY2),Color,BF?Color在Line里與PSet二樣是可以被省略的，在Color后方，若是加入B則畫出的不是線條，而是二1、空心矩形,若是BF,則畫出來的是實(shí)心矩形。PrivateSubCommandlClick()(50,50)-(500,750)EndSubPrivateSubCommandlClick()(50,50)-(500,750),,BEndSubPrivateSubCommandl_Click()(50,50)-(500,750),,BFEndSub?Circle方法：Circlr方法由門用來圓，窗體上也軻以使用，用法：(X,Y),R,Color,起始角度，終止角度,橢圓圖PrivateSubCommandl_Click()(1000,1000),800EndSubPrivateSubCommandl_Click()ConstPI=(1000,1000),800,,PI/4,3*PI/4EndSub?若是設(shè)定起始角度與終止角度，畫出來的圓會變成弧，而角度單位使用的是弧度，也就是說，180。=...對千沒有學(xué)過弧度的網(wǎng)友來說，可能是難了點(diǎn)?！綪rivateSubCommandlClick()ConstPI=(1000,1000),800,,-PI/4,-3*PI/4EndSub?蕊通始角或終止角使用負(fù)數(shù)，它們還由由圓心畫直線到起始角或終止角，這樣就國以畫出扇形JPrivateSubCommandlClick()(1000,1000),800,,,,EndSub?橢圓率則是圓的Y軸與X軸的比值，也就是Y/X,可以畫出橢圓形。?范例：在PictureBox里，拖曳產(chǎn)生二個(gè)圓(一般)：DimDxAsSingle,DyAsSingle]PrivateSubPicturel_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenDx=XDy=YEndIfEndSubPrivateSubPicturelMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then(Dx,DyHX,Y)(DxzDy),(((DxjX)A2+(Dy[Y)A2)AEndjfEndSubPrivateSubPicturelMousel)p(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1Then=True(Dx,Dy)/(((Dx-X)A2+(Dy-Y)A2)A=FalseEndIfEndSub?Cis族：Clsl法，就是清除屏幕上對象所在泅S的內(nèi)召,窗體也適用，加存在內(nèi)存里的內(nèi)容，則無法消除，用法：，范例在上面的畫圓范例一?Point方法：Point就是讀取PictureBox某一點(diǎn)上的顏色數(shù)值,傳回值是長整數(shù)型態(tài)，在窗體上也適用，用法：傳回值=°| 一PrivateSubPictureleAutoRedrawMft：kfffffrtjPSet>Line>Circle是VB所提供而7畫圖在屏幕上的方當(dāng)因此只要對象移出屏幕外：或懸對象被其它窗口或?qū)ο蠼o蓋著,剛才所畫的圖會木件,若在繪圖時(shí),把AutoRedraw她True,則可把圖繪入內(nèi)存，即使用Qs方法也清除不掉，范例在上面的畫圓范例'I1..頭?！?想要把用VB函數(shù)在PictureBox里所畫的圖給存起來時(shí)(把AutoRedraw_True時(shí)所繪的圖才能存盤)，VB提供了SavePicture方法，用法是SavePicture,檔名。.PrivateSubCommandlClick()SavePicture,"C:\Windows\Temp\"EndSub?SavePicture只能存BMP格式的檔按，請別異想天開把擴(kuò)展名改成JPG或GIF,存起來的圖仍居BMP格式的圖1]?PaintPicture方法：PaintPicture方法，可以把某個(gè)物計(jì)內(nèi)的圖轉(zhuǎn)貼到另二個(gè)物件上，但要有一個(gè)前題,這個(gè)圖是用Picture屬性加載進(jìn)來的圖才可以，用法來源對象Picture/，圖在Object上的寬度,圖在Object上的高度，來源對象X起始位置，來源對象起始Y位置，來源對象上的寬度(來源對象上的高度，貼圖模劊PrivateSubCommandl_Click(),0,0'原尺寸轉(zhuǎn)印EndSub?若是改變了圖在Object上的寬與高，可以改變圖形的縮放PrivateSubCommandl_Click()0^750,-606EndSub?Picture?內(nèi)的圖被放大轉(zhuǎn)貼到Picture1里?！鲅┵N圖?；蛄粼谄鋯卧锏闹淌夤δ芾镉懻?Print方法：Print可以在PictureBox上.打印文字，窗體也適用，用法：資料。Privat