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

123xiaoniu　发表于：2011-05-21 09:41:37 　

复制

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

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

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

点击下载此附件

Top

煮江品茶发表于：2011-05-21 09:50:56

请参见《春天的麻雀》一文。

Top

煮江品茶发表于：2011-05-21 10:13:52

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

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

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