怎样根据给定起终点坐标和半径画弧.txt

VB技巧问答10000例 VB技巧问答10000例

先 解 方 程 组 ： 
    (x-x1)^2+(y-y1)^2=r^2 
    (x-x2)^2+(y-y2)^2=r^2 
    这 样 就 可 以 得 到 圆 心 C。 解 得 两 个 解 ， 根 据 r的 正 负 选 择 一 个 。 
    利 用 求 AC、 BC直 线 斜 率 ， 可 以 计 算 出 A和 B在 以 C为 圆 点 过 A和 B的 圆 上 的 弧 度 值 。 
    VB的 Circle语 句 的 格 式 如 下 ： 
    object.Circle [Step] (x, y), radius, [color, start, end, aspect] 
    这 样 我 们 所 需 要 的 圆 心 、 起 点 和 终 点 的 弧 度 值 就 都 知 道 了 ， 可 以 绘 制 弧 了 。 
<END>