我不知道有用没,我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 编辑 ]