房天下

Fang.com
房天下 > 房天下问答 > 家居装修 > 装修前

  • vb窗体上以鼠标按下左键为圆心,松开到圆心的距离为半径画圆

    门窗 举报

    提问者：shoesid

    发布于2010-12-01

相关搜索推荐

门窗

共1个回答
  • heidiyan 丨Lv 3
    Dim cx As IntegerDim cy As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Thencx = Xcy = YPSet (X, Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Thenr = Sqr((X - cx) ^ 2 + (Y - cy) ^ 2)Me.Circle (cx, cy), rEnd IfEnd Sub
    +1 2010-12-01 举报
推荐楼盘小区二手房商圈租房热门知识 相关推荐房产百科
免责声明：问答内容均来源于互联网用户，房天下对其内容不负责任，如有版权或其他问题可以联系房天下进行删除。