标题: VBS如何调节指定窗口的大小? [打印本页]
作者: Cameron 时间: 2008-10-20 16:57 标题: VBS如何调节指定窗口的大小?
调节为***×***的形式,不知可不可以实现?有劳各位了!
作者: rat 时间: 2008-10-20 18:31
- Option Explicit
-
- ResizeWindow "Windows 任务管理器", 300, 300
-
-
-
- Sub ResizeWindow(sWindowName, iWidth, iHeight) '窗体名称、宽度和高度(需要安装 Microsoft Word)
- Dim oWord, oTasks, oTask
- Const wdWindowStateNormal = 0
- Set oWord = CreateObject("Word.Application")
- Set oTasks = oWord.Tasks
-
- If oTasks.Exists(sWindowName) Then
- Set oTask = oTasks(sWindowName)
- With oTask
- If .WindowState <> wdWindowStateNormal Then
- .Activate
- .WindowState = wdWindowStateNormal
- End If
- .Resize iWidth, iHeight
- End With
- End If
-
- oWord.Quit
-
- Set oTask = Nothing
- Set oTasks = Nothing
- Set oWord = Nothing
- End Sub
复制代码
作者: Cameron 时间: 2008-10-20 21:50
啊!我是深度精简版,没有office,不知注册那个文件就能用了?
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |