Office中国论坛/Access中国论坛

标题: [求助]程序背景窗体——还有两个问题没有搞定 [打印本页]

作者: tz-chf 时间: 2006-10-19 06:49
标题: [求助]程序背景窗体——还有两个问题没有搞定
背景load里最大化，其它窗体、报表弹出。这个可以了。

问题1：背景窗体的右上角有个“还原窗口”按钮，无法去掉。

问题2：有的窗口大点的，打开时会遮住菜单，窗体是“对话框窗体”，其他的模式也一样不行。我用800*600做的，几乎都是满屏显示的。如果客户是1024*768以上的就没有问题了，这也是个没有解决的问题。

作者: longergh 时间: 2006-10-20 09:32
试试以下代码:

Private Sub Form_Load()
Dim i, J As Integer

Access.SetOption "Show Status Bar", False '最大化窗口，不显示系统状态栏
DoCmd.RunCommand acCmdAppMaximize  '让Access主窗口最大化
DoCmd.Maximize '本窗口最大化

i = Me.WindowWidth '取得Access窗口的宽度
J = Me.WindowHeight '取得Access窗口的高度
DoCmd.Restore '还原窗口原来的大小
DoCmd.MoveSize 0, 0, i, J '将窗口放大（或缩小）到屏幕适合的大小

Application.Echo True  '打开屏幕刷新

End Sub

Private Sub Form_Open(cancel As Integer)
Application.Echo False '关闭屏幕刷新

End Sub

Private Sub Form_Resize()
Me.stbmain.Width = Me.InsideWidth

End Sub

图片格式最好是用1020*690(可用ACDSEE调整),这是我几经摸索得到的,别的会在窗体中留有空隙

[此贴子已经被作者于2006-10-20 1:37:27编辑过]

作者: shitou1ge 时间: 2010-1-26 14:43
学习学习啊

作者: tz-chf 时间: 2010-1-26 15:11
这都什么时候的贴了，还打个new！用窗体作背景搞不掂的，我用函数，很完美。需要的人Q我。

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