窗体打开问题

liaoqiang234 · 发表于 2010-1-25 19:16:24

本帖最后由 liaoqiang234 于 2010-1-25 19:22 编辑

我有一主窗体，类似QQ界面大小，主窗体宽度方向是在屏幕的最左边，高度方向是在屏幕的中心，现在有个问题，后面的操作模块窗体，宽度方向贴近主窗体的最右边，高度方向的Y+方向与主画面对齐，所有模块窗体都这样

kangking · 发表于 2010-1-25 19:46:01

Private Sub Command0_Click()
DoCmd.OpenForm "窗体2"

Forms("窗体2").Move Me.WindowLeft + Me.WindowWidth, Me.WindowTop

End Sub

在你的按钮单击事件代码中加了一句

liaoqiang234 · 发表于 2010-1-25 19:49:56

谢谢kangking 帮助，效果已打到，能不能在主窗体加载事件中实现，因为主窗体是一直打开的

kangking · 发表于 2010-1-25 19:53:16

谢谢kangking 帮助，效果已打到，能不能在主窗体加载事件中实现，因为主窗体是一直打开的
liaoqiang234 发表于 2010-1-25 19:49

恐怕不行,因为你要打开什么窗体主窗体是不知道的,只有打开后再移动.

liaoqiang234 · 发表于 2010-1-25 20:54:31

错了，不是主窗体加载，是窗体2加载中实现

kangking · 发表于 2010-1-25 21:25:53

错了，不是主窗体加载，是窗体2加载中实现
liaoqiang234 发表于 2010-1-25 20:54

Private Sub Form_Load()
Me.Move Forms("主窗体").WindowLeft + Forms("主窗体").WindowWidth, Forms("主窗体").WindowTop
End Sub

liaoqiang234 · 发表于 2010-1-25 21:36:25

谢谢

帐号		自动登录	找回密码
密码			注册

[模块/函数] 窗体打开问题

群介绍
主题无相 (随机显示版	同地区群块其他地区)