在 VB.NET WinForms 中以编程方式添加 LineShape答案

【问题标题】：Add LineShape programatically in VB.NET WinForms在 VB.NET WinForms 中以编程方式添加 LineShape
【发布时间】：2014-06-30 12:43:19
【问题描述】：

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

我希望为 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。但我想看看你所有的想法/解决方案！

【问题讨论】：

您使用的是哪个版本的 .net？
控件总是以编程方式添加。如果您想了解设计师是如何做到的，那么您就会知道如何自己做，那么只需查看它生成的代码即可。单击解决方案资源管理器窗口中的“显示所有文件”工具栏按钮，然后打开表单的 Designer.vb 文件。

【解决方案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

【讨论】：