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

小歆12年前软件源码01944

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_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 If 

End Sub

' 假设要读取 Text1 第 5 行的数据

Dim S As String

Call TB_GetLine( Text1.hWnd, 5, S ) 

' 传回值 S 即等于第 5 行的数据

( 注:TextBox 的行次是从 0 起算。)

       PS:站长在去掉有关bArr2的定义后,并将Line=Strconv(bArr2,vbUnicode)改为Line=StrConv(bArr,vbUnicode)发现程序照常运行,似乎bArr2在本程序中是多余的。不知哪位大虾能告知本人bArr2在这里的作用!





相关文章

测判三极管的口诀

三极管的管型及管脚的判别是电子技术初学者的一项基本功,为了帮助读者迅速掌握测判方法,笔者总结出四句口诀:“三颠倒,找基极;PN结,定管型;顺箭头,偏转大;测不准,动嘴巴。”下面让我们逐句进行解释...

小歆工作室管理工作说明以及一些公告

1。论坛版主的申请,前提是你找对你喜欢的版块,喜欢的内容。并且有信心将这个版块发展起来。如果仅仅是为了个版主头衔。建议不要进行申请,最多一个星期就会被...

【详解】VB6.0下用MSComm控件实现串口通信

VB6.0 下用 MSComm 控件实现串口通信 MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能 下...

Discuz附件下载权限绕过工具.png

[小歆][Discuz附件下载权限绕过工具][V1.1][2014.03.13]

Discuz附件下载权限绕过工具V1.1 本软件利用Discuz论坛的漏洞来下载论坛的附件。 【Discuz3.X的有部分好像已经失效了,自测,我刚刚测试了一个3.X论坛还是...

APK编辑工具(编译 and 反编译)绿色中文版

APK编辑工具(编译 and 反编译)绿色中文版

软件简介 apktool是apk反编译工具能够反编译及回编译apk,同时安装反编译系统apk所需要的framework-res框架,清理上次反编译文件夹等功能。 使用方法...

VB获取本机公网IP源码

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, Fa...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。