VB用代码在MDI窗口中增加一个控件

创建好mdi窗体使用以下代码可以动态创建一个名为pic1的Picturebox

Set s = Me.Controls.Add("VB.PictureBox", "pic1")

With s

.Height = 2000

.Visible = True

.Align = 1

End With

以下代码就可以在pic1控件上创建一个按钮，不过以下代码创建的控件不响应事件，必须定义一个WithEvents的变量就可以了

如Dim WithEvents Cmd1 as CommandButton，则按钮就可以响应所有的事件

Set Cmd1 = MDIForm1.Controls.Add("VB.CommandButton", "Cmd1", Me!pic1)

With Cmd1

.Visible = True

.Left = 100

.Top = 100

.Height = 200

.Width = 200

.Caption = "xxx"

End With

可以先在主窗体上放一个PictureBox（它会自动靠边），然后再把要使用的控件放到PictureBox内。这个特性是由Windows *** 作系统决定的，并不是VB所能控制的。也就是说，在其他语言设计的程序中，MDI窗体也一样只能直接放具有对齐（或者说靠边）属性（Align）的控件，如图片框、工具栏、状态栏、菜单栏等，其他控件则必须放到图片框之类的容器控件内。

---