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

小歆12年前软件源码02856

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在这里的作用!





相关文章

小歆工作室旗下网盘开启公测!!!

小歆工作室旗下网盘开启公测!!!

小歆免费网络硬盘 小歆工作室旗下 二零一三年的冬天,小歆工作室又有新产品上线了 —— 小歆网盘...

电容式触摸按键 PCB布线

电容式触摸按键 布局 A.  CIN电容尽量靠近IC放置,各个通道的CIN电容必须用铺地隔离。感应盘也要尽量靠近IC,这样感应盘到IC的连线就会最短...

一个工作了20年的电子工程师谈入职面试

看到很多讨论入职面试的帖子,作为一个做了20年研发的电子工程师,想说说自己的想法。也许因为我在巨无霸式的企业里工作了太长的时间,认识会有一些局限,不过希望能起到一些参考价值。 从走出校门,我们会...

QQ空间登陆工具V6.0.jpg

[小歆][QQ空间登录工具][V6.0][公测版][2012.05.26]

                           ...

嵌入式软件架构设计

模块划分 模块划分的"划"是规划的意思,意指怎样合理的将一个很大的软件划分为一系列功能独立的部分合作完成系统的需求。C语言作为一种结构化的程序设计语言,在模块的划分上主要依据功能(依功能...

电路公式大全 目录.jpg

电源设计公式大全

电源设计公式大全 目录:   下载地址:        百度网盘:http://pan.baidu.com/s/1...

发表评论    

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