VBA实现点击产品小图片在另一窗体显示大图

实现功能：点击第一个窗体中的产品小图片时，在另一个独立窗体中显示该产品的大图（原窗体图片尺寸过小，无法清晰查看）

现有代码问题说明 #

原代码中第二个窗体使用BeforeDragOver事件加载图片，这并非正确触发时机，且未处理窗体间变量共享，导致无法正确加载当前产品的大图。以下是修正后的完整实现方案：

完整实现代码 #

1. 主窗体（frm_Inventory_Management）代码 #

首先在窗体模块顶部声明公共变量，用于在窗体间共享图片路径：

' 模块级公共变量，存储当前产品图片路径及默认占位图路径
Public iPath As String
Public iPathNA As String

列表框点击加载小图的代码（修正变量声明问题）：

Private Sub ListBox1_Click()
    Dim strFile As String
    
    Me.cmb_Product.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
    ' 赋值公共变量，供大图窗体调用
    iPath = ThisWorkbook.Path & "\Item Images\" & Me.cmb_Product.Value & ".JPG"
    iPathNA = ThisWorkbook.Path & "\Item Images\NA.jpg"
    
    strFile = iPath
    
    ' 加载小图到当前窗体的图片控件
    If Len(Dir(strFile)) <> 0 Then
        ItemImage.Picture = LoadPicture(strFile)
    Else
        ItemImage.Picture = LoadPicture(iPathNA)
    End If
End Sub

小图点击事件（触发大图窗体显示）：

Private Sub ItemImage_Click()
    ' 以非模态方式打开大图窗体，不阻塞主窗体操作
    productImage.Show False
End Sub

2. 大图窗体（productImage）代码 #

在窗体初始化时加载当前产品的大图，可选设置窗体自适应图片尺寸：

Private Sub UserForm_Initialize()
    Dim targetPath As String
    
    ' 确定要加载的图片路径
    If Len(Dir(frm_Inventory_Management.iPath)) <> 0 Then
        targetPath = frm_Inventory_Management.iPath
    Else
        targetPath = frm_Inventory_Management.iPathNA
    End If
    
    ' 加载大图到窗体
    Me.Picture = LoadPicture(targetPath)
    
    ' 可选：让窗体自适应图片大小（根据需求调整）
    Me.Width = Me.Picture.Width
    Me.Height = Me.Picture.Height
End Sub

关键注意事项 #

• 公共变量必须声明在主窗体的模块级，不能在过程内部声明，否则大图窗体无法访问
• 大图窗体使用Initialize事件加载图片，确保每次打开时都加载最新选中产品的图片
• 非模态显示（Show False）允许用户同时操作主窗体和大图窗体，提升使用体验

内容的提问来源于stack exchange，提问作者Khola