VB在MDI窗体中能使得加入Picture控件中的其他控件和背景图片可随窗体大小而变化。求大佬帮忙。

更新时间2019-09-22 04:18:12

我自己搞了一段代码，也可以运行，就是最下化后很多控件会重叠在一起，最大化或者正常打开都不会。

这是正常的图片

这是最下化后的图片

下面是我自己弄得代码。

'声明变量

Option Explicit

Dim OldW As Single

Dim OldH As Single

Private Sub MDIForm_Resize()

On Error Resume Next

'最小大小,防止比例失调

If Me.Width < 4800 Then Me.Width = 4800

If Me.Height < 3600 Then Me.Height = 3600

 

Dim i As Control

For Each i In Me.Controls

'调整大小

i.Move i.Left * Me.Width / OldW, i.Top * Me.Height / OldH, i.Width * Me.Width / OldW, i.Height * Me.Height / OldH

 

Next

'赋值

OldW = Me.Width

OldH = Me.Height

 

End Sub