VB中在一个圆中画一段圆弧

显示全部楼层 · 2008-10-30 11:18:37

在半径为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θ)
高手给发一下源代码吧

千问 · 2008-10-30 11:18:37

用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 ...