Question

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

我能用代码在MDI窗口上增加一个Picturebox控件!因为MDI窗口要想增加其它控件只有在Picturebox上再另行绘制,我想在Picturebox上也实现用代码加个其它控件的功能,简单点说,用代码在MDI窗口上的Picturebox上再添加一个控件,请高手指教!!

Answer 1

创建好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