设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 839|回复: 3
打印 上一主题 下一主题

[Access本身] 能不能去掉access自身的最小化最大化和关闭按钮

[复制链接]
跳转到指定楼层
1#
发表于 2009-3-15 10:47:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
能不能去掉access自身的最小化最大化和关闭按钮?
Henry D. Sy版主在2007年有过这方面的贴,用以下代码去掉了Access自身的关闭按钮,可最小化和最大化按钮没会弄,请高手指教.谢谢!
Henry D. Sy版主的代码是:
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Sub FORM_Load()
  Const MF_BYCOMMAND = &H0&
  Const SC_CLOSE = &HF060    ''恢复按钮的ID是:&HF120
  Dim hMenu As Long
  
  hMenu = GetSystemMenu(Application.hWndaccessApp, 0)
  
  Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
  
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2009-3-15 15:06:17 | 只看该作者
直接在窗体设计视图--格式中处理即可
3#
 楼主| 发表于 2009-3-15 15:50:43 | 只看该作者
谢谢这位朋友,我指的是主窗口最右上角的那3个按钮,而不是自己设计的窗体.
4#
发表于 2009-3-15 16:55:41 | 只看该作者
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-10 10:49 , Processed in 0.100479 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表