VB：在窗体上自由画圆：鼠标按下为圆心，放开为圆上一点画圆。颜色由一个列表框设置。
答案:1 悬赏:60 手机版
解决时间 2021-01-24 02:21
- 提问者网友：爱了却不能说
- 2021-01-23 15:54
VB：在窗体上自由画圆：鼠标按下为圆心，放开为圆上一点画圆。颜色由一个列表框设置。
最佳答案
- 五星知识达人网友：摆渡翁
- 2021-01-23 17:32
Dim OldX As Single
Dim OldY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
OldX = X
OldY = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (OldX, OldY), Sqr((OldX - X) ^ 2 + (OldY - Y) ^ 2), vbRed
End Sub
Dim OldY As Single
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X, Y)
OldX = X
OldY = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Circle (OldX, OldY), Sqr((OldX - X) ^ 2 + (OldY - Y) ^ 2), vbRed
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯