VB 快速读取TextBox第N行的数据

最新推荐文章于 2024-01-07 01:31:36 发布

天下第一刀2020

最新推荐文章于 2024-01-07 01:31:36 发布

阅读量833

点赞数

文章标签： textbox vb byte string 存储 api

本文链接：https://blog.csdn.net/lovegod12/article/details/4061627

版权

通过Windows API函数，可以高效地读取VB中TextBox控件的第N行数据，避免逐行搜索的繁琐过程。使用EM_GETLINE、EM_LINEINDEX和EM_LINELENGTH等常量，结合SendMessage和RtlMoveMemory函数，实现直接获取指定行的字符串内容。

摘要由CSDN通过智能技术生成

TextBox 是以 vbCr+vbLf 为分行符号，如果我们要逐一读取 TextBox 每一行，无非是寻找 vbCr+vbLf 的所在位置，然后取出每一行的字串，不过这个方法不快，而且如果我们要读取第 N 行数据，还是要从第 1、2、…N-1 行逐一读起，实在麻烦。还好 Windows API 提供有读取 TextBox 第 N 行的功能，细节如下：

1、API 的声明：

Public Const EM_GETLINE = &HC4
Public Const EM_LINELENGTH = &HC1
Public Const EM_LINEINDEX = &HBB

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

2. 程序范例：
Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)

Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long

lc = SendMessage(hWnd, EM_