如题

自己程序里的还是别人做好的程序中的？

不太明白你指的究竟是顶级窗口,还是仅仅只是控件的容器窗口?

哦 没想到说的居然有这么多疑义
想写一个自己的控件 当控件所在窗体为Active窗体时 控件需要作出相应的反应
所以想获得控件所在的窗体的句柄 然后和GetActiveWindow函数返回的句柄进行比对
来判断当前活动窗体是否是控件所在窗体然后再作出反应
不知思路是否可行 目前卡在获取控件所在窗体的句柄上了

UserControl.Parent.hWnd   

如果直接把控件放到窗体上（即:窗体作为容器），获取到的就是窗体的hwnd ，和getParent函数返回的值一致

如果把控件放在PictureBox等容器上，获取到的仍然是窗体的hwnd,但getParent函数返回的值才是PictureBox的hwnd.

[ 本帖最后由 jiashie 于 2010-8-16 16:34 编辑 ]

我不知道有用没，我API 本来就不熟悉。你试试看吧。
'Picture2 放在 Picture1 里面，而  list1 放在 Picture2 里面，一层一层的套起来的。

Option Explicit

Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Command1_Click()

Print Form1.hwnd            '显示原始的各个控件
Print Picture1.hwnd
Print Picture2.hwnd
Print List1.hwnd
Print

Dim i As Long
Dim j As Long
i = List1.hwnd

Do While i > 0          '
    Print i             '显示中间结果
    j = i               '保存
    i = GetParent(i)    '取它的上一级
Loop

Print            '空一行
Print j         '窗体 Hwnd

End Sub



[ 本帖最后由 风吹过b 于 2010-8-16 16:48 编辑 ]

多谢!

呵呵  非常不错