上面有点不全!看下面:比如有form1和form2两个窗体,通过点击form1中的button1,把form2显示在form1的中间 先把form2的StandUpPosition属性设为1 然后在form1中添加如下代码:Private Sub Command1_Click() Form2.Show , Form1 End Sub
Private Sub MDIForm_Load() Form1.Left = (MDIForm1.Width - Form1.Width) / 2 Form1.Top = (MDIForm1.Height - Form1.Height) / 2 End Sub
先把form2的StandUpPosition属性设为1
然后在form1中添加如下代码:Private Sub Command1_Click()
Form2.Show , Form1
End Sub
Form1.Left = (MDIForm1.Width - Form1.Width) / 2
Form1.Top = (MDIForm1.Height - Form1.Height) / 2
End Sub
Form1.Top = (MDIForm1.Height - Form1.Height) / 2
这样好像不可以哟
我要的是form1中心和mdiform1的中心在一个点上
Form1.Top = (MDIForm1.Height - Form1.Height) / 2
为什么不么呢?
加到form1的LOAD 中去
靠,我跟你说的办法不行吗?你试没试?
StartUpPosition=1不要用代码设置这个只读属性
先把form2的StandUpPosition属性设为1,当然是在在VB属性框里面设置。
然后在form1中添加如下代码:Private Sub Command1_Click()
Form2.Show , Form1
End Sub重要的是这一句Form2.Show , Form1,就是把form2变成form1的child!