VB中PictureBox控件使用教程

1、VB 中 PictureBox 控件使用教程PictureBox 對象可以說是任何對象的原始型態(tài)，它可以加載圖片、顯示文字、畫圖外，它還能與 Frame 對 象一樣，在自己本身里頭加載其它的對象而自成一個小群組，用 PictureBox 可以仿真出任何對象的外觀，PictureBox 是 VB 基本控件里變化最多，功能最多，也是令人最想去征服它的一個物件。PictureBox 與 Frame 對象一樣，本身都能裝載其它的對象而自己形成一個對象群組。如果要拿 PictureBox 裝載對象時，可以把它視為 Frame 來使用。與 Image 對象一樣在設(shè)計階段時，以 Picture 屬性來加載圖

2、片。與 Image 對象一樣都是在屬性對話窗口按一下 .鈕后，跳出加載圖片對話框，選擇所要的圖檔， 然后加載。在執(zhí)行階段，可以用 VB 的函數(shù)來幫 PictureBox 加載圖片：Command1_Click()Picture1.Picture = LoadPicture("E:MyGifAniGif0562.gif")End Sub在設(shè)計階段，若后悔加載圖片，想把它消除時，可以把 PictureBox 按 Delete 鍵刪掉，然后從工具箱拖曳一個新的 PictureBox ，或是在屬性對話框里的 Picture 屬性，把 (位圖 )這幾個反白，或是移到 (的最前端，按一

3、下鍵盤的 Delete 鍵即可移除圖片。若在執(zhí)行階段，想把 PictureBox 內(nèi)的圖片移除，可再用 LoadPicture 函數(shù)，并且傳空字符串給它：Private Sub Command1_Click()Picture1.Picture = LoadPicture("")End Sub在 PictureBox 里畫圖：PSet方法：PSet不只是用在PictureBox上，也可以用在窗體上，PSet最主要功用用就是在某一點(diǎn)位置上畫一個點(diǎn)，用法是 Object.PSet(X,Y), Color ： Private Sub Command1_Click()Picture1

4、.PSet(500,260),RGB(128,0,255)'RGB 函數(shù)是以紅色、綠色、藍(lán)色來表示顏色，詳情請到函數(shù)指令參考End Sub若顏色省略，則以 PictureBox 預(yù)設(shè)的顏色。前面有學(xué)到隨機(jī)數(shù)的運(yùn)用，因此我們來做個范例看看，范例一滿天繁星：Private Sub Timer1()_TimerRandomizeX = Int(Rnd * Picture1.ScaleWidth)Y = Int(Rnd * Picture1.ScaleHeight)R = Int(Rnd * 256)G = Int(Rnd * 256)B = Int(Rnd * 256)Picture1.PS

5、et (X, Y), RGB(R, G, B)End Sub Line方法：Line方法專門用來畫直線的工具，在窗體上也可以使用，用法：Object.Line(X1,Y2)-(X2,Y2), Color,BFColor在Line里與PSet一樣是可以被省略的，在Color后方，若是加入 B則畫出的不是線條，而是一個空心矩形，若是BF，則畫出來的是實心矩形。Private Sub Command1_Click()Picture1.Line(50,50)-(500,750)End SubPrivate Sub Command1_Click()Picture1.Line(50,50)-(500,75

6、0), ,BEnd SubPrivate Sub Command1_Click()Picture1.Line(50,50)-(500,750), ,BFEnd Sub Circle方法：Circlr方法專門用來畫圓，窗體上也是可以使用，用法： Object.Circle(X,Y), R, Color,起始角度, 終止角度 , 橢圓率Private Sub Command1_Click()Picture1.Circle(1000, 1000), 800End SubPrivate Sub Command1_Click()Const PI = 3.1415926535Picture1.Circle

7、 (1000, 1000), 800, , PI / 4, 3 * PI / 4End Sub若是設(shè)定起始角度與終止角度，畫出來的圓會變成弧，而角度單位使用的是弧度，也就是說，180。=3.1415926535.對于沒有學(xué)過弧度的網(wǎng)友來說，可能是難了點(diǎn)。Private Sub Command1_Click()Const PI = 3.1415926535Picture1.Circle (1000, 1000), 800, , -PI / 4, -3 * PI / 4End Sub若是起始角或終止角使用負(fù)數(shù)，它們還由由圓心畫直線到起始角或終止角，這樣就可以畫出扇形。Private Sub Com

8、mand1_Click()Picture1.Circle (1000, 1000), 800, , , , 0.75End Sub橢圓率則是圓的 Y 軸與 X 軸的比值，也就是 Y/X ，可以畫出橢圓形。范例：在 PictureBox 里，拖曳產(chǎn)生一個圓(一般)Dim Dx As Single, Dy As SinglePrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenDx = XDy = YEnd IfEnd Sub Pr

9、ivate Sub Picture1_M ouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenPicture1.ClsPicture1.Line (Dx, Dy)-(X, Y)Picturel.Circle (Dx, Dy), (Dx - X) A 2 + (Dy - Y) A 2) A 0.5)End IfEnd Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Sin

10、gle, Y As Single)If Button = 1 ThenPicture1.ClsPicture1.AutoRedraw = TruePicturel.Circle (Dx, Dy), (Dx - X) A 2 + (Dy - Y) A 2) A 0.5)Picture1.AutoRedraw = FalseEnd IfEnd Sub Cis方法：Cis方法，就是清除屏幕上對象所在范圍的內(nèi)容，窗體也適用，若已存在內(nèi)存里的內(nèi)容，則無法消除，用法：Object.CIs，范例在上面的畫圓范例里。Point 方法： Point 就是讀取 PictureBox 某一點(diǎn)上的顏色數(shù)值，傳回值是長

11、整數(shù)型態(tài)，在窗體上也適用，用 法：傳回值 = Object.Point 。Private Sub Picture1 AutoRedraw 屬性：上面的 PSet、Line、Circle 是 VB 所提供的，畫圖在屏幕上的方法，因此只要對象移出屏幕外，或是對象被其它窗口或?qū)ο蠼o蓋著，剛才所畫的圖會不件，若在繪圖時，把AutoRedraw設(shè)為True，則可把圖繪入內(nèi)存，即使用Cis方法也清除不掉，范例在上面的畫圓范例里頭。想要把用 VB 函數(shù)在 PictureBox 里所畫的圖給存起來時 (把 AutoRedraw 設(shè)為 True 時所繪的圖才能存盤 )，VB 提供了 SavePicture方法，

12、用法是 SavePicture Object.Picture,檔名。Private Sub Command1_Ciick()SavePicture Picture1.Picture, "C:WindowsTempTmp.Bmp"End Sub SavePicture能存BMP格式的檔按，請別異想天開把擴(kuò)展名改成JPG或GIF，存起來的圖仍是 BMP格式的圖。PaintPicture 方法： PaintPicture 方法，可以把某個物計內(nèi)的圖轉(zhuǎn)貼到另一個物件上，但要有一個前題，這個圖是用Picture屬性加載進(jìn)來的圖才可以，用法Object.PaintPicture來源對象

13、.Picture, Object.X, Object.Y,圖在Object上的寬度，圖在Object上的高度，來源對象X起始位置，來源對象起始Y位置，來源對象上的寬度, 來源對象上的高度 , 貼圖模式Private Sub Command1_Ciick()Picture1.PaintPicture Picture2.Picture, 0, 0'原尺寸轉(zhuǎn)印End Sub若是改變了圖在 Object 上的寬與高，可以改變圖形的縮放 Private Sub Command1_Ciick()Picture1.PaintPicture Picture2.Picture, 0, 0, 750, 600End Sub Picture2內(nèi)的圖被放大轉(zhuǎn)貼到 Picturel里。至于貼圖模式，留在其單元里的特殊功能里討論P(yáng)rint 方法： Print 可以在 PictureBox 上打印文字，窗體也適用，用法： Object.Print 資料。Private Sub Command1_Ciick()MyLng = 1234567Picture1.Print " 今天天氣真好 "Picture