如何在vb中的picturebox 里画图?

Question

还有怎么样才能保存~本人还是个新手 好的话还可以再加分~

Answer 1

Sub Form_Click()
Dim CX, CY, Radius, Limit ' Declare variable.
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3 ' 以像素为单位。
CX = Picture1.ScaleWidth / 2 ' X 位置。
CY = Picture1.ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius

For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
f1 = 1 - F: f2 = 1 + F ' 计算。
Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。
Picture1.Line -(CX * f2, CY) ' 画右上角。
Picture1.Line -(CX, CY * f2) ' 画右下角。
Picture1.Line -(CX * f1, CY) ' 画左下角
ForeColor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
SavePicture Picture1.Image, "z:\test.bmp"
End Sub

Answer 2

首先现在图片框中画出必要的图形控件对象
然后在代码中只要将画图所需用的控件对象或属性前面加上图片框对象名picture1就好了