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

快速读取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 起算。)

android.appwidget类剖析 Android NDK之JNI使用例子 RemoteViews - Android Widget开发入门 ASP.NET如何用正则表达式得到网站页面中的所有链接 PHP实现图形验证码案例(1) Android Widget开发实例-电量监控 Android自带Widget - Clock指针钟表源代码分析 C#实现文件批量改名工具 PHP利用Google Chart API生成饼图 PHP操作SQLite数据库 PHP利用DomDocument创建XML文件 ASP.NET如何加密/解密URL网址 如何使用C#读取csv文件 三步骤实现ASP.NET(C#)项目中添加谷歌(Google Map)地图 使用C# ASP.NET以FTP客户端方式下载文件 ASP.NET如何用C#代码检测手机浏览器 使用C#读取上传的Excel文件 新版本SQL Helper类 C#使用iTextsharp生成PDF 在.NET里用iTextSharp库生成PDF文档 用itextsharp将ASP.NET页面导出到PDF中 什么是JQuery-JQuery API jQuery入门指南-JQuery API jQuery的核心部分-JQuery API $(elements)-JQuery API $(expr, context)-JQuery API $(fn) -JQuery API $(html) -JQuery API $.extend(prop) -JQuery API $.noConflict() -JQuery API each(fn)-JQuery API 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 ASP新手提问! 有谁知道在DELPHI中得到包括硬盘、多媒体、主板等信息? 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 我要学习数据结构,算法,离散数学..... [不爽阿]今天圣诞,有人惹我 关于临时表的共享问题? 是不是我的问题太难了,没有人回答? 请举例说明:接口是怎样实现多重继承的? 听说最近由于IT行业不景气,程序员的工资缩水了?是真的么? 这样写有什么不对?? delphi的dll库返回后调用程序出错!加了一行无关代码却正常!求教各位大狭! 塔尼包姆出了不1本计算机结构的书,还有1本MICROSOFT的 Microsoft Windows 用户界面开发 请问是否很好 Access初学者问一 再次请教一个sql排序问题,一定给分。 请问:程序中对WM_PAINT,WM_CTLCOLOR,WM_ERASEBKGND三个消息处理的顺序是怎样的? 这个月生意只有上个月的1/5,怎么回事? 我女朋友说最爱她的人不是我,这意味着什么? 工资里导入上月数据怎么实现 谁有复读王(fyfdw2001)的注册码? 经过一段时间的努力,我做出一套电话语音邮件系统,可以用电话和手机来收发EMAIL,有意者请与我联系 xuyaoliang@263.net 请救救我吧!有谁能告诉我中程的分数怎么查! 如何解决数据窗口显示照片(此照片在数据库的一个字段里)的问题? 请问如何获取硬盘和光驱的型号信息 谁有复读王(fyfdw2001)的注册码??????? n_up的问题。如何在另一列插入计算字段? 有没有深圳的mm,一起过圣诞好吗? far怎么用啊? 关于临时表的共享问题?? 请大家介绍一些学习C/C++的好网站,只要进者就给分。 "他妈的,又打歪了!" 我在作登录是出现了"runtime error"错误,详情见内 3台机子如何共享一个adsl上网?? 如何把一应用配置成一NT服务 出学的菜鸟提问 找回addin:资源编辑器 怎样开发阅读工具软件 acm文件格式 数据库安装程序的问题。 大家看看这道题怎么解 100M的网线怎么做?用的是双脚线!!! 大峡,我把一个Acess的 .mdb文件设置了密码,但是密码我忘了,哪里有软件下载,可以解决我打开的问题呢?谢谢 关于 请问怎么样实现象”金山毒霸“控制中心一样的界面? 作文 我喜欢的颜色 皇帝的新装是围绕哪个字展开的 他非常可爱,大家都喜欢他.的汉译英 皇帝的新装续写100字 已知被除数除数商和余数的和是409,若商是15,余数是5,那么除数和被除数各是几? 刚才,孩子们把他们所有的玩具放在了一起.他们想要分享他们的玩具.(中译英) 皇帝的新装续写700字 中译英:同时,我们不必买许多衣服. 《皇帝的新装》在结尾为什么安排一个孩子的说话, 皇帝的新装续写150字 如果让你续写,你想结局是什么? 汉译英,你认识说英语的女孩吗?1 你认识说英语的那个女孩吗?(定语从句)2 我习惯于早起、(be used to )3 如果我早知道他的住址,我早就写信给他了.(虚拟语气)4 不是所有的鸟都会飞.(虚 计算1+2+3+...+2012+2013+2014+2013+2012+...+3+2+1 皇帝的新装续写 汉译英 长头发女孩翻译成英语, 写喜欢的一种颜色的作文 续写《皇帝的新装》故事结局 A/B商5余3,A B各等于多少? 小学英语作文要求70个字重点写为什么喜欢这个颜色要英语的一个颜色:蓝色1 2楼的:写的不错,但我要的是英语的 续写《皇帝的新装》400字要符合皇帝、大臣等人的性格 有素质的有钱人一般喜欢什么样的女人呢?当官的男人一般又喜欢什么样的女人呢? 皇帝的新装续写 200字 谁知道怎样为皇帝的新装续写一个有趣的结局? 现在的女人是喜欢帅哥,还是喜欢有钱人 说明5^2013-3*5^2012+5^2011能被11整除 皇帝的新装的结局说明的道理?皇帝的新装最后让一个小孩说出了真话,是为了说明一个什么道理? 汉译英:什么样的女人喜欢嫁给有钱人?(做标题) 皇帝的新装续写300字 汉译英:你穿着的那条白色的连衣裙好漂亮啊! 汉译英:有钱人除了老婆,还希望有其他的女人.也就是想装点下他们的面子罢了. 2012^2+2012能被2013整除吗 为甚麽 皇帝的新装结尾是什么 女人都喜欢有钱人吗 皇帝的新装续写 皇帝回宫会干什么 150字左右 一条连衣裙怎么样? 你为什么不穿一件漂亮的外套? 汉译英 模拟时间+世界地图有没有那种在世界地图上.每个分区都有一个模拟时钟的地图啊 我喜欢的一种植物 作文要写出托物言志,600字的 皇帝的新装骗子的结果皇帝的新装骗子最后的结果是什么?500字 世界地图什么时间出现的?拜托了各位 谢谢 一个五位数,若前三个数字表示的三位数与后二个数字表示的两位数的和能被11整除,判断这个五位数能否被11整除?说明理由. 两个整数相除的商是12,余数是26,被除数、除数、商、余数的和等于454,被除数和除数各是多少? 世界上的时区是怎样划分的? 《皇帝的新装》续写(200字以内) 《皇帝的新装》的写作特色是什么啊? 世界地图中文版 中国属于哪个时区 同步导学皇帝的新装答案 你最喜欢的颜色是粉色吗用英语怎么说 皇帝的新装作文1.说真话需要勇气,有时还要付出代价.如果你当时也在场,会怎样做?试结合生活经验,讨论有关说真话的问题2.有人认为课文中的骗子也有值得肯定的地方,有人不同意,试就这个 小学作文,我喜欢的颜色是白色代表什么? 皇帝的新装缩写(600字) 续写《安徒生童话·皇帝的新装》,文章要生动,形象,具体~ 作文:我喜欢的颜色 绿色哦(比较好写) 马上就需要!写的好,必有重谢! 皇帝的新装缩写300字 急求:2、3、4、5、7、8、9、11、13、25、125整除的性质讲得简洁明了一些,请把要点全写出来,还要把多解的方法写出来 我喜欢我自己 作文我喜欢我自己 一篇初中作文,至少600字语文作文 皇帝的新装200字剧本300字也可以 如何证明能被7、11、13整除的性质我不要能被7、11、13整除的性质,我要的是如何证明,比如3的性质是各个位置上的数之和.abc=100a+10b+c=99a+9b+a+b+c99a+9b能被3整除,只要知道a+b+c能不能被3整除,就可 皇帝的新装 写老大臣的几段1.老大臣为什么用“多么美的花纹”“多么美的色彩”来赞美布料,而不用别的语句?2.老大臣为什么不敢承认自己看不见布料这一事实?3.作者写老大臣的眼睛句子是 缩写到500字的皇帝的新装 汉译英:这些孩子们有许多玩具玩
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn