高级功能研发区-如何使用vba让外面的记事本最大化和最小化？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  如何使用vba让外面的记事本最大化和最小化？  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=57370)

--  作者：luqi
--  发布时间：2013/10/10 11:35:02
--  如何使用vba让外面的记事本最大化和最小化？

如何使用vba ，让外面的记事本最大化和最小化？

残看了之前的帖子，还是不懂得修改

Sub test()
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","SetWindowPos","i=hhllllu","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbNullString, "无标题 - 记事本")
If WindowHandle Then
    Call Wrap.SetWindowPos(WindowHandle,-1,0,0,0,0,3)   \'设置置顶
    \'Call Wrap.SetWindowPos(WindowHandle,-2,0,0,0,0,3) \'取消置顶
End If
End Sub

--  作者：王锋
--  发布时间：2013/10/10 12:37:30
--

Sub test()
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","ShowWindow","i=hu","f=s", "r=l"
WindowHandle = Wrap.FindWindow(vbNullString, "无标题 - 记事本")
If WindowHandle Then
    Call Wrap.ShowWindow(WindowHandle,3)   \'最大化
    Call Wrap.ShowWindow(WindowHandle,6)   \'最小化
End If
End Sub

建议你多看看金字塔VBA编程帮助，对于DynamicWrapper外部对象调用的帮助说明，另外多在网上看看WIN32 API的一些函数及使用说明