vb中picturebo控件使用方法

1、v1.0可编辑可修改VB中 PictureBox控件使用教程PictureBox对象可以说是任何对象的原始型态，它可以加载图片、显示文字、画图外，它还能与 Frame 对象一样，在自己本身里头加载其它的对象而自成一个小群组，用 PictureBox可以仿真出任何对象的外观，PictureBox是 VB基本控件里变化最多，功能最多，也是令人最想去征服它的一个物件。PictureBox与 Frame 对象一样，本身都能装载其它的对象而自己形成一个对象群组。如果要拿PictureBox装载对象时，可以把它视为Frame 来使用。与 Image 对象一样在设计阶段时，以Picture属性来加载图片。与

2、 Image 对象一样都是在属性对话窗口按一下.钮后，跳出加载图片对话框，选择所要的图档，然后加载。在执行阶段，可以用VB 的函数来帮PictureBox加载图片：Command1_Click()LoadPicture(E:MyGif) End Sub在设计阶段， 若后悔加载图片，想把它消除时，可以把 PictureBox按 Delete键删掉，然后从工具箱拖曳一个新的PictureBox，或是在属性对话框里的Picture属性，把 ( 位图 ) 这几个反白，或是移到( 的最前端，按一下键盘的Delete 键即可移除图片。若在执行阶段，想把PictureBox内的图片移除，可再用LoadPic

3、ture函数，并且传空字符串给它：Private Sub Command1_Click()LoadPicture() End Sub-在 PictureBox里画图：PSet 方法： PSet 不只是用在PictureBox上，也可以用在窗体上，PSet 最主要功用用就是在某一点位置上画一个点，用法是(X,Y), Color：Private Sub Command1_Click()(500,260),RGB(128,0,255)RGB 函数是以红色、绿色、蓝色来表示颜色，详情请到函数指令参考End Sub若颜色省略，则以PictureBox预设的颜色。前面有学到随机数的运用，因此我们来做个范例

4、看看，范例满天繁星：1v1.0可编辑可修改Private Sub Timer1()_TimerRandomizeX = Int(Rnd *Y = Int(Rnd *R = Int(Rnd * 256)G = Int(Rnd * 256)B = Int(Rnd * 256)(X, Y), RGB(R, G, B)End SubLine 方法： Line 方法专门用来画直线的工具，在窗体上也可以使用，用法：(X1,Y2)-(X2,Y2), Color, BFColor在 Line 里与 PSet 一样是可以被省略的，在Color 后方，若是加入B 则画出的不是线条，而是一个空心矩形，若是BF，则画

5、出来的是实心矩形。Private Sub Command1_Click()(50,50)-(500,750)End SubPrivate Sub Command1_Click()(50,50)-(500,750), ,BEnd SubPrivate Sub Command1_Click()(50,50)-(500,750), ,BFEnd SubCircle方法： Circlr方法专门用来画圆，窗体上也是可以使用，用法：(X,Y), R,Color,起始角度 ,终止角度 ,椭圆率Private Sub Command1_Click()(1000, 1000), 800End SubPrivat

6、e Sub Command1_Click()Const PI =(1000, 1000), 800, , PI / 4, 3 * PI / 4End Sub若是设定起始角度与终止角度，画出来的圆会变成弧，而角度单位使用的是弧度，也就是说， 180。 =.对于没有学过弧度的网友来说，可能是难了点。Private Sub Command1_Click()2v1.0可编辑可修改Const PI =(1000, 1000), 800, , -PI / 4, -3 * PI / 4End Sub若是起始角或终止角使用负数，它们还由由圆心画直线到起始角或终止角，这样就可以画出扇形。Private Sub

7、Command1_Click()(1000, 1000), 800, , , ,End Sub椭圆率则是圆的Y 轴与 X 轴的比值，也就是Y/X，可以画出椭圆形。范例：在PictureBox里，拖曳产生一个圆(一般)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 Private Sub Picture1_Mous

8、eMove(Button As Integer, Shift As Integer, X AsSingle, Y As Single)If Button = 1 Then(Dx, Dy)-(X, Y)(Dx, Dy), (Dx - X) 2 + (Dy - Y) 2) End IfEnd Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then= True(Dx, Dy), (Dx - X) 2 + (Dy - Y) 2) F

9、alseEnd If End Sub3v1.0可编辑可修改Cls 方法： Cls 方法，就是清除屏幕上对象所在范围的内容，窗体也适用，若已存在内存里的内容，则无法消除，用法：，范例在上面的画圆范例里。Point方法： Point就是读取PictureBox某一点上的颜色数值，传回值是长整数型态，在窗体上也适用，用法：传回值= 。Private Sub Picture1AutoRedraw 属性：上面的PSet、 Line 、 Circle是 VB 所提供的，画图在屏幕上的方法，因此只要对象移出屏幕外，或是对象被其它窗口或对象给盖着，刚才所画的图会不件，若在绘图时，把AutoRedraw 设为

10、True ，则可把图绘入内存，即使用Cls方法也清除不掉，范例在上面的画圆范例里头。想要把用VB 函数在 PictureBox里所画的图给存起来时( 把 AutoRedraw 设为 True 时所绘的图才能存盘 ) ， VB提供了 SavePicture 方法，用法是 SavePicture ,檔名。Private Sub Command1_Click()SavePicture , C:WindowsTempEnd SubSavePict ure 只能存 BMP格式的档按，请别异想天开把扩展名改成JPG或 GIF，存起来的图仍是 BMP格式的图。PaintPicture方法： PaintPic

11、ture方法，可以把某个物计内的图转贴到另一个物件上，但要有一个前题，这个图是用Picture属性加载进来的图才可以，用法来源对象.Picture, , ,图在 Object 上的宽度 , 图在 Object 上的高度 ,来源对象 X 起始位置, 来源对象起始 Y 位置 ,来源对象上的宽度 , 来源对象上的高度, 贴图模式Private Sub Command1_Click()0, 0原尺寸转印End Sub若是改变了图在Object上的宽与高，可以改变图形的缩放Private SubCommand1_Click()0, 0, 750, 600 End SubPicture2 内的图被放大转贴到 Picture1 里。至于贴图模式，留在其单元里的特殊功能里讨论Print方法： Print可以在 PictureBox上打印文字，窗体也适用，用法：资料。Private