office交流網(wǎng)--QQ交流群號及微信交流群

Access培訓(xùn)群:792054000         Excel免費(fèi)交流群群:686050929          Outlook交流群:221378704    

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

微信交流群(請用微信掃碼)

        

如何去掉Access窗體最大化后右上角的還原按鈕

2003-08-30 22:32:00
lijiawy-Office交流網(wǎng)
原創(chuàng)
6363

問題:

如何去掉Access窗體最大化后右上角的還原按鈕

如去不掉,有否其它變相實(shí)現(xiàn)方法,不想用戶能通過還原按鈕將窗口還原
 

完整的解決方法還沒有

以下是ACCESS911上的方法, 雖然可以去掉,但是主界面不能隨ACCESS的主窗口的大小而改變,有誰能解決,歡迎討論。
 
建立一個(gè)窗體,窗體的邊框樣式改為“無”,并且輸入以下代碼:
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

徐阿鵬
在窗體設(shè)計(jì),中將窗體-》格式-》最大最小化按鈕設(shè)為無
 
kunlun
我試了用這種方法可去掉還原按鈕,但是會(huì)有一個(gè)難看的框出現(xiàn),不知哪位還有更高的方法呀

zhengjialon
完全解決的方法,暫時(shí)還沒有找到。最好的辦法只能是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

(界面_窗體_子窗體-相關(guān)文章技巧鏈接):
獲取和設(shè)置ACCESS主窗體大小及位置代碼
 

分享
文章分類
聯(lián)系我們
聯(lián)系人: 王先生
Email: 18449932@qq.com
QQ: 18449932
微博: officecn01
移動(dòng)訪問