-- 作者: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的一些函数及使用说明
|