Question

VB6有多个窗体的MDIFORM中,如何使每个窗体的控件,分别随窗体一起变化大小!现在只能每次一个窗体有效!

Answer 1

在MDIForm中添加如下代码：
Private Sub MDIForm_Resize()
'在这里设置各个子窗体的大小和位置，最好根据主窗体的大小的百分比来设置，这样主窗体改变大小时，子窗体也会相应等比例改变大小和位置：
Form1.Move 0, 0, Me.ScaleWidth * 0.5, Me.ScaleHeight
Form2.Move 0, Me.ScaleWidth * 0.5, Me.ScaleWidth * 0.5, Me.ScaleHeight
'......
End Sub

然后在各个子窗体也添加相应代码：（比如Form1）
Private Sub Form_Resize()
'在这里设置各个控件的大小和位置，最好根据窗体的大小的百分比来设置，这样窗体改变大小时，控件也会相应等比例改变大小和位置：
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight * 0.5
Command1.Move Me.ScaleWidth - Command1.Width - 150, Me.ScaleHeight * 0.5 + 150
'......
End Sub