### 高分请问：怎样判断某窗体是MDI、MDIChild窗体？(内详) ####

[LoveDana]

现在需要判断某窗体是为MDI、MDIChild还是普通窗体。请问，怎样判断？

[ColderRain]

use api

[LoveDana]

请问楼上，到底是哪个API？

[Ganzl]

使用窗体的mdichild属性,对于mdiform来说,没有mdichild属性,可以捕获这一错误:
Dim x As Form

On Error Resume Next
For Each x In Forms
MsgBox x.MDIChild
If Err.Number <> 0 Then
MsgBox "false"
Err.Clear
End If
Next

以上程序调试通过

[LoveDana]

楼上，如果我是在dll里面判断引用的窗体呢？你的方法就不可以通过了。

[Ganzl]

一样,不过声明的时候不是form型而是object或variant了

[LoveDana]

楼上，如果我只有窗体的.hwnd，怎么办？

[Ganzl]

那样的话只有使用api了
:-)

[Wesely]

看看这个Form有没有Parent。

[xfflean]

Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As Long) As Long
Function isMdiForm(hwnd as long) as Boolean
dim mdiformhwnd as long
mdiformhwnd=GetParent(hwnd)
if mdiformhwnd=0 then
IsMdiform=False 'No MDI
Exit Function
else
isMdiForm=True
exit function
end if
end function

[LoveDana]

楼上，你只判断了是否为MDI窗体。而且，普通窗体也没有Parent吖。现在的关键是：区分MDI和普通窗体。

[xfflean]

普通窗体没有parent,那getparent返回0
涵数返回false.
mdi窗体有parent,那涵数返回true

[LoveDana]

to:xfflean(雄)　
可是，如果是MDIForm呢？MDIChildForm有parent，可是，MDIForm和普通的Form都没有Parent，怎样区别？

[LoveDana]

可能我没有说清楚：我现在只想区分MDIForm和普通Form，其中MDIForm是指可以拥有Child的窗体，并不是MDIChild窗体。

[LoveDana]

请问，-12是否为WS_CGILD？如果不是，其常数是什么？

[xfflean]

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long


Function Ismdiform(hwnd As Long) As Boolean
Dim mdihwnd As Long
mdihwnd = GetWindowLong(hwnd, -12)
If mdihwnd = 0 Then
Ismdiform = False
Exit Function
Else
Ismdiform = True
Exit Function
End If
End Function

[xfflean]

Sure.
const ws_cgild=(-12)
OK?

[LoveDana]

非常感谢，马上结帖子。

[LoveDana]

天阿，怎么结不了帖子？我晚上再来看看，是否能够结

[xfflean]

Hehe,
老兄，
结不了就算咯
我不是为了分数来这
只想多交几个朋友~

[LoveDana]

呵呵，不是的，我发现这几天我都不能结帖子，每次输入密码后按回车，等上老半天，最后总是550/500错误