展开全部
简易的:
1 2 3 4 5 6 7 8 9 10 | Dim dx, dy Private Sub Form_MouseDown(Button As Integer , Shift As Integer , X As Single , Y As Single ) dx = X dy = Y End Sub Private Sub Form_MouseUp(Button As Integer , Shift As Integer , X As Single , Y As Single ) Line (dx, dy)-(X, Y), vbRed End Sub |
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |