植物的组织培养过程图:怎样用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.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吧
我第一次的时候也范过这个错~