VB 版 (精华区)

发信人: successful (成功之路), 信区: VB
标  题: 如 何 计 算 TextBox 之 中 的 行 数
发信站: 哈工大紫丁香 (2000年08月04日16:20:27 星期五), 转信

多 行 的 TextBox 是 以 vbCr+vbLf 两 个 字 符 来 断 行 的 ， 因 此 检查 这 两
 个 字 符 的 出 现 次 数 就 可 以 知 道 TextBox 的 行 数 ， 但如 果 TextBox
之 中 的 资 料 很 多 ， 检 查 行 数 的 执 行 效 能 就 低了 一 点 。
为 了 提 升 执 行 效 能 ， 可 直 接 调 用 Windows API， 首 先 在 Form 的 (一
 般 ) 声 明 以 下 的 常 数 及 API：
Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam
As Long) As Long
而 调 用 的 方 法 如 下 ：
ret = SendMessageBynum(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)
则 传 回 值 ret 即 等 于 TextBox 的 行 数 。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.223]