VB中PictureBox控件的用法..doc

右图，PictureBox对象可以说是任何对象的原始型态，它可以加载图片、显示文字、画图外，它还能与Frame对象一样，在自己本身里头加载其它的对象而自成一个小群组，用PictureBox可以仿真出任何对象的外观，PictureBox是VB基本控件里变化最多，功能最多，也是令人最想去征服它的一个物件。 ●PictureBox与Frame对象一样，本身都能装载其它的对象而自己形成一个对象群组。●如果要拿PictureBox装载对象时，可以把它视为Frame来使用。 ●与Image对象一样在设计阶段时，以Picture属性来加载图片。 ●与Image对象一样都是在属性对话窗口按一下〝...〞钮后，跳出〝加载图片〞对话框，选择所要的图档，然后加载。 ●在执行阶段，可以用VB的函数来帮PictureBox加载图片： Command1_Click() Picture1.Picture = LoadPicture(E:\MyGif\AniGif0562.gif) End Sub ●在设计阶段，若后悔加载图片，想把它消除时，可以把PictureBox按Delete键删掉，然后从工具箱拖曳一个新的PictureBox，或是在属性对话框里的Picture属性，把〝(位图)〞这几个反白，或是移到〝(〞的最前端，按一下键盘的Delete键即可移除图片。 ●若在执行阶段，想把PictureBox内的图片移除，可再用LoadPicture函数，并且传空字符串给它： Private Sub Command1_Click() Picture1.Picture = LoadPicture() End Sub ●在PictureBox里画图：●PSet方法：PSet不只是用在PictureBox上，也可以用在窗体上，PSet最主要功用用就是在某一点位置上画一个点，用法是Object.PSet(X,Y), Color： Private Sub Command1_Click() Picture1.PSet(500,260),RGB(128,0,255) RGB函数是以红色、绿色、蓝色来表示颜色，详情请到函数指令参考 End Sub●若颜色省略，则以PictureBox预设的颜色。 ●前面有学到随机数的运用，因此我们来做个范例看看，范例─满天繁星： Private Sub Timer1()_Timer Randomize X = 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) End Sub ●Line方法：Line方法专门用来画直线的工具，在窗体上也可以使用，用法：Object.Line(X1,Y2)-(X2,Y2), Color, BF●Color在Line里与PSet一样是可以被省略的，在Color后方，若是加入B则画出的不是线条，而是一个空心矩形，若是BF，则画出来的是实心矩形。 Private Sub Command1_Click() Picture1.Line(50,50)-(500,750) End Sub Private Sub Command1_Click() Picture1.Line(50,50)-(500,750), ,B End Sub Private Sub Command1_Click() Picture1.Line(50,50)-(500,750), ,BF End Sub ●Circle方法：Circlr方法专门用来画圆，窗体上也是可以使用，用法：Object.Circle(X,Y), R, Color, 起始角度, 终止角度, 椭圆率 Private Sub Command1_Click() Picture1.Circle(1000, 1000), 800 End Sub Private Sub Command1_Click() Const PI = 3.1415926535 Picture1.Circle (1000, 1000), 800, , PI / 4, 3 * PI / 4 End Sub●若是设定起始角度与终止角度，画出来的圆会变成弧，而角度单位使用的是弧度，也就是说，180。=3.1415926535...对于没有学过弧度的网友来说，可能是难了点。 Private Sub Command1_Click() Const PI = 3.1415926535