欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 如何实现 用VBA 把一个已经打开的外部程序记事本 置顶

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有12348人关注过本帖树形打印复制链接

主题:如何实现 用VBA 把一个已经打开的外部程序记事本 置顶

帅哥哟,离线,有人找我吗?
wattwei
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:574 积分:3167 威望:0 精华:0 注册:2009/10/10 11:13:01
  发帖心情 Post By:2010/11/27 12:54:17 [显示全部帖子]

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

根据notepad的标题对应修改,查找窗口

 回到顶部
帅哥哟,离线,有人找我吗?
wattwei
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:574 积分:3167 威望:0 精华:0 注册:2009/10/10 11:13:01
  发帖心情 Post By:2010/11/27 20:35:20 [显示全部帖子]

可以使用FindWindowEx实现窗口的遍历,找到指定控件的句柄。楼主可以搜索Internet获得相关信息。
另楼主有编写外挂程序的倾向,本人不反对,但也不支持,故不会提供更多帮助,请自行研究。

 回到顶部