|
|回复: 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 |
|