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

来源:www.accessoft.com 点击数:6511 　 | 收藏 | 复制

时　间: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