Office中国论坛/Access中国论坛

标题: 大家早上好，请问这样的窗体位置如何实现？谢谢 [打印本页]

作者: 123xiaoniu 时间: 2011-5-21 09:44
标题: 大家早上好，请问这样的窗体位置如何实现？谢谢
单击窗体2按钮时，弹出窗体1，

窗体1的左侧的位置正好等于窗体2按钮左侧位置，

窗体1最下端的位置正好等于鼠标高度的位置

作者: 咱家是猫 时间: 2011-5-21 10:12
本帖最后由咱家是猫于 2011-5-21 10:12 编辑

http://www.office-cn.net/forum-viewthread-tid-71847-highlight-%D0%C2%B0%E6POP.html

这个例子你看看,应该可以解决你的问题.

作者: todaynew 时间: 2011-5-21 10:33

123xiaoniu 发表于 2011-5-21 09:44
单击窗体2按钮时，弹出窗体1，

窗体1的左侧的位置正好等于窗体2按钮左侧位置，

Private Sub Command0_Click()
Dim frm As Form
Dim L As Integer
Dim T As Integer
DoCmd.OpenForm "窗体1", acNormal
Set frm = Forms("窗体1")
L = Me.WindowLeft + (Me.WindowWidth - Me.InsideWidth) + Me.Command0.Left
T = Me.WindowTop + (Me.WindowHeight - Me.InsideHeight) + Me.Command0.Top + Me.Command0.Height
frm.Move L, T
End Sub

作者: pq318 时间: 2011-5-21 10:49
版主，还想问个后续问题，就是弹出的窗体1，如何控制它的大小啊

作者: pq318 时间: 2011-5-21 10:51
是通过窗体的属性设置呢，还是可以用代码实现啊

作者: hjb016 时间: 2011-5-21 10:58
Me.InsideWidth=宽度
Me.InsideHeight=高度

作者: todaynew 时间: 2011-5-21 11:15

pq318 发表于 2011-5-21 10:49
版主，还想问个后续问题，就是弹出的窗体1，如何控制它的大小啊

move有四个参数可以用来确定窗体或者控件的位置及大小，比如：
frm.move 左边距值,顶边距值,宽度值,高度值
也可不用move方法，直接设定四个参数，比如：
frm.left=左边距值
frm.top=顶边距值
frm.width=宽度值
frm.height=高度值

作者: szyewj 时间: 2011-5-21 22:34
猫哥的作品不同凡响

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)