VisionPro笔记（1）:动态创建控件

VisionPro学习笔记（1）:动态创建控件

有的时候可能需要在程序中动态创建控件，VisionPro实例中提供了一例动态创建Blob控件的方法。当然，动态创建过多的控件会极大的消耗系统的资源，建议少用。用完之后在不再需要时要及时销毁，以回收资源。

1）声明全局变量：

Private mBlobTool as CogBolobTool

Private mBlobEdit as CogBlobEdit

2) 创建：

由于创建过程需要占用资源，所以需要改变鼠标垫状态。

Me.Cursor=Cursors.WaitCursor

构建Blob Tool

if mBlobTool is nothing then mBlobTool=new CogBlobTool

mBlobEdit=new CogBlobEdit

开始初始化Edit控件

Ctype（mBlobEdit,System.ComponentModel.ISupportInitialize).BeginInit()

原始界面

mBlobEdit.Enable=True

mBlobEdit.Location=New System.Drawing.Point(0,0)

mBlobEdit.Name="CogBlobEdit1"

mBlobEdit.Size=new System.Drawing.Size(800,450)

mBlobEdit.TabIndex=0

Me.tabControl1.SelectedIndex=0

Me.BlobTabPage.Controls.Add(mBlobEdit)

Ctype(mBlobEdit,System.ComponentModel.ISupportInitialize).EndInit()

初始化结束时向BlobEdit控件指定Tool

mBlobEdit.Subject=mBlobTool

改变鼠标为默认形式

Me.Cursor=Cursors.Default

添加控件之后界面

3)窗体关闭时或其它时候需要回收资源：

Me.Cursor=Cursors.WaitCursor

Me.BlobTabPage.Controls.Remove(mBlobEdit)

mBlobEdit.Dispose()

Me.Cursor=Cursor.Default

由于在自动创建时控件的AutoCreateTool会被忽略，因此用户必须创建Tool，并把控件指定到此Tool。

巴特西