'用一个连接弧画一条线
'从圆心开始，圆心左边 是0度， 逆时针方向 画线到 圆连接 再到 占据的范围
'SetArcDirection 设置 顺时针或（逆时针）
'(ByVal hDc As Long, ByVal X As Long, ByVal Y As Long, ByVal 圆的半径 As Long,ByVal 线同圆连接时的角度（以度数为单位） As Double, ByVal 弧在圆上占据的范围（以度数为单位） As Double _
'           ByVal 线条类型 As 线条类型_m,ByVal 框线粗细 As Long,  ByVal 边框色 As Long)       
'需要支持高DPI，请代码中加 AfxScaleX(X), AfxScaleY(Y)  
'nPenStyle ------ Long，指定画笔样式，可以是下述常数之一
'PS_SOLID        画笔画出的是实线
'PS_DASH         画笔画出的是虚线（nWidth必须不大于1）
'PS_DOT          画笔画出的是点线（nWidth必须不大于1）
'PS_DASHDOT      画笔画出的是点划线（nWidth必须不大于1）
'PS_DASHDOTDOT   画笔画出的是点-点-划线（nWidth必须不大于1）
'PS_NULL         画笔不能画图
'PS_INSIDEFRAME  由椭圆、矩形、圆角矩形、饼图以及弦等生成的封闭对象框时，画线宽度向内扩展。如指定的准确RGB颜色不存在，就进行抖动处理
'颜色用 BGR(0, 0, 255) 创建  不能用 RGB
Sub DrawAngleArc(ByVal shDC as hDC, ByVal X as Long, ByVal Y as Long, ByVal dwRadius as Long, ByVal eStartAngle as Double, ByVal eSweepAngle as Double, _
      ByVal nPenStyle as Long, ByVal nWidth as Long, ByVal crColor as COLORREF) '用一个连接弧画一条线
   '(ByVal hDc As Long, ByVal X As Long, ByVal Y As Long, ByVal 圆的半径 As Long,ByVal 线同圆连接时的角度（以度数为单位） As Double, ByVal 弧在圆上占据的范围（以度数为单位） As Double _
   'ByVal 线条类型 As 线条类型_m,ByVal 框线粗细 As Long,  ByVal 边框色 As Long)
   
   '线条类型 nPenStyle
   '实线 = 0
   '虚线 = 1
   '点线 = 2
   '点划线 = 3
   '双点划线 = 4
   '无线 = 5
   '内收实线 = 6
   Dim hOldPen as HGDIOBJ, shPen as HPEN, lpPoint as Point
   shPen = CreatePen(nPenStyle, nWidth, crColor) '创建新画笔
   hOldPen = SelectObject(shDC, shPen)            '画笔存入DC
   MoveToEx shDC, x, y, @lpPoint             '设置起点
   AngleArc shDC, X, Y, dwRadius, eStartAngle, eSweepAngle                      '
   SelectObject(shDC, hOldPen)            '销毁
   DeleteObject(shPen)
   
End Sub
