module1.bas

来自「visual basic课程设计案例精编」· BAS 代码 · 共 12 行

Attribute VB_Name = "Module1"
Option Explicit
'自定义结构用于保存点数据
Public Type POINT
    x As Long
    y As Long
End Type

'指定点与鼠标输入点的最大误差
'单位为PictureBox的缺省单位
Public Const MAXDISTANCE = 40