excel - 如何在 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如果 pImg 是用户表单的直接子级，它将起作用。如果它在另一个容器内(例如多用途或框架)，您需要爬上 .Parent树。

将您的代码置于中断模式，查看 Locals 窗口并查看 pImg 的属性