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

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

todaynew

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

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