SendMessage API 消息处理详解与实战应用
SendMessage 函数核心机制解析
在 Windows 编程中，SendMessage 是实现控件底层交互的核心函数。其声明如下：
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
参数说明
- hwnd：目标控件的窗口句柄（Window Handle），用于标识要操作的具体控件。例如，在 VB 中可通过
TextBox1.hwnd获取对应控件句柄。 - wMsg：指定要发送的消息类型，如
EM_SETSEL表示设置文本选择范围。 - wParam：附加消息参数，根据具体消息类型决定用途，可为数值或标志位。
- lParam：传递额外数据，类型定义为
Any以支持多种数据格式，包括字符串、结构体或指针。
常见控件消息分类与用法
编辑框（TextBox / RichTextBox）消息
通过 EM_ 开头的消息可精确控制文本内容与显示行为。
EM_GETLINECOUNT：获取文本总行数EM_GETSEL：获取当前选中文本的起始与结束位置（返回值低16位为起点，高16位为终点）EM_REPLACESEL：用指定字符串替换选中文本，支持是否记录撤销操作EM_SETSEL：设置光标位置或选定区域，常用于清空控件或追加内容EM_FINDTEXT：在文本中搜索指定字符串，适用于动态筛选功能
列表框（ListBox）扩展功能
利用 LB_ 系列消息增强列表控件能力。
LB_FINDSTRING：从指定索引开始查找匹配项，返回匹配项索引LB_ITEMFROMPOINT：获取鼠标当前位置对应的列表项索引，可用于实现悬浮提示LB_SETHORIZONTALEXTENT：设置水平滚动条长度，解决长文本无法完整显示问题
组合框（ComboBox）控制
使用 CB_SHOWDROPDOWN 可程序化展开或收起下拉菜单：
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0 ' 展开下拉列表
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, False, 0 ' 收起下拉列表
树形控件（TreeView）高级定制
通过 TVM_ 消息实现视觉与交互优化。
TVM_SETBKCOLOR：设置背景颜色，例如：SendMessage TreeView1.hwnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0)TVM_HITTEST：检测鼠标位置是否落在某节点上，结合TVM_GETITEM可读取节点文本
富文本控件（RichTextBox）进阶操作
支持复杂文本处理与事件监听。
EM_PASTESPECIAL：从剪贴板粘贴位图或文本，适用于图文混合内容插入EM_SETEVENTMASK：注册事件通知，如ENM_SELCHANGE监听选区变化EM_EXSETSEL：以CHARRANGE结构精确设定选区，适合批量文本操作
窗口与系统级控制
实现对窗体及系统的直接干预。
WM_SYSCOMMAND：执行最小化、最大化、关闭等系统命令WM_GETTEXT/WM_SETTEXT：获取或修改窗体标题WM_CLOSE：模拟用户点击关闭按钮，关闭任意窗口WM_MONITORPOWER：控制显示器电源状态，实现节能管理
典型应用场景示例
自动匹配输入（类似智能提示）
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Or KeyAscii >= 97 And KeyAscii <= 122 Then
Dim searchStr As String
searchStr = searchStr + Chr(KeyAscii)
Dim index As Long
index = SendMessage(ListBox1.hwnd, LB_FINDSTRING, -1, ByVal searchStr)
If index > -1 Then ListBox1.ListIndex = index
End If
End Sub
动态添加水平滚动条
Private Function GetMaxTextWidth(lst As ListBox) As Long
Dim hdc As Long
Dim rect As RECT
Dim maxWidth As Long
hdc = lst.Parent.hdc
For i = 0 To lst.ListCount - 1
DrawText hdc, lst.List(i), -1, rect, DT_CALCRECT
If (rect.Right - rect.Left) > maxWidth Then maxWidth = rect.Right - rect.Left
Next
GetMaxTextWidth = maxWidth + 10
End Function
Private Sub Form_Load()
SendMessage List1.hwnd, LB_SETHORIZONTALEXTENT, GetMaxTextWidth(List1), 0
End Sub
实现垂直居中显示文本
Public Sub CenterTextInTextBox(txt As TextBox)
Dim rc As RECT
SendMessage txt.hwnd, EM_GETRECT, 0, rc
With txt.Font
.Name = txt.Font.Name
.Size = txt.Font.Size
.Bold = txt.Font.Bold
End With
Dim lineHeight As Long
lineHeight = txt.Parent.TextHeight("H") \ Screen.TwipsPerPixelY
Dim topOffset As Long
topOffset = ((rc.Bottom - rc.Top) - lineHeight) \ 2
rc.Top = rc.Top + topOffset
rc.Bottom = rc.Bottom - topOffset
SendMessage txt.hwnd, EM_SETRECTNP, 0, rc
txt.Alignment = vbCenter
End Sub
注意事项与最佳实践
- 参数类型处理：若传递字符串，必须使用
ByVal；若传递结构体或指针，则使用Any类型。 - 内存管理：使用
GlobalAlloc申请临时内存存储文本时，务必调用GlobalFree释放。 - 错误处理：建议使用
On Error Resume Next防止因无效句柄导致崩溃。 - 兼容性限制：部分消息（如
EM_SETMARGINS）不适用于 NT 3.51 以下系统。
