VB6 - 用户控件/ ActiveX控件 - 如何获得父级维度

Question

我正在编写一个vb6用户控件（用于我的罪过），并且所有的工作都一直持续到现在。我正在努力获取父/容器的高度和宽度。

用户控件作为一个ActiveX控件（.ocx）导出，使用Regsvr32在目标机器上注册，然后嵌入到现有的应用程序中。

我无法访问现有的应用程序代码，因此我无法注入任何方式。

我试过访问UserControl.Parent对象，但收到错误。

有谁知道如何做到这一点，或可以让我走下正确的道路。我的主要语言是c＃，请对我好。

Answer 1

在控件定位之前，您很可能试图在Parent中摆弄。这样做反而可以正常工作：

Option Explicit 

Public Sub Update() 
    'Call from parent container's Resize event handler, etc. 
    Cls 
    With Parent 
     Print .ScaleWidth; " × "; .ScaleHeight 
     Print .Width; " × "; .Height 
    End With 
End Sub 

Private Sub UserControl_Initialize() 
    AutoRedraw = True 'We're using Print here. 
End Sub 

Private Sub UserControl_InitProperties() 
    Update 
End Sub 

Private Sub UserControl_ReadProperties(PropBag As PropertyBag) 
    Update 
End Sub