用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 通过三个点画圆弧函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-10-29 15:10:37
VB 通过确定3点坐标绘制圆弧。
VBScript code复制代码
Private Sub hyh(obj As Object, x1 As Single, y1 As Single, x2 As Single, y2 As Single, x3 As Single, y3 As Single)
    'obj:要画的窗体或控件
    Dim X As Single, Y As Single, r As Single
    obj.Cls
    obj.PSet (x1, y1)
    obj.PSet (x2, y2)
    obj.PSet (x3, y3)
    X = ((y3 - y1) * (y2 * y2 - y1 * y1 + x2 * x2 - x1 * x1) + (y2 - y1) * (y1 * y1 - y3 * y3 + x1 * x1 - x3 * x3)) / (2 * (x2 - x1) * (y3 - y1) - 2 * (x3 - x1) * (y2 - y1))
    Y = ((x3 - x1) * (x2 * x2 - x1 * x1 + y2 * y2 - y1 * y1) + (x2 - x1) * (x1 * x1 - x3 * x3 + y1 * y1 - y3 * y3)) / (2 * (y2 - y1) * (x3 - x1) - 2 * (y3 - y1) * (x2 - x1))
    r = Sqr((x1 - X) * (x1 - X) + (y1 - Y) * (y1 - Y))
    obj.Circle (X, Y), r
End Sub

Tags:VB 圆弧 函数

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 1 条,得分 1 分,平均 1 分) 查看完整评论
[回复] 1游客   打分:1 分  发表时间:2013-06-27
· 这是画圆啊,哪里是圆弧了