植物的组织培养过程图:怎样用vb在图形框中画圆?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 06:34:21
我已在图形框中建立了坐标系,想在这个坐标系中画圆,结果总出现在窗体中,请哪位帮帮我,谢谢
这是我的部分源程序:
Picture1.ScaleMode = 0
Picture1.ScaleMode = 6
Picture1.Scale (-30, 30)-(30, -30)

Picture1.DrawWidth = 1

Picture1.Line (-30, 0)-(30, 0), vbBlue

Picture1.Line (28, 1)-(30, 0), vbBlue

Picture1.Line -(28, -1), vbBlue

Picture1.ForeColor = vbBlue

Picture1.Print "X"

Picture1.Line (0, 30)-(0, -30), vbBlue

Picture1.Line (1, 28)-(0, 30), vbBlue

Picture1.Line -(-1, 28), vbBlue

Picture1.Print "Y"

Picture1.CurrentX = 0.5

Picture1.CurrentY = -0.5

Picture1.Print "O"

x1 = (a + b) / 2 "a,b,c是已知参数
r = Sqr(((a - b) / 2) ^ 2 + c ^ 2)

Picture1.Circle (x1, 0), r, vbRed
呵呵,我已经知道答案了
不好意思

原来没加Picture1吧
我第一次的时候也范过这个错~