1、MDI主窗体内直接添加的控件与MDI子窗体是同级的,所以你如果你坚持要用Picture控件,那么效果就只能这样了;
2、如果你用Picture的目的是想显示背景图,那么可以直接用MDI主窗体的Picture属性;
3、如果想实现背景图随窗体的大小自动调整大小,可以用下面的代码实现:
Dim p As PictureBox
Private Sub MDIForm_Resize()
If p Is Nothing Then
Set p = Controls.Add("VB.PictureBox", "pic")
p.ScaleMode = 3
p.AutoRedraw = True
p.BorderStyle = 0
p.Picture = LoadPicture("f:\1.jpg") '图片名自己改
End If
p.Height = Me.ScaleHeight
p.Width = Me.ScaleWidth
p.PaintPicture p.Picture, 0, 0, p.ScaleWidth, p.ScaleHeight
Me.Picture = p.Image
Me.Hide
Me.Show
End Sub
选中MDI窗体的picture控件,在菜单栏——格式——单击锁定控件前面的锁,即可。
右键单击某个控件,会弹出一个菜单,选择置顶或置下,具体我记不太清了,你试试。