Excel VBA中,一个窗体点击迁移到下一个窗体,怎么控制第二个窗体弹出位置与第一个相同

窗体可拖动,所以预设相同位置不能实现!

第1个回答  2012-11-26
设置两个窗体位置一样,大小一样即可(属性中设置)追问

在Activate里设置top和left的方式不能满足,窗口是可以拖动的,现在需要窗体拖动后迁移到下个窗体时窗体依然出现在上一窗体停留的位置!

第2个回答  2012-11-26
试试这个命令:
UserForm1.Move UserForm2.Left, UserForm2.Top追问

是写在Activate或Initialize函数里?

追答

我搞明白了,这样做:
首先弹出第二个窗体时模式要设为vbModeless(无模式);
然后在第二窗体的UserForm_Initialize事件中写入语句:
Me.Left = UserForm1.Left
Me.Top = UserForm1.Top
Me.StartUpPosition = 0
再执行你的程序试试吧。

本回答被提问者采纳
相似回答