问题描述：
VB绘制如图所示的圆弧.不知道后面的角度怎么设置、在线等
Const PI = 3.14159265
Dim hd As Single
hd = PI / 180
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2 + (d2 - d3) / 2, h2 + 10)
Picture1.Line (d2 / 2 - (d2 - d3) / 2, h2 + 10)-(d2 / 2, h2 + 10)
Picture1.Line (d2 / 2, h2 + 10)-(d2 / 2, 10 + r2)
Picture1.Circle (d2 / 2 - r2, r2 + 10), r2, 0 * hd, 270 * hd
Picture1.Line (-d2 / 2 + r2, 10)-(d2 / 2 - r3, 10)
Picture1.Circle (-d2 / 2 + r2, r2 + 10), r2, 270 * hd, 0 * hd
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2, 10 + r2)
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2, 10 + r2)
左侧的圆弧要和右边的一样,但怎么修改也么用.用的是circle指令
Const PI = 3.14159265
Dim hd As Single
hd = PI / 180
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2 + (d2 - d3) / 2, h2 + 10)
Picture1.Line (d2 / 2 - (d2 - d3) / 2, h2 + 10)-(d2 / 2, h2 + 10)
Picture1.Line (d2 / 2, h2 + 10)-(d2 / 2, 10 + r2)
Picture1.Circle (d2 / 2 - r2, r2 + 10), r2, 0 * hd, 270 * hd
Picture1.Line (-d2 / 2 + r2, 10)-(d2 / 2 - r3, 10)
Picture1.Circle (-d2 / 2 + r2, r2 + 10), r2, 270 * hd, 0 * hd
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2, 10 + r2)
Picture1.Line (-d2 / 2, h2 + 10)-(-d2 / 2, 10 + r2)
问题解答：
我来补答
Const PI = 3.14159265
Dim HD As Single
HD = PI / 180
Picture1.Cls
Picture1.Circle (3000,3000),2500,RGB(255,0,0),180 * HD,270 * HD
再问： 还是没用呀~~只能画出和右边的圆弧一样
再答： Picture1.Circle (3000, 3000), 2500, RGB(255, 0, 0), 270 * HD, 0* HD
再问：
变成这个样子了
再答： 把你的代码贴出来
再问： 大侠~~~麻烦你了。。。
再答： 大哥，你好好看看我的代码。。。 circle(圆心 x,y)，半径，颜色，角度1，角度2。。。
Dim HD As Single
HD = PI / 180
Picture1.Cls
Picture1.Circle (3000,3000),2500,RGB(255,0,0),180 * HD,270 * HD
再问： 还是没用呀~~只能画出和右边的圆弧一样
再答： Picture1.Circle (3000, 3000), 2500, RGB(255, 0, 0), 270 * HD, 0* HD
再问：
变成这个样子了再答： 把你的代码贴出来
再问： 大侠~~~麻烦你了。。。
再答： 大哥，你好好看看我的代码。。。 circle(圆心 x,y)，半径，颜色，角度1，角度2。。。
展开全文阅读