Board logo

标题: VBS如何调节指定窗口的大小? [打印本页]

作者: Cameron    时间: 2008-10-20 16:57     标题: VBS如何调节指定窗口的大小?

调节为***×***的形式,不知可不可以实现?有劳各位了!
作者: rat    时间: 2008-10-20 18:31

  1. Option Explicit
  2. ResizeWindow "Windows 任务管理器", 300, 300
  3. Sub ResizeWindow(sWindowName, iWidth, iHeight) '窗体名称、宽度和高度(需要安装 Microsoft Word)
  4. Dim oWord, oTasks, oTask
  5. Const wdWindowStateNormal = 0
  6. Set oWord = CreateObject("Word.Application")
  7. Set oTasks = oWord.Tasks
  8. If oTasks.Exists(sWindowName) Then
  9. Set oTask = oTasks(sWindowName)
  10. With oTask
  11. If .WindowState <> wdWindowStateNormal Then
  12. .Activate
  13. .WindowState = wdWindowStateNormal
  14. End If
  15. .Resize iWidth, iHeight
  16. End With
  17. End If
  18. oWord.Quit
  19. Set oTask = Nothing
  20. Set oTasks = Nothing
  21. Set oWord = Nothing
  22. End Sub
复制代码

作者: Cameron    时间: 2008-10-20 21:50

啊!我是深度精简版,没有office,不知注册那个文件就能用了?




欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2