说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
快速读取TextBox第N行的数据 -VB资料


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 起算。)

Windows 95/NT 运行了多长时间 -VB资料 Windows 的登录资料库 -VB资料 把回车键变成TAB键-VB资料 把文件置入到Text或RichText中 -VB资料 避免按 [ENTER] 回车键产生的“嘀”声 -VB资料 cc的license重新安装? 有没有办法不出现确认删除的对话框直接删除sheet? 有汉字的问题,高手进入 Update语句的咄咄怪事!!! 告诉大家一个好消息! 各位仁兄,多多帮忙!!!!!~~~~#### 我的一个自定义控件调用数据库,数据打开后,调用一次就多了一个数据库连接? 请问怎样在程序中禁用Windows的各个热键? 关于windows2003版本的问题 用过氧化氢溶液制取氧气(用二氧化锰做催化剂).过氧 沉默是金的辩论材料那里有? 沉默是金 议论文 求材料 金粉是什么材料 标准摩尔反应焓变的计算,比如,fe3o4+4h2= 3Fe+4H2O生成Fe3O4+4H2 其中H2生 为什么3Fe + 4H2O(g) = F3O4 + 3Fe+4H2O-->Fe3O4+4H2标出电子转 化学反应前后,各种元素的质量发生变化吗 美核导弹值更官开门睡觉英王室将拍四世同堂照泰咖啡店主挑战星巴克智能手机或将遥控空袭韩首名宇航员学MBA挨批一种新的恶意木马新变种现身互联网比亚迪总裁王传福:新能源汽车是中国汽望海楼:美对华要多些合作思维人民日报评论员:中国特色社会主义政治日本战犯自供:缺粮的时候曾将慰安妇杀帮主万岁抗日之浮空基地仙鱼记剑戮乾坤命运至黑之夜城隍庙旅游雪乡影视城旅游二龙山旅游走婚桥旅游海地旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘