ShapeContainer 构造函数
初始化 ShapeContainer 类的新实例。
命名空间: Microsoft.VisualBasic.PowerPacks
程序集: Microsoft.VisualBasic.PowerPacks.Vs(在 Microsoft.VisualBasic.PowerPacks.Vs.dll 中)
语法
声明
Public Sub New
public ShapeContainer()
public:
ShapeContainer()
new : unit -> ShapeContainer
public function ShapeContainer()
备注
使用 New 方法时,将创建行或形状在运行时,必须将其 Parent 属性设置为 ShapeContainer。 如果 ShapeContainer 为窗体或容器已存在,则应设置 Parent 属性设置为该 ShapeContainer。 如果 ShapeContainer 不存在,您可以创建 ShapeContainer 使用 New 方法并将其 Parent 属性设置为窗体或容器。
备注
注意不创建多每个窗体或容器中 ShapeContainer ;这样做可能引入意外行为。如果您添加一个设计时程 line 或 shape 控件添加到窗体或容器,在创建的编写代码以编程方式,应修改此代码使用设计器中创建的 ShapeContainer 。
示例
下面的示例检查现有 ShapeContainer 并将 OvalShape 控件的 Parent 属性创建在运行时使用 New 方法。
Private Sub Form1_Load() Handles MyBase.Load
Dim NewOval As New OvalShape
Dim i As Integer
Dim found As Boolean
' Loop through the Controls collection.
For i = 0 To Me.Controls.Count - 1
' If a ShapeContainer is found, make it the parent.
If TypeOf Controls.Item(i) Is ShapeContainer Then
NewOval.Parent = Controls.Item(i)
found = True
Exit For
End If
Next
' If no ShapeContainer is found, create one and set the parents.
If found = False Then
Dim sc As New ShapeContainer
sc.Parent = Me
NewOval.Parent = sc
End If
NewOval.Size = New Size(200, 300)
End Sub
private void form1_Load(System.Object sender, System.EventArgs e)
{
OvalShape NewOval = new OvalShape();
int i;
bool found = false;
// Loop through the Controls collection.
for (i = 0; i < this.Controls.Count; i++)
{
// If a ShapeContainer is found, make it the parent.
if (this.Controls[i] is ShapeContainer)
{
NewOval.Parent = ((ShapeContainer)this.Controls[i]);
found = true;
break;
}
}
// If no ShapeContainer is found, create one and set the parents.
if (found == false)
{
ShapeContainer sc = new ShapeContainer();
sc.Parent = this;
NewOval.Parent = sc;
}
NewOval.Size = new Size(200, 300);
}
.NET Framework 安全性
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息,请参见通过部分受信任的代码使用库。
请参见
参考
Microsoft.VisualBasic.PowerPacks 命名空间
其他资源
Line 和 Shape 控件简介 (Visual Studio)