如何在vb中的picturebox 里画图?

发布网友发布时间：2022-06-01 19:56

共2个回答

热心网友时间：2023-10-14 10:46

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

热心网友时间：2023-10-14 10:47

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