vb.net - 在 VB.NET WinForms 中以编程方式添加 LineShape

Question

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

我正在寻找像您一样为 a 或其他任何东西写的Label东西CheckBox：

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

等等。

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

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

score 0 · Accepted Answer

首先，导入 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

有关更多信息和 API 参考，请访问：http: //msdn.microsoft.com/en-us/library/bb918067.aspx

1 回答 1