第1个回答 2012-03-19
设置form2的位置,在form1中加个时间控件 间隔小于10。然后在时间控件中 写代码
Form2.Left = Form1.Left + x
Form2.Top = Form1.Height + y
x,y的值自己去调试
虽为复制,如对你有帮助请采纳。
第2个回答 2012-03-19
Private Sub Form_Load()
With Me
.BorderStyle = 0
.Left = MDIForm1.ScaleWidth / 2 - .Width / 2
.Top = MDIForm1.ScaleHeight / 2 - .Height / 2
End With
End Sub
是这么个意思么?
第3个回答 2012-03-19
mdi子窗体中resize事件加入以下代码:
Private Sub Form_Resize()
On Error Resume Next
If Me.Width >= MDIForm1.ScaleWidth Then
Me.Width = MDIForm1.ScaleWidth
Me.Left = 0
Else
Me.Left = (MDIForm1.ScaleWidth - Me.Width) / 2
End If
If Me.Height >= MDIForm1.ScaleHeight Then
Me.Height = MDIForm1.ScaleHeight
Me.Top = 0
Else
Me.Top = (MDIForm1.ScaleHeight - Me.Height) / 2
End If
End Sub本回答被提问者采纳