Question

VB.NET 画直线 问题 怎样让直线置顶(就是不被其它控件覆盖) 100分(希望详细些)如较麻烦，会追加分数

图片：

默认代码：
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim g As Graphics = Me.CreateGraphics
g.DrawLine(Pens.Red, 0, 0, 300, 300)
End Sub
End Class
现象：图中直线明显被标签和按钮覆盖
问题：就是怎样让直线位于Label1 和 Button1的上方
希望：就是如效果图一样，（效果图是画出来的）





Answer 1

这个必须用控件的方法解决，VB6有个Line控件很容易解决这个问题，但是VB.NET没有了，幸好微软也想到了这个缺陷，提供免费的Visual Basic PowerPacks控件箱，其中有Line控件。
Visual Basic PowerPacks下载地址：http://msdn.microsoft.com/zh-cn/vstudio/bb735936.aspx
使用 LineShape 控件绘制直线：http://msdn.microsoft.com/zh-cn/library/cc488281(v=vs.100).aspx#feedback

追问

lineshape好像VS2012本来就有的
然后 我是过了 不行啊

追答

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ShapeContainer1.BringToFront()
    End Sub

这样可以将LineShape的Z order放到最前，就不会被窗体上的控件遮挡住了！注意：ShapeContainer1是LineShape1的容器，只要窗体上有LineShape控件，必然有此容器，我用的是缺省名字。