有一个名称为Form1的窗体,上面没有控件,设有以下程序(其中方法Pset(X,Y)的功能是在坐标X,Y 处画一个点):
Di mc mdmave As Boolean
Private Sub Form_MouseDown (Button As Integer ,Shift As Integer ,X As Si ngle ,Y As Si ngle) c mdmave =True
End Sub
Private Sub Form_Mouse Move(Button As Integer ,ShiftAs Integer ,X As Si ngle ,Y As Si ngle) If c mdmave Then Form1.Pset(X,Y)
End If
End Sub
Private Sub Form_Mouse Up(Button As Integer ,ShiftAs Integer ,X As Si ngle ,Y As Si ngle) c mdmave =False
End Sub
此程序的功能是( )。
发布于 2022-05-11 09:58:49
登录后免费查看答案
关注者
0
被浏览
9