Question

如何在VB.NET WinForms中以编程方式添加LineShape？

我希望为Label，CheckBox或其他任何内容写出类似的内容：

Dim somelabel as New Label
somelabel.Text = "Whatever"
somelabel.Location = New Point(200, 200)
Me.Controls.Add(somelabel)

等

我的目的是在16个标签的行和列之间创建细分线，形成一个4x4网格。

我很欣赏，因为LineShape是VB PowerPacks的一部分，这可能会带来一些困难，例如必须使用Imports ...，或者，如果确实有必要，可以导入.dll。但是我希望看到你所有的想法/解决方案！

Answer 1

首先，导入powerpacks命名空间，以便您访问控件：

Imports Microsoft.VisualBasic.PowerPacks

然后你可以这样做：

Dim startx As Integer
Dim starty As Integer
Dim endx As Integer
Dim endy As Integer
Dim yourline As New LineShape(startx, starty, endx, endy)

其中startx = x起始位置，starty = y起始位置，endx =结束x位置，endy =结束y位置。如果你想把它放到画布上，只需：

Dim yourcanvas As ShapeContainer
canvas.Parent = formName
yourline.Parent = canvas