Office中国论坛/Access中国论坛

标题: 调用画图后让其最大化显示在前端的请教2 [打印本页]

作者: 灰太郎 时间: 2024-1-13 14:10
标题: 调用画图后让其最大化显示在前端的请教2
|回复: 0
上一主题下一主题[窗体] 调用画图后让其最大化显示在前端的请教 (审核中) [复制链接]
灰太郎

0

主题
1277

帖子
104

积分
注册会员

Rank: 2

技术0 点V币0 点积分104
电梯直达
跳转到指定楼层1#
发表于昨天 16:20 回帖奖励
用Access调用画图打开一个图片让其最大化显示在前端不了Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

'Sub test()
Dim hwnd As Long, thwnd As Long
Shell ("C:\Windows\system32\mspaint.exe D:\091611\桌面\报销清单+发票\报销清单+发票\1.jpg")
hwnd = FindWindow("MSPaintApp", "1.jpg - 画图") '得到句柄
ShowWindow hwnd, sw_show'
SendKeys "{ENTER}", True
SetForegroundWindow
END sub

作者: 灰太郎 时间: 2024-1-15 19:05
标题也没问题，hWnd = FindWindow("MSPaintApp", "JS2022100011.jpg - 画图") ' 得到句柄却找不到，不知为什么？

作者: 灰太郎 时间: 2024-1-15 19:06
用sky工具看的标题和类，用findwindow就是找不到句柄

作者: 灰太郎 时间: 2024-1-15 19:07
没有人回复，只能自己顶了

作者: ganlinlao 时间: 2024-1-17 08:45
本帖最后由 ganlinlao 于 2024-1-17 09:36 编辑

因为实在不明白，你的意图是什么？如果只是显示图片？为什么要用这种高难度的动作，如果是编辑图片，画图工具有多大意义？

模块1：
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

窗体1：
Private Sub Command2_Click()
ShellExecute Me.hwnd, "open", "mspaint.exe", "D:\Pictures\backpaper\beautiful-environment-green-2275221.jpg", "C:\Windows\SysWOW64", 3
'最后一个参数 3，是激活并最大化画图工具的窗口；syswow64 用来确定打开的是32位的mspaint.exe；

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)