VB中PictureBox控件使用教程
PictureBox对象可以说是任何对象的原始型态，它可以加载图片、显示文字、画图外，它还能与Frame对象一样，在自己本身里头加载其它的对象而自成一个小群组，用PictureBox可以仿真出任何对象的外观，PictureBox是VB基本控件里变化最多，功能最多，也是令人最想去征服它的一个物件。
*在执行阶段，可以用VB的函数来帮PictureBox加载图片：
Command1_Click()
Picture1.Picture = LoadPicture("E:\MyGif\AniGif0562.gif")
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
Picture1.Circle (1000, 1000), 800, , -PI / 4, -3 * PI / 4
End Sub
●若是起始角或终止角使用负数，它们还由由圆心画直线到起始角或终止角，这样就可以画出扇形。
Private Sub Command1_Click()
Picture1.Circle (1000, 1000), 800, , , , 0.75
End Sub
●椭圆率则是圆的Y轴与X轴的比值，也就是 Y/X ，可以画出椭圆形。
●范例：在PictureBox里，拖曳产生一个圆
(一般)
Dim Dx As Single, Dy As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dx = X
Dy = Y
End If
End Sub Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Cls
Picture1.Line (Dx, Dy)-(X, Y)
Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)
End If
End Sub Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Cls
Picture1.AutoRedraw = True
Picture1.Circle (Dx, Dy), (((Dx - X) ^ 2 + (Dy - Y) ^ 2) ^ 0.5)
Picture1.AutoRedraw = False
End If
End Sub
●Cls方法：Cls方法，就是清除屏幕上对象所在范围的内容，窗体也适用，若已存在内存里的内容，则无法消除，用法：Object.Cls，范例在上面的画圆范例里。
●Point方法：Point就是读取PictureBox某一点上的颜色数值，传回值是长整数型态，在窗体上也适用，用法：传回值 = Object.Point
Private Sub Picture1
●AutoRedraw属性：上面的PSet、Line、Circle是VB所提供的，画图在屏幕上的方法，因此只要对象移出屏幕外，或是对象被其它窗口或对象给盖着，刚才所画的图会不件，若在绘图时，把AutoRedraw设为True，则可把图绘入内存，即使用Cls方法也清除不掉，范例在上面的画圆范例里头。
●想要把用VB函数在PictureBox里所画的图给存起来时(把AutoRedraw设为True时所绘的图才能存盘)，VB提供了SavePicture方法，用法是SavePicture Object.Picture, 存档名。
Private Sub Command1_Click()
SavePicture Picture1.Picture, "C:\Windows\Temp\Tmp.Bmp"
End Sub
●SavePicture只能存BMP格式的，请别异想天开把扩展名改成JPG或GIF，存起来的图仍是BMP格式的图。
●PaintPicture方法：PaintPicture方法，可以把某个物计内的图转贴到另一个物件上，但要有一个前题，这个图是用Picture属性加载进来的图才可以，用法：
Object.PaintPicture 来源对象.Picture, Object.X, Object.Y, 图在Object上的宽度, 图在Object上的高度, 来源对象X起始位置, 来源对象起始Y位置, 来源对象上的宽度, 来源对象上的高度, 贴图模式
Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 0, 0 '原尺寸转印
End Sub
●若是改变了图在Object上的宽与高，可以改变图形的缩放，Picture2内的图被放大转贴到Picture1里。
Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 0, 0, 750, 600
End Sub
●Print方法：Print可以在PictureBox上打印文字，窗体也适用，用法：Object.Print 资料。
Private Sub Command1_Click()
MyLng = 1234567
Picture1.Print "今天天气真好"
Picture1.Print "MyLng = " & MyLng
End Sub
●CurrentX与CurrentY属性：设定或传回目前PictureBox上画笔所在的位置，窗体也适用。
Private Sub Command1_Click()
Picture1.CurrentX = 500
Picture1.CurrentY = 350
Picture1.Print "今天天气真好"
End Sub
摘录自：http://www.cnblogs.com/rosesmall/p/5048705.html
