如何 获取 照片查看器所打开图片的文件路径及文件 名

aman1516

正如5楼所说的，为什么不用窗体和列表等来作图片浏览选择，非要搞的这么复杂高难度

perfect131

青阳 发表于 2022-11-11 11:52
br(j,1),和，d列 最下面的  是最后打开的图片。非最后浏览的图片。

z 顺序,忽略了最后浏览并关闭的图片

青阳

perfect131 发表于 2022-11-11 17:43
z 顺序,忽略了最后浏览并关闭的图片

可以，完美解决了我的问题，代码也很严谨精简实用，也考虑了32与64兼容。不亏是专业的高手。感谢您拨忙相助，再次感谢！！

青阳

perfect131 发表于 2022-11-11 17:43
z 顺序,忽略了最后浏览并关闭的图片

如果能去掉中间过程文件out.txt的输出就好了，全部在内存变量里实现。

perfect131

青阳 发表于 2022-11-11 18:57
如果能去掉中间过程文件out.txt的输出就好了，全部在内存变量里实现。

11111111111111

青阳

perfect131 发表于 2022-11-11 20:19
11111111111111

优秀，好用。下载好好学习了。

青阳

perfect131 发表于 2022-11-11 20:19
11111111111111

今天学习了一下，发现如果打开照片查看器窗口后，按下方的“下一个（向右键）”或是“上一个（向左键） 这个按钮。显示不同于初打开的图片名。此时执行代码并不能显示 最新的。仍是显示最初打开的。这个能否请大神再修改一下呢？

perfect131

青阳 发表于 2022-11-14 08:58
今天学习了一下，发现如果打开照片查看器窗口后，按下方的“下一个（向右键）”或是“上一个（向左键）  ...

22222222

青阳

青阳 发表于 2022-11-11 11:52
br(j,1),和，d列 最下面的  是最后打开的图片。非最后浏览的图片。

GOOD！好用，谢谢。

ROBERTCHENTPE

perfect131 发表于 2022-11-11 10:03
CommandLine方法，WIN10测试，如果 sClassName 不同请自行修改

Application.Wait Now + TimeValue("00:00:02")
    hWnd = FindWindow(vbNullString, picname & " - Windows 照片查看器")
    ' 如果找到窗口句柄，如何发送 打印P 消息   
    If hWnd <> 0 Then
        Application.SendKeys ("^P")  ‘’如何发送 打印P’????????
        SendMessage hWnd, WM_CLOSE, 0, 0
    End If