如何设置弹出窗体在固定位置？

wjsfeng

如何设置弹出窗体在固定位置？
我想让弹出窗体始终在桌面的中心，怎么操作？

chaojianan

谢谢Grant的代码，收藏了。

towerman

6700是显示在屏幕的左面或右面的位置,
5450是显示在屏幕的上方或下方的位置,
8600是当前窗体的宽度大小,
5600是当前窗体的高度大小

或者你参考这个文章:定位窗体的位置
http://www.accessoft.com/article-show.asp?id=2232

Henry D. Sy

MoveSize 方法
请参阅 应用于 示例 特性
在 Visual Basic 中，MoveSize 方法执行 MoveSize 操作。

expression.MoveSize(Right, Down, Width, Height)

expression   必需。返回“Applies To”列表中的一个对象的表达式。

Right  可选 Variant 型。数值表达式。

Down  可选 Variant 型。数值表达式。

Width  可选 Variant 型。数值表达式。

Height  可选 Variant 型。数值表达式。

说明
有关该操作及其参数如何使用的详细信息，请参阅该操作的主题。

使用 MoveSize 方法时必须至少包含一个参数。如果将某个参数留空，则将使用窗口的当前设置。

语法中的可选参数允许留空，但是必须包含参数的逗号。如果有一个或多个位于末端的参数留空，则在指定的最后一个参数后面不必使用逗号。

参数的单位为缇。

示例
下面的示例将移动活动窗口，更改其高度，但保留宽度不变：

DoCmd.MoveSize 1440, 2400, , 2000

tz-chf

自动居中就行了,要这么精确干什么

wjsfeng

DoCmd.MoveSize 6700, 5450, 8600, 5600
中的6700指的是什么意思？
中的5450指的是什么意思？
中的8600指的是什么意思？
中的5600指的是什么意思？

wjsfeng

太感谢，

towerman

Private Sub Form_Current()
DoCmd.MoveSize 6700, 5450, 8600, 5600
End Sub

rcylbx

踩一下

wjsfeng

谢谢Grant