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