Question

编程环境是VB2010 在picturebox内用鼠标画一个不规则的多边形，然后获取轨迹经过的坐标来填充

可能说的不清楚，程序是一个计算机图形学里面轮廓种子填充算法的演示，要求用鼠标绘制一个轮廓（闭合的）然后填充轮廓内的点（因为是演示，所以是用一个正方形代表一个像素） 主要是如何用鼠标画轮廓，同时要获取绘制轨迹的坐标信息。

Answer 1

如果你用的是picturebox
线可以这样
private picGR as Graphics
private lastpoint as point
private 装入(sender as object,e as object)Handles me.load
picGR = Graphics.FromHwnd(Me.Handle)
end sub
在picture的 mousemove 里就可以写
if lastpoint is nothing then lastpoint =e.Location可能是这个参数 [Location] 如果不是,一写有 e.x e.y 那么 来个 new point(e.x,e.y) 也行
picGR .DrawLine(Pens.Black,lastpoint , e.Location) .'这样应该就差不多了
lastpoint =e.location

Answer 2

在picturebox的mouseDown事件的时候开始记录鼠标经过的坐标，再等mouseUp的时候完成绘画。