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

来源：百度文库 编辑：神马文学网 时间：2024/06/30 19:11:54
　　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 = &HC1Public Const EM_LINEINDEX = &HBBPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate 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 Longlc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)If length > 0 Then     ReDim bArr(length + 1) As Byte,bArr2(length - 1) As Byte    Call RtlMoveMemory(bArr(0), length, 2) '准备一个存储器，传递消息之前先在存储器的前两个字节填入存储器的长度    Call SendMessage(hWnd, EM_GETLINE,whichLine, bArr(0))     Call RtlMoveMemory(bArr2(0), bArr(0), length)     Line = StrConv(bArr2, vbUnicode) Else     Line = "" End IfEnd Sub' 假设要读取 Text1 第 5 行的数据Dim S As StringCall TB_GetLine( Text1.hWnd, 5, S )' 传回值 S 即等于第 5 行的数据（ 注：TextBox 的行次是从 0 起算。）上一篇：VB6 视频教程下一篇：Visual Basic中轻松打造绚丽按钮--360安全网
用VB快速读取TextBox第N行的数据 vb读取txt文件至textbox VB 实现 数据快速导入EXCEL VB 实现 数据快速导入EXCEL vb读取excel内容 VB 实现数据快速导入EXCEL - 软件开发网 - 提供编程开发资料的编程网 VB.NET中的TextBox控件详解2 用VB模拟键盘事件的N种方法 程序中怎样读取word文档的数据 vb数据窗体架构的说明 如何读取收藏夹文件的URL（眩晕中..） VB / API - CSDN社区 commun... 用 PHP 读取文件的正确方法 用 PHP 读取文件的正确方法 探讨通过VB向EXCEL传输数据的方法-- 快速四大法则vb U盘修复工具 让读取不到数据的U盘重生 实用的TextBox控件的Undo属性 Struts2.1使用注解配置json 用jquery读取后台数据 - see how m... 提高鸡产蛋量的特殊方法_快速赚钱vb 用VB设计可以显示农历的日历（第2页） 如何快速移动旧硬盘的数据 快速止牙痛的N个妙方 用C#快速往Excel写数据 bv快速四大法则vb