office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

如何去掉Access窗体最大化后右上角的还原按钮

2003-08-30 22:32:00
lijiawy-Office交流网
原创
6217

问题:

如何去掉Access窗体最大化后右上角的还原按钮

如去不掉,有否其它变相实现方法,不想用户能通过还原按钮将窗口还原
 

完整的解决方法还没有

以下是ACCESS911上的方法, 虽然可以去掉,但是主界面不能随ACCESS的主窗口的大小而改变,有谁能解决,欢迎讨论。
 
建立一个窗体,窗体的边框样式改为“无”,并且输入以下代码:
Private Sub Form_Current()
    
    Dim FormWidth, FormHeight As Integer
    'DoCmd.RunCommand acCmdAppMaximize '将access界面最大化
    DoCmd.Maximize
    FormWidth = Me.WindowWidth
    FormHeight = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, FormWidth, FormHeight

End Sub

徐阿鹏
在窗体设计,中将窗体-》格式-》最大最小化按钮设为无
 
kunlun
我试了用这种方法可去掉还原按钮,但是会有一个难看的框出现,不知哪位还有更高的方法呀

zhengjialon
完全解决的方法,暂时还没有找到。最好的办法只能是4楼的办法。

leoyan76
Dim i As Integer
    Dim j As Integer
    Application.Echo False
    
    DoCmd.RunCommand acCmdAppMaximize
    DoCmd.Maximize
    i = Me.WindowWidth
    j = Me.WindowHeight
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, i, j
    
    Application.Echo True

(界面_窗体_子窗体-相关文章技巧链接):
获取和设置ACCESS主窗体大小及位置代码
 

分享