《VB中PictureBox控件使用教程》由会员分享，可在线阅读，更多相关《VB中PictureBox控件使用教程（4页珍藏版）》请在金锄头文库上搜索。
1、VB中PictureBox控件使用教程PictureBox对象可以说是任何对象的原始型态，它可以加载图片、显示文字、画图外，它还能与Frame对象一样，在自己本身里头加载其它的对象而自成一个小群组，用PictureBox可以仿真出任何对象的外观，PictureBox是VB基本控件里变化最多，功能最多，也是令人最想去征服它的一个物件。PictureBox与Frame对象一样，本身都能装载其它的对象而自己形成一个对象群组。如果要拿PictureBox装载对象时，可以把它视为Frame来使用。与Image对象一样在设计阶段时，以Picture属性来加载图片。与Image对象一样都是在属性对话窗口按一
2、下钮后，跳出加载图片对话框，选择所要的图档，然后加载。在执行阶段，可以用VB的函数来帮PictureBox加载图片：Command1_Click()Picture1.Picture=LoadPicture(E:MyGifAniGif0562.gif)EndSub在设计阶段，若后悔加载图片，想把它消除时，可以把PictureBox按Delete键删掉，然后从工具箱拖曳一个新的PictureBox，或是在属性对话框里的Picture属性，把(位图)这几个反白，或是移到(的最前端，按一下键盘的Delete键即可移除图片。若在执行阶段，想把PictureBox内的图片移除，可再用LoadPicture
3、函数，并且传空字符串给它：PrivateSubCommand1_Click()Picture1.Picture=LoadPicture()EndSub在PictureBox里画图：PSet方法：PSet不只是用在PictureBox上，也可以用在窗体上，PSet最主要功用用就是在某一点位置上画一个点，用法是Object.PSet(X,Y),Color：PrivateSubCommand1_Click()Picture1.PSet(500,260),RGB(128,0,255)RGB函数是以红色、绿色、蓝色来表示颜色，详情请到函数指令参考EndSub若颜色省略，则以PictureBox预设的颜色
4、。前面有学到随机数的运用，因此我们来做个范例看看，范例一满天繁星：PrivateSubTimer1()_TimerRandomizeX=Int(Rnd*Picture1.ScaleWidth)Y=Int(Rnd*Picture1.ScaleHeight)R=Int(Rnd*256)G=Int(Rnd*256)B=Int(Rnd*256)Picture1.PSet(X,Y),RGB(R,G,B)EndSubLine方法:Line方法专门用来画直线的工具，在窗体上也可以使用，用法：0bject.Line(Xl,Y2)-(X2,Y2),Color,BFColor在Line里与PSet一样是可以被省略
5、的，在Color后方，若是加入B则画出的不是线条，而是一个空心矩形，若是BF，则画出来的是实心矩形。PrivateSubCommandl_Click()Picture1.Line(50,50)-(500,750)EndSubPrivateSubCommand1_Click()Picture1.Line(50,50)-(500,750),BEndSubPrivateSubCommand1_Click()Picture1.Line(50,50)-(500,750),BFEndSubCircle方法：Circlr方法专门用来画圆，窗体上也是可以使用，用法：Object.Circle(X,Y),R,C
6、olor,起始角度,终止角度,椭圆率PrivateSubCommand1_Click()Picture1.Circle(1000,1000),800EndSubPrivateSubCommand1_Click()ConstPI=3.1415926535Picture1.Circle(1000,1000),800,PI/4,3*PI/4EndSub若是设定起始角度与终止角度，画出来的圆会变成弧，而角度单位使用的是弧度，也就是说，180。=3.1415926535.对于没有学过弧度的网友来说，可能是难了点。PrivateSubCommand1_Click()ConstPI=3.1415926535
7、Picture1.Circle(1000,1000),800,-PI/4,-3*PI/4EndSub若是起始角或终止角使用负数，它们还由由圆心画直线到起始角或终止角，这样就可以画出扇形。PrivateSubCommand1_Click()Picture1.Circle(1000,1000),800,0.75EndSub椭圆率则是圆的Y轴与X轴的比值，也就是Y/X，可以画出椭圆形。范例：在PictureBox里，拖曳产生一个圆(一般)DimDxAsSingle,DyAsSinglePrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsIntege
8、r,XAsSingle,YAsSingle)IfButton=1ThenDx=XDy=YEndIfEndSubPrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=1ThenPicture1.ClsPicture1.Line(Dx,Dy)-(X,Y)Picturel.Circle(Dx,Dy),(Dx-X)A2+(Dy-Y)A2)A0.5)EndIfEndSubPrivateSubPicturel_MouseUp(ButtonAsInteger,ShiftAsIntege
9、r,XAsSingle,YAsSingle)IfButton=lThenPicture1.ClsPicture1.AutoRedraw=TruePicturel.Circle(Dx,Dy),(Dx-X)A2+(Dy-Y)A2)A0.5)Picture1.AutoRedraw=FalseEndIfEndSubCls方法：Cls方法，就是清除屏幕上对象所在范围的内容，窗体也适用，若已存在内存里的内容，则无法消除，用法：Object.Cls，范例在上面的画圆范例里。Point方法：Point就是读取PictureBox某一点上的颜色数值，传回值是长整数型态，在窗体上也适用，用法：传回值=Object
10、.Point。PrivateSubPicturelAutoRedraw属性：上面的PSet、Line、Circle是VB所提供的，画图在屏幕上的方法，因此只要对象移出屏幕外，或是对象被其它窗口或对象给盖着，刚才所画的图会不件，若在绘图时，把AutoRedraw设为True，则可把图绘入内存，即使用Cls方法也清除不掉，范例在上面的画圆范例里头。想要把用VB函数在PictureBox里所画的图给存起来时(把AutoRedraw设为True时所绘的图才能存盘)，VB提供了SavePicture方法，用法是SavePictureObject.Picture,檔名。PrivateSubCommandl
11、_Click()SavePicturePicturel.Picture,C:WindowsTempTmp.BmpEndSubSavePicture只能存BMP格式的档按，请别异想天开把扩展名改成JPG或GIF，存起来的图仍是BMP格式的图。PaintPicture方法：PaintPicture方法，可以把某个物计内的图转贴到另一个物件上，但要有一个前题，这个图是用Picture属性加载进来的图才可以，用法Object.PaintPicture来源对象.Picture,Object.X,Object.Y,图在Object上的宽度，图在Object上的高度，来源对象X起始位置，来源对象起始Y位置，
12、来源对象上的宽度,来源对象上的高度,贴图模式PrivateSubCommandl_Click()Picturel.PaintPicturePicture2.Picture,0,0原尺寸转印EndSub若是改变了图在Object上的宽与高，可以改变图形的缩放PrivateSubCommand1_Click()Picturel.PaintPicturePicture2.Picture,0,0,750,600EndSubPicture2内的图被放大转贴到Picture1里。至于贴图模式，留在其单元里的特殊功能里讨论Print方法：Print可以在PictureBox上打印文字，窗体也适用，用法：Object.Print资料。PrivateSubCommand1_Click()MyLng=1234567Picture1.Print今天天气真好Picture1.PrintMyLng=&MyLngEndSubCurrentX与CurrentY属性，设定或传回目前PictureBox上画笔所在的位置，窗体也适用。PrivateSubCommand1_Click()Picture1.CurrentX=500Picture1.CurrentY=350Picture1.Print今天天气真好EndSub
