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

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

HTML文档下载 WORD文档下载 PDF文档下载
用VB快速读取TextBox第N行的数据
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 起算。)

站长在去掉有关bArr2的定义后,并将Line=Strconv(bArr2,vbUnicode)改为Line=StrConv(bArr,vbUnicode)发现程序照常运行,似乎bArr2在本程序中是多余的。不知哪位大虾能告知本人bArr2在这里的作用。
百度和高德:最后谁是地图的王者? 【CTO论道】瑞智和康CEO陶建辉:软硬结合是消费电子新潮流 10大高效率原型设计工具 JIRA与敏捷:李小龙教给我们的敏捷开发之道 百度开放云:Light Up The World,与开发者共享云未来 有胆你就来!11个在线编码大赛 CTO如何避免决策失控:第一步-定义角色 后机械硬盘时代,那些引领风骚的闪存初创公司 致远文杰:传统企业如何实现移动化转型? 记华为HCC2013 Day2:SDN开放编程系统OPS打造生态圈 HCC2013:华为FusionCube融合至简,性能至优 已确认Stephen Elop候选微软下任CEO 英语对于软件开发者来说到底有多重要? SDCC 2013中国软件开发者大会成功落幕 新浪微博宋琦:PHP在微博优化中的“大显身手” 8月份浏览器份额:IE浏览器PC端出现反弹 移动端跌出前五 如何让Ruby项目速度提升10倍 跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 美化代码的15个代码语法高亮工具 你所不知道的虚拟化和云计算 [开源推荐]Effeckt.css项目:CSS交互动画应用集锦 针对Google Glass应用的四大UX设计原则及典型应用 Google收了摩托罗拉,微软收了诺记,黑莓又将花落谁家? 十亿月PV网站秘诀:Reddit自失败中总结的25条经验 粉碎5个NoSQL流言:各司其职,NoSQL的出现比关系型更早 请教vb3秒精确定时问题? 哪位大侠能在今天内急救!!关于asp.net的数据验证和数组传送问题 lihonggen0(李洪根,用VB,标准答案来了) 密码被人盗用 在Delphi中用ADO怎样连接Excel表 x++等的问题。 当一个数据库数据更新后如何通知所有连接到此数据库的用户来更新自己? 一个有趣的问题 奉献100, 现在手头有个程序,关于附件上传! 如何判断A字符串中是否包含B字串? 做个类似的邮件发送程序 快快就我 怎样同时新增主从两张表的数据? vb.Net中的几种类型集合中,那种适合于用Index和Key来索引?我怎么觉得.Net的CollectionBase还没有vb6的Collection好使? 为亚洲雪耻,为中国队加油!! 紧急求助:在那儿可以找到关于字体文件的文件格式!!! 测试adoconnection是否已关闭 请教各位大侠! 关于表设了密码的问题 开始了吗?开始了吗?北京的高程考试报名开始了吗? 如何自定义数据类型? 图片显示不了了 java 线程,对当前线程(非主线程)调用sleep,为什么主线程(窗口)也没反应了 各位大虾帮忙呀,哪位把下面的文字翻译成准确的英文,200分相赠!!!决不食言!!! 请教:PHP下的事件处理方法 如何通过ASCII码区分全角与半角字符?急! 触发器???:(拜托各位大哥大姐,大叔大伯! 字符串替换函数是什么? 送分 那位大虾帮我翻译一下 急 分不够可以加 为了忘却的纪念! 急急急急急!!!!!!!!!!,Band里的内容过长,如何让它自动的分页??? oicq的窗口title怎么为空了?如何得到句柄? session问题! 用dbgrideh控件,如何实现汇总结果的打印 有关ATL的最基础问题 怎样监控icmp包?用自编的程序 急急急急急!!!!!!!!!!,Band里的内容过长,如何让它自动的分页??? 使对话框最小化渐变到托盘区。 各位高手!!我用的是win2000工作组模式,为什么我能访问别人,而别人不能访问我呢??? 有关文件的读写问题。 大家讨论一下内存分配、释放的问题 关于在jsp中运用sqlserver的小问题!!! 怎么样可以将session的存活期限设置成“永远不死”?? 送分题,如何取得一个表的所有字段名? 那里可以下载Wrox系列书的英文版? 无法启动sqlserver的问题. DELPHI中dbgird的语句问题 关于控制动态产生Checkbox,并进行动态控问题 BCB中使用MSComm控件,无法定义动态数组变量,该怎么办?--急啊!在线等待 战神----巴蒂 两个问题! 用ADO访问DBASE数据库 如图所示是利用太阳能加热水的简易装置.水箱的四壁和底部均用绝热材料制成,箱顶装有吸热板,其面积为1m2 ,水箱内装有质量为50kg的水.地 球表面接受的太阳辐射热为1.0x103J/(s.m2 ),若水箱里的 二手的反应釜能用吗?很多朋友讲旧的反应釜不是太好用,我的钱不多.想买几个旧的反应釜但心里没底,想问问大家该怎么办? 尼龙塑料于POM料混在一起了怎么可以分离出来? 光的波长和频率有什么关系 二手反应釜能用吗?我想购买2台5吨的不锈钢反应釜, 求几个传感器电路图 净水器换滤芯的好还是不换滤芯的好?看到好多种类,几个差别也比较大,不知以什么标准选择,大家给点建议 单级反渗透和双级反渗透有什么不一样的? 光敏传感器声光控开关电路摘要 SI单位制是什么意思? 爆菊花是什么意思呀?不懂~~谁告诉我一下?什么意思呐呐~还是不动啊~~ 传感器本身带有测量电路吗 菊爆是什么意思 EDTA-二钾的化学式书写 1、硝酸中含有少量硫酸,应选用什么试剂除去,2、硝酸钾溶液中混有少量硫酸镁,应选用什么试剂除去, 在车床上可完成哪些加工?写出各种加工所采用的刀具的名称 吃什么食物增加热量加得多 如何配制硫酸硝酸法的试剂将质量比为2:1的浓硫酸和浓硝酸混合液加入到试剂水(1L水约2滴混合液)中,使PH为3.20±0.05.请问浓硫酸和浓硝酸各为多少毫升? 在车床上加工槽(退刀槽之类的)时,如果刀宽比要加工的槽宽小时,可以使用刀具长度补偿来进行加工吗?谢 请大家告诉我这些我平常吃的食物的热量吧谢谢!~_~有苹果,地瓜干(用煮熟的地瓜切片晒的).薯片,成杯的什么小米粥(不加糖),成杯的八宝粥(不加糖),豆浆,豆腐脑,汉堡包,皇家法式粗粮葡萄面包, 用什么试剂除去硝酸里的硫酸 乐器学笛子,二胡,古筝,小提琴,哪个好学可以用大小号来区分,注意,要学过后有感觉的人来说,不懂请不要误导哦! 太阳辐射量怎么表示比如温度用摄氏度,高度用米,千米,等 波长里的频率和周期怎么理解? 1mol任何物质所含有的粒子数为NA个与1mol任何物质的粒子数目为NA个有什么区别 单位体积太阳辐射计算知道地球上单位面积的太阳辐射量,单位体积内的辐射量怎么算? 玻璃纤维增强聚碳酸酯塑料为什么含镉 波长,频率和波速的关系公式 :v=f×λ如果要找λ的话公式就变成这样 :λ=v/f我不明白为什么会变成这样 不是应该 λ=f/v 单位体积太阳辐射量计算知道地球上单位面积内太阳辐射功率,单位体积的辐射量怎么计算? 基于单片机的数字温度计设计最近在做单片机设计,题目是温度计的设计,设计要求:1)基本范围-50℃-110℃.2)精度误差小于0.5℃.3)LED数码直读显示.4)扩展功能.5)可以任意设定温度的上下 爆 菊是什么意思 怎么看太阳辐射量 中学化学实验中温度计的使用分哪三种情况以及哪些实验需要温度计 1mol的任何物质的粒子数(都约为6.02×10²³个),叫做 ( ),符号为( ) 普通话音节wen是由几个音素构成的音节? 车钳铣刨磨的区别真是不争气啊,这个我都不知道, 判断:1mol任何物质都含有约6点02乘以10的23次幂 没有元音音素可否构成音节1.没有元音音素,辅音音素可否单独构成一个音节?2.辅音音素中][m][n][ŋ]][l]可构成成音节,成音节可否脱离元音音素单独构成一个单词? 我机械加工(车铣刨磨钳床或加工中心等) 易燃金属合金材料都有哪些(比如说镁铝合金)? 从文字符号记录的语言结构系统中的单位的情况分析,汉字属于A音节文字 B音素文字 C语素文字 D音位文字 知道音节是由音素组成的.可是”开音节“的定义却是元音字母结尾?唉 怎么都没有回答到点子上? 车,铣,刨,磨,钳,锻,铸的英文翻译? 汉字是语素文字,还是语素音节文字? 碘化硫(硫化碘)化合价碘化硫(硫化碘)中谁呈正价?谁呈负价?如果化合了谁是正价,谁是负价? 车铣刨磨钻命名的由来,问问 谈谈汉语的音节、语素和汉字的关系尽可能详细的论述 为什么没有碘化铁这种物质?还有,有没有硫化铁这种物质? 某种洗衣机在洗涤衣服时,经历了进水、清洗、排水、脱水四个连续的过程,其中进水、某洗衣机在洗涤衣服时,经历了进水、清洗、排水、脱水四个连续过程,其中进水、清洗、排水时洗衣机中 生巧克力热量和普通巧克力比怎么样? 二硫化碘钙是什么意思?也许是跟化学式有关吧!! 会是Kiss吗(⊙_⊙)? 某种洗衣机在洗涤衣服时,经历了进水、清洗、排水、脱水四个连续的过程,其中进水、清洗、排水时洗衣机中的水量(L)与时间(min)之间的关系如折线图所示,根据图像解答下列问题:1) 比巧克力含热量多的是什么 碘和四硫化碳为什么不能分离为什么不能用分液漏斗分离,但四硫化碳和水则可以呢?PS:书上写的分离实验是碘酒和四硫化碳 基于数字温度传感器的数字温度计设计需要一份毕业设计,有实物的,有的带价MMM,18730651485,黑人勿扰 化学实验中的玻璃器皿有哪些? 一枚铁钉投入到硫酸铜溶液中,过一会儿取出,发现铁钉表面有红色物质附着,洗涤,干燥后,发现铁钉质量增加了0.2克,问参加反应的铁的质量为多少克? 设计数字温度计我有一块单片机学习版,一个PT100和一个NTC10K的温度探头!请问我如何将它们设计成温度数字温度计?缺零件我可以买的! 现代汉语中一个音节最多包含多少个拼音?现代汉语中一个音节最多包含多少个拼音字母? 化学合成中的"反应釜“那里卖旧货想买个化学合成中的"反应釜“那里有卖旧的~!新的太贵了我是河南郑州的,有知道的给我留言谢谢~! 数字温度计设计过程中常见的问题单片机课程设计,数字温度计设计过程中常遇到的问题及解决办法...
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘