求思路：怎么判断鼠标与线条相交！！！

Question

用API在PictureBox上面画了线条，现在要求鼠标移动到画出的线条上面去的时候，鼠标变成红色箭头  请问这个可以实现吗？？    是不是要用到API呢。谢谢

Answer 1

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'假设线条颜色是RGB(0,0,0)
if Point(X,Y)=RGB(0,0,0) then '鼠标在线条上
 Picture1.MousePointer=VbCustom '99 通过 MouseIcon 属性所指定的自定义图标。 
else
 Picture1.MousePointer=vbDefault '0 （缺省值）形状由对象决定。 
end if
End SubMouseIcon 属性
      返回或设置自定义的鼠标图标。语法object.MouseIcon = LoadPicture(pathname)object.MouseIcon [= picture]MouseIcon 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
pathname 字符串表达式，指定包含自定义图标文件的路径和文件名。 
picture Form 对象、PictureBox 控件、或 Image 控件的 Picture 属性。 
说明MouseIcon 属性提供一个自定义图标，它在 MousePointer 属性设为 99 时使用。MouseIcon 属性使程序能够很容易地访问自定义光标，它可以是任意大小并具有任何热点位置的光标。Visual Basic 不能装入动画光标 (.ani) 文件，即使 32-位版的 Windows 支持这些光标。