[求助]如何判断窗体是用Docmd.OpenForm方法用acDialog参数打开的

kevindeng

用Docmd.OpenForm打开窗体,用acDialog参数.

这个窗体中有一按钮，想用来判断窗体的打开模式，怎么写代码啊？

[此贴子已经被作者于2006-5-31 17:39:43编辑过]

wu8313

openform方法可以使用windowsmode 常量，可是如何读出该常量，然后做出判断，似乎不可以。

kevindeng

这很奇怪,难道没有别的办法吗?

kevindeng

用API可以不可以啊,谁知道啊

andymark

以下是引用kevindeng在2006-5-31 16:12:00的发言：


用Docmd.OpenForm打开窗体,用acDialog参数.

这个窗体中有一按钮，想用来判断窗体的打开模式，怎么写代码啊？

     打开模式是指最大化，最小化，还是？？？

     按钮的作用是来判断自身窗体的打开模式，还是其他窗体的模式??

kevindeng

按钮是判断自身窗体的打开模式,其实就是怎么再读出acDialog常量,2楼的理解是正确的

fan0217

你有何用途呢？

andymark

不知是不是你所需的，

Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Command0_Click()

Dim minflag As Long, maxflag As Long

minflag = IsIconic(Me.hwnd)
maxflag = IsZoomed(Me.hwnd)
If minflag <> 0 Then
  Debug.Print "Form is minimized"
ElseIf maxflag <> 0 Then
  Debug.Print "Form is maximized"
Else
  Debug.Print "Form is restored"
End If


End Sub

kevindeng

楼上的代码对这个问题没有用处的,不过非常感谢你的关注!

看来是没办法实现了

andymark

以下是引用fan0217在2006-6-1 19:30:00的发言：
你有何用途呢？

     要实现什么样的功能?