Word VBA教程:SendWindowMessage方法

将 Windows 提示信息及相关参数发送到指定的任务中。

expression.SendWindowMessage(Message, wParam, IParam)

expression   必需。该表达式返回一个 Task对象。

Message   Long 类型,必需。这是一个对应于要发送的提示信息的十六进制数。如果您有《Microsoft Platform Software Development Kit》,就可以在头文件中查阅提示信息名(例如查阅 Winuser.h 文件),找到相关的十六进制数。这些数均在其数值前冠以 &h。

wParam, lParam   Long 类型,必需。是与要发送的信息相应的参数。有关这些参数代表的意义,请参阅文档中该信息的参考主题,它们包含在《Microsoft Platform Software Developement Kit》中。要检索相应的参数值,需查阅 Spy 工具,该工具也包括在软件开发包中。

VBA示例

如果正在运行“记事本”程序,本示例将通过发送 WM_COMMAND 信息到“记事本”程序来显示“关于”对话框。SendWindowMessage方法用于发送 WM_COMMAND 信息(111 是 WM_COMMAND 的十六进制值)和参数 11 与 0。Spy 工具用于确定 wParam 和 lParam 的值。


Dim taskLoop As Task
For Each taskLoop In Tasks
    If InStr(taskLoop.Name, "Notepad") > 0 Then
        taskLoop.Activate
        taskLoop.SendWindowMessage &h111, 11, 0
    End If
Next taskLoop

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号