如何在VBA中找到控件的父用户形式

Question

此代码是类模块的一部分。

Private pImg As Image 'For example, pImg = U_Cursor.Img

Public Property Let ItemID(ID As Byte)
    pImg.Picture = LoadPicture(ThisWorkbook.Path & "\Images\Img" & ID & ".gif")

    *ParentUserform*.Repaint 'ParentUserform is the userform I'm looking for
End Property

我必须强制Excel重新绘制用户窗体，否则图像有时不会在屏幕上更新。

是否有办法知道哪个用户表单“ pImg”在里面？

如果没有有效的方法，我可以向包含用户窗体名称的类模块添加另一个变量，但我不希望这样做。

Answer 1

pImg.Parent将起作用if pImg是用户表单的直接子级。如果它在另一个容器（例如多重容器或框架）中，则需要爬.Parent树。

使代码处于中断模式，请在“本地”窗口中查看并查看pImg的属性