再发一贴， 求助显示原图

Amway@2022

希望在点击图片控件时，屏幕显示图片的原图。
谢谢老师指点。

tmplinshi

1. Private Sub Image1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     If ListBox1.ListIndex >= 0 Then
   
3.         imgPath = ThisWorkbook.Path & "\图片" & ListBox1.text
   
4.         CreateObject("Shell.Application").ShellExecute imgPath
   
5.     End If
   
6. End Sub
   
7. 
   
8. Private Sub ListBox1_Click()
   
9.     t = ThisWorkbook.Path & "\图片"
   
10.     Image1.Picture = LoadPicture(t & ListBox1.text)
    
11.     Image1.ZOrder '<--重要, 鼠标点击图片控件会改变 ZOrder, 需要重新设置 ZOrder 为最上层
    
12. End Sub

复制代码

Amway@2022

谢谢老师帮忙