大家早上好，请问这样的窗体位置如何实现？谢谢

123xiaoniu

单击窗体2按钮时，弹出窗体1，

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

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

咱家是猫

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

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

todaynew

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

版主，还想问个后续问题，就是弹出的窗体1，如何控制它的大小啊

pq318

是通过窗体的属性设置呢，还是可以用代码实现啊

pq318

是通过窗体的属性设置呢，还是可以用代码实现啊

hjb016

Me.InsideWidth=宽度
Me.InsideHeight=高度

todaynew

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

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

szyewj

猫哥的作品不同凡响