[求助]程序背景窗体——还有两个问题没有搞定

tz-chf

背景load里最大化，其它窗体、报表弹出。这个可以了。

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

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

tz-chf

这都什么时候的贴了，还打个new！用窗体作背景搞不掂的，我用函数，很完美。需要的人Q我。

shitou1ge

学习学习啊

longergh

试试以下代码:

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编辑过]