主题：[求助]画矩形问题

如何实现：在窗口的Panel面板上，通过鼠标画出任意一矩形？

谢

 参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:画圆滑曲线.table

我把代码修改了一下，还是不行。

Dim x As Integer = args(0)
Dim y As Integer = args(1)
Dim paint As WinForm.Painter = args(2)

Dim graphics As Graphics = paint.Graphics

using p As New Pen(Color.Green, 10)
p.StartCap = Drawing2D.LineCap.Round
p.EndCap = Drawing2D.LineCap.Round
p.LineJoin = Drawing2D.LineJoin.Round
graphics.SmoothingMode = SmoothingMode.AntiAlias

'graphics.DrawLine(p, px, py,x, y)
Dim w As Integer = Math.Abs(px-x)
Dim h As Integer = Math.Abs(py-y)
graphics.DrawRectangle(p,px,py,w,h)
End using
paint.Repaint

参考

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:鼠标框选效果.table