标题:请教关于窗体的问题:
只看楼主
山愚
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2014-6-27
 问题点数:0 回复次数:0 
请教关于窗体的问题:
请教关于窗体的问题:
一、情况1:自定主窗体在"成为当前"事件中,设置自定主窗体大小及位置,然后隐藏access主窗体
Private Sub Form_Current()      '自定主窗体"成为当前"属性,设置自定主窗体大小及位置,然后隐藏access主窗体
   DoCmd.MoveSize 0, 0, 12020, 8600
   DoCmd.Echo False
   Dim x, y As Integer
   DoCmd.Maximize                                                                        
   x = Me.WindowWidth
   y = Me.WindowHeight
   CurrentDb.Execute "update ycs set yzctx ='" & x & "',yzcty ='" & y & "'"                                '将屏幕大小写入参数表ycs.yzctx、ycs.yzcty中
   DoCmd.Restore
   DoCmd.Echo True
   Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 4
   CurrentDb.Execute "update ycs set ycctx ='" & Me.WindowWidth & "',yccty ='" & Me.WindowHeight & "'"     '将主窗体大小写入参数表ycs.ycctx、ycs.yccty中
   DoCmd.RunCommand acCmdAppMinimize                                                                       '隐藏主窗体,须将“其他-弹出”设为“是”
End Sub
二、情况2:设置被自定主窗体调用的次窗体的位置及大小,位置是自定主窗体位置加上检测出来的常数
Private Sub Form_Current()          '被调用的次窗体"成为当前"事件中,设置运行窗体大小及位置
  DoCmd.MoveSize (DLookup("yzctx", "ycs") - DLookup("ycctx", "ycs")) / 2 + 2962.5, (DLookup("yzcty", "ycs") - DLookup("yccty", "ycs")) / 4 + 2238.5, 8726, 7000
End Sub
三、情况3:测得两个显示器能将次窗体固定在主窗体的同一位置的数据如下
---------屏幕长--屏幕宽--主窗体长--主窗体宽--小窗体长--小窗体宽--主窗体位置X--主窗体位置Y--小窗体位置X--小窗体位置Y
显示器1--24000 13500 12015    8595     8730      7005 5992.5       1226.25    8955        3464.75
显示器2--15360 11520 12015    8595     8730      7005 1672.5       731.25    4695        2639.75
四、如图(意思是需要在不同显示器上将"登录密码"这个窗体定位在自定主窗体的同一位置)


五、问题:请教,如何设置次窗体才能在不同显示器上将次窗体固定在主窗体的同一位置?多谢回答者。
搜索更多相关主题的帖子: access update False 
2014-06-27 11:26



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-433409-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.273047 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved