UC知道VB中在一个圆中画一段圆弧
来源：百度知道 编辑：UC知道 时间：2024/06/24 10:24:20
在半径为1000的圆中画一段圆弧
圆弧相关数据：
圆心坐标：
xc’=1000 tanθ cosω1
yc’=1000tanθ sinω1
半径：
rc =1000 /cosθ
起始角度：
角度1：R1=90-ω-artan(1/tanθ)
角度2：R2=90-ω+artan(1/tanθ)
高手给发一下源代码吧
圆弧相关数据：
圆心坐标：
xc’=1000 tanθ cosω1
yc’=1000tanθ sinω1
半径：
rc =1000 /cosθ
起始角度：
角度1：R1=90-ω-artan(1/tanθ)
角度2：R2=90-ω+artan(1/tanθ)
高手给发一下源代码吧
用API函数Arc
函数声明
Public Declare Function Arc Lib "gdi32" Alias "Arc" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
这个声明最好声明在标准模块里面,不然的话Public 就要改成Private
下面就可以直接用这个函数画弧线了
hdc是一个要画弧线的DC 可以去me.hdc
x1,y1是这个圆弧的椭圆的外接矩形左上角坐标
x2,y2是右下角
x3,y3是圆弧开始的X,Y坐标,
x4,y4是结束的XY坐标
如
Arc me.hdc,0,0,500,500,252,0,0,250
注意如果要看到画的弧线需要设置窗口的AutoReDraw属性为TRUE
这样才能持续输出不被擦出