События UserControl - ReadProperties & Parent.Controls

[ФАНТОМНЫЙ ЮЗЕР]

Подскажите, пожалуйста, при инициализации UserControl в подпрограмме Usercontrol_ReadProperties не работает событие UserControl.Parent.Controls

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

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
    BuddyControl = PropBag.ReadProperty("BuddyControl", "")
End Sub

Public Property Let BuddyControl(ByVal New_Buddy As String)
Dim k As Collection
Dim i As Integer

    Set k = BuddyControls
    For i = 1 To k.Count
        If LCase$(New_Buddy) = LCase$(k(i)) Then
            m_BuddyControl = k(i)
            PropertyChanged "BuddyControl"
            Exit Property
        End If
    Next i
End Property

Friend Property Get BuddyControls() As Collection
Dim sMyName As String
Dim c As Control
Dim sTmp As String
Dim ihWnd As Long

    sMyName = Ambient.DisplayName
    Set BuddyControls = New Collection
    For Each c In UserControl.Parent.Controls
        sTmp = c.Name
        If (TypeName(UserControl.Parent.Controls(sTmp)) = "Object") Then
            sTmp = c.Name & "(" & c.Index & ")"
        End If
        If sTmp <> sMyName Then
            ihWnd = Try(c)
            If ihWnd <> 0 Then
                BuddyControls.Add sTmp
            End If
        End If
    Next c
End Property

Private Function Try(ByVal iObj As Object) As Long
    On Error Resume Next
    Try = iObj.hWnd
End Function

Спасибо.

[tyomitch]

Скорее всего, когда происходит UserControl_ReadProperties, контрол ещё не размещён на форме, и UserControl.Parent нету.

[ФАНТОМНЫЙ ЮЗЕР]

А каким образом заставить инициализировать контроль управления позже, после создания этого родительского окна?

[GSerg]

Обычно на стадии readproperties оно должно быть уже там...
А какая ошибка-то?

[ФАНТОМНЫЙ ЮЗЕР]

Нет, ошибки нету. Не работает UserControl должным образом. Следующая команда не инициализирует события UpDown:

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

Call SendMessage(m_hWnd, UDM_SETBUDDY, m_BuddyhWnd, ByVal 0&)

где m_hWnd - дескриптор UpDown; m_BuddyhWnd = 0 - дескриптор TextBox.

[GSerg]

0 - это "ни фига".
Конечно не работает.

Тебе какие контролы нужно считать подходящими для прилепливания?

[ФАНТОМНЫЙ ЮЗЕР]

В качестве m_BuddyhWnd могут выступать, например TextBox и PictureBox.

[ANDLL]

Кстати, невеждиво размещать одни и те же темы сразу в нескольких местах. Между прочим, oal, только Вы в последние месяцы были замечены за подобной наглостью.

[GSerg]

Короче...
Принцип перебора неверен изначально.
Тебе нужны только textbox и picturebox? Ты и так знаешь, что у них есть hwnd. Поэтому:

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

dim c as control
for each c in me.controls
  if typeof c is textbox or typeof c is picturebox then
    ...
  end if
next