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

wjsfeng

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

wjsfeng

或者自己设定弹出位置，这又怎么操作？

ACMAIN_CHM

不用msgbox，自己写个窗体，这样比较容易实现。

或者 通WIN API得到窗体的句柄，然后进行操作。这个我没有例子，到论坛中或者google中找一下吧。



******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

咱家是猫

用API取得屏幕大小,再结合Move到中心位置

asklove

窗体格式中，有自动居中、自动调整，你可以设置可移动或不可移动

Grant

窗体自动居中代码
窗体自动居中代码
ACCESS中的窗体虽然设置了自动居中，但是打开后总是有点不居中的感觉，加下如下代码可以做到真正居中显示

Private Sub Form_Load()

DoCmd.Echo False

Dim x, y As Integer

DoCmd.Maximize

x = Me.WindowWidth

y = Me.WindowHeight

DoCmd.Restore

DoCmd.Echo True Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2

End Sub

下列代码适用于ACCESSXP以上

'使用方法:

'Private Sub Form_Load()

' moveFormToCenter Me '居中

'End Sub

'Private Sub Form_Load()

' moveFormToCenter Me, 3000, 2000 '调整窗体大小并居中

'End Sub

Option Compare Database

Option Explicit

wjsfeng

谢谢Grant

rcylbx

踩一下

towerman

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

wjsfeng

太感谢，