Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

判断access中的窗体或access主窗体的缩放状态

时 间:2007-07-06 00:00:00
作 者:UMV整理   ID:8  城市:上海  QQ:2851379730点击这里给张志发消息
摘 要:如何判断 ACCESS 中的窗体,或者ACCESS主窗体的缩放状态,是否最大化是否最小化?

正 文:

一、问题:

如何判断 ACCESS 中的窗体,或者ACCESS主窗体的缩放状态,是否最大化是否最小化?

 

回答:

ACCESS 窗体本身没找到相关的属性,希望以后版本的ACCESS能加入该功能。
现在用 API 可以解决:

 

'缩放状态
Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
'是否最小化
Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
'是否可见
Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

 

Private Sub Command0_Click()
    MsgBox "ACCESS主窗体隐藏:" & 模块2.IsWindowVisible(Application.hWndAccessApp)
    MsgBox "ACCESS主窗体缩放:" & IsZoomed(Application.hWndAccessApp)
    MsgBox "ACCESS主窗体最小化:" & IsIconic(Application.hWndAccessApp)
End Sub

Private Sub Form_Resize()
    MsgBox "最小化:" & IsIconic(Me.hwnd)
    MsgBox "缩放:" & IsZoomed(Me.hwnd)
End Sub


二、示例下载:
点击浏览该示例 

Access软件网官方交流QQ群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助