Являеться ли объект контейнером

[GM]

У меня есть хендл объекта, или сам объект, как мне определить являеться ли он контейнером(PictureBox,Frame) или нет (commandButton).

[GSerg]

if typeof obj is frame then...

[GM]

Это чуть не то, мне нужен универсальный вариант. PictureBox,Frame я навел лиш к примеру.

[ism]

Если EnumChildWindows что-то найдет - то является

[tyomitch]

Если EnumChildWindows что-то найдет - то является

Контейнер м.б. и пустым!

[Amed]

if typeof obj is frame then...

Код: Выделить всё

if typeof obj is frame or typeof obj is picturebox then...


Какие ещё контейнеры есть? Перечисли все...

[tyomitch]

Их неограниченно много - любой ActiveX-контрол м.б. контейнером. Например, SSTab и DataRepeater - контейнеры.

[Amed]

Предложение - кидать какой-либо оьъект SetParent'ом в нужный хендл. Если SetParent возвращает NULL, то объект - не контейнер. Так?

The SetParent function changes the parent window of the specified child window.
...
· hWndChild
Identifies the child window.
· hWndNewParent
Identifies the new parent window. If this parameter is NULL, the desktop window becomes the new parent window.
...
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

[Amed]

Как оказалось, код

Код: Выделить всё

'Create a new project and add this code to Form1
Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Const LANG_NEUTRAL = &H0
Const SUBLANG_DEFAULT = &H1
Const ERROR_BAD_USERNAME = 2202&
Private Declare Function GetLastError Lib "kernel32" () As Long
Private Declare Sub SetLastError Lib "kernel32" (ByVal dwErrCode As Long)
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Sub Form_Click()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
   
    SetParent Command2.hWnd, Command1.hWnd
   
    DoEvents
   
    Dim Buffer As String
    'Create a string buffer
    Buffer = Space(200)
    'Set the error number
    'SetLastError ERROR_BAD_USERNAME
    'Format the message string
    FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, GetLastError, LANG_NEUTRAL, Buffer, 200, ByVal 0&
    'Show the message
    MsgBox Buffer
End Sub


возвращает "Операция успешно завершена", хотя, кажется, CommandButton - не контейнер?

Думаю дальше...

[Amed]

Может быть, кидать объект SetParent'ом в нужный хендл, а потом проверять его наличие в предполагаемом контейнере EnumChildWindows? Проверяю...

[GSerg]

А есть какой-то IContainer?

[Amed]

Кстати, попробуйте CommandButton засунуть в CommandButton. И нажать на родительскую. Море эмоций!
"Скрытая кнопка!"
Сейчас выложу результаты исследований

Код: Выделить всё

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Private Function CheckContainterness(hwnd As Long) As Boolean
SetParent Command1.hwnd, hwnd
DoEvents
If GetParent(Command1.hwnd) = hwnd Then CheckContainterness = True
End Function

Private Sub Form_Load()
MsgBox CheckContainterness(Picture1.hwnd)
End Sub

На форме кнопка Command1 и пикчербокс Picture1. Попробуйте с объектами, которые точно не контейнеры. Какие, например, есть?

[GM]

Да c Setparent тоже делал, и ничего это мне не дало, можна в любой контрол засунуть еще один