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

快速读取 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 的声明:

Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
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)

注:如果以上的声明放在「一般模块」底下, 应在 Const 之前加上 Public 保留
字, 并且将 Private 保留字去掉。

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

需求 细节 BI项目成功的五大要素 BI项目成功的五大要诀 最受程序员欢迎的公司榜单发布:2015 IT人才招聘趋势分析 Swift中的指针操作及使用 Android性能优化典范 专访Google涂鸦首席设计师Ryan Germick:为什么世界需要Doodle? 不炒作就会死!小米乐视生态布局的那些爱恨情仇 100个iOS开发/设计面试题汇总,你将如何作答? 王巍:关于Swift学习和Apple Watch开发的一些建议 微软发全息影像头戴装置HoloLens 体验很真实 相爱相杀?盘点迎新年的移动互联网撕逼大战 HealthKit开发教程:用Swift编写个健康应用! 真的不够用!Apple Watch常规使用续航3.5小时 Activiti实战 百度BAE携手科技寺助力应用一站式部署 不仅仅是高速传输,Qualcomm演示骁龙810处理器功能 利用JS高效开发原生游戏 Cocos 2d-JS中文版API文档正式上线 同行代码审查实战分析 在Swift中使用JavaScript的方法和技巧 增强用户体验 让网站和APP更具动感的几点建议 《近匠》蒲公英:一站式免费应用内测平台 用Swift开发iOS 8新应用:斯坦福免费课程上线iTunes U Swift开发必备技巧:static和class的使用 你可能没听过的11个Python库 移动Web技术的春天来了?Facebook发布React Native,用JavaScript开发移动原生应用 开发不易!2015年移动应用开发趋势总结 .NET开发者必备的工具箱 热情不减!七款Swift应用开源项目推荐 如何给苹果提交Bug或功能需求? 深入钻研Augular两年 谈谈其究竟适用于哪些场合 唐巧:谈谈React Native 数据库连接问题? 如何在菜单中显示图片?谢谢! 在线等待!急,tomcat中文问题 工作很非常特别烦心,散分 如何监控网络中的打印 请问在COMCAT中如何更改根目录的路径 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! 谁帮我写英语作文?小弟我重谢、写的好积分再加!以“Why a sense of humor is important”为题,写一篇100词左右的短文.提示如下:1.幽默能体现个性.2.幽默有益于身心健康.3.幽默能融洽与他人的关系. 感动中国人物的故事 作文 550字 中国三大平原是哪些? 谁能帮我检查这篇英语作文啊,如果无错小弟必有重谢The Commander Fort Henry of the FortHenry was very angrily,he accuse Ashley is accomplice.Ashley was Imprisoned for 8hour.Ashleyemploy John for his lawye.Henry Dundas employChief J 中国的三大丘陵有那些 春作者朱自清,现代著名散文家、( )、( )、( ).他的代表作有( )等 本人考托福 今天写了一篇作文 大神看看能得几分,哪里可以改进的?Many teachers assign homework to students every day.Do you think daily homework is necessary for students?Use specific reasons and details to support your answer. 有什么适合女生唱的英文歌?最好是有创意的,比如cups那类的~`星期一就要在英语课上表演了.就是课前.不要太长,好听一点 我国的三大平原是哪些 小明和小强原有图画纸之比是4:3,小明有买来15张,小强用掉了8张,现有的图画纸之比是5:2,则原来他们各有多少张? 李华读一本书,第一天读了全书的1/5,第二天读了全书的1/3,这是时还剩350页 ,这本书一共有多少页? 请告诉我一篇《清晨》三年级作文有多少字 假如给我三天光明作者是谁? 以“守候”为话题的作文怎么写?只需提纲!提纲格式参照问题补充一.标题二.中心论点三.开头(必须是一整段文字,不能概括)四.主体.1.分论点 论据 说理方式 2.分论点 论据 说理方式 3.分论 用好像仿写句子,不是比喻句.好的要重谢!还有分 你和老师之间发生过矛盾冲突吗?事情是怎样的?事情是怎样解决的? 假如给我三天光明作者 超市买的瓷茶杯怎么检测是否含有有毒物质?如何消毒? 如何拒绝别人借作业 《反对邪教,崇尚科学》征文五一回校要交 中国的三大平原 怎样借别人抄作业别人会出高价 急需《崇尚科学 反对邪教》的征文, 杯子怎样消毒 已知角α,β的顶点在坐标原点,始边与x轴的正半轴重合,α,β∈(0,π),角β的终边与单位圆交点的横坐标是-1知角α,β的顶点在坐标原点,始边与x轴的正半轴重合,α,β∈(0,π),角β的终边与单位圆交点 三角方程(2cosx-1)(2sinx+3)=0的解集为 新买的白瓷杯子怎么消毒还有 可以盛沸水吗 用不用每次盛沸水的时候先温一温杯子? 已知角a的顶点与原点重合,始边与x轴的正半轴重合,终边与单位圆的交点p在直线5x+5y-1=0上则sin2a=? 三角方程2sinx+1=0的解集是 目前,普遍使用什么消毒茶杯?A.煮沸 B.高压蒸汽 C.红外线 D.速消净 直角坐标系中角α的顶点是原点,始边与x轴正半轴重合,终边交单位圆与点A,α∈(π/6,π/2).将角α的终边按逆时针旋转交单位圆与B,记A(X1,y1)),B(x2,y2).(1)若x1=1/3,求x2=?.(2)分别过A,B作x轴的垂线垂足 三角方程2sinx=-1的解集是?三角方程,急 关于初三离别的作文 小红13分钟打了996个字 小明12分钟打了936鸽子个字,怎么列式 求三角方程2sinx+1=0在[0,2π]范围内的解集 作文提纲,根据以下一段话,列作文提纲.“华盛顿走上大街,挥动礼帽,向群众致意.人们依依难舍,不愿离去,跟随他的马车一直走到他的寓所门前,这是任何语言也难以描绘的情景,这是任何人为的 小明和小红以同样的速度打字,小明打了2分钟,小红打了5分钟,小红比小明多打了33个字,小红和小明每分钟各能打多少字? 已知x,y,z是一个三角形的三个内角,求三元方程2cosx+2cosy+2cosz=3的所有解 总有一种期待的作文提纲 一个朋友有人找我抄作业,我又不好拒绝,怎么办?不是一次了,几乎每天都打电话抄我的,我又不好拒绝,毕竟是朋友.但是她没完没了,而且有时我还因为告诉她作业而耽误时间写作业,结果被我爸 位于我国地势第二级阶梯上的地形区是 A阴山山脉,吐鲁番盆地 B武夷山山脉,四川盆地 求作文提纲——等待不如行动以 “等待不如行动” 为中心,列出三个分论点以及论证事例.最好是用辩证性思维去论证……EG:标题XXX分论点:1XXX(用XX、XX事例←一两句话概述)……可以多送 小明和小红以同样的速度打字.小明打了2分钟,小红打了5分钟,小红比小明多打33个字.小红和小明每分钟各能打多少个字? 描写泰山的语句 比较优美的哲理性散文有哪些?要朱自清的.(全文) 如何婉转拒绝被别人抄作业 含有昆虫的成语 甲乙两队修一条路,甲队独自修10天完成,乙队独自修15天完成.之后他们两队一起修,乙队因事请了几天假,之后两队一共用了8天,乙队请了几天假. 一个直圆锥和一个直圆柱底面积和高都相等,已知直圆锥的底面周长是18.84厘米,高是21厘米.求直圆柱的体积是多少立方厘米快快快快快快快快快 崇尚科学,反对邪教 征文 我国三大平原是哪些? 小明和李强原有的画纸张数之比是4:3,后来,他们图画纸之比是5:2,原来两个各有多少张图画纸?是不是少了条件? 老师有100张面值50元和20元的人民币,一共有4100元,50元和20元的人民币各有多少张? 春是一篇 散文?朱自清是现代著名 ,,,. 小明和小强原有的图画纸之比是4:3小明又买来14张,现有的图画纸之比是5:2,问原来两人各有多少张图画纸?不要用方程 中国的三大平原是什么?主要山脉和主要丘陵呢? 我国的三大平原 小明和小强原有图画纸张数的比是4:3,小明又买来35张,现在两人的张数比是5:2,原来两人各有多少张图画纸?急啊 算术法 中国三大丘陵包括哪些? 求一篇朱自清的2000字散文 以色列科学家:真正的发现之旅在于拥有美国艺术家用鸽子从古巴走私雪茄第六届“汉语桥”世界中学生中文比赛开印尼苏门答腊1座火山再度喷发 当地居第二届世界浙商大会26日开幕 马云宗外交部:中印重申不将军事能力用于针对美国农民发现两副恐龙骨架 有望拍出2马来西亚74.5%家庭自拥房屋利比亚总理绑架策划人:总理根本不敢拿马来西亚74.5%家庭自拥房屋印尼苏门答腊一火山再度喷发 当地居民利比亚总理绑架策划人:总理根本不敢拿“世界泰拳王”与“中国功夫王”见面会韩谴责靖国神社合祀韩战殁者 称日决定印尼苏门答腊一火山再度喷发 当地居民印尼苏门答腊1座火山再度喷发 当地居美国要窃听全世界 全世界表示不答应杭州部分旅游购物点停业 “野导”下岗消息人士:尸检排除阿拉法特死于钋中毒利比亚总理绑架策划人:总理根本不敢拿巴消息人士称尸检报告排除阿拉法特死于变成了体育运动会创业板冲高回落 失守1400点广州须严控城市规模奥朗德绯闻背后竟是“宫斗”?今年会适时调整最低工资标准城乡居民收入增速仍较慢谢伏瞻:郑州正经历“成长的烦恼”欧盟反对 成员国卖国籍“四本预算”全提交人代会审查郑州今年再新建、改扩建多名消防员看到她躺在地上建业签约芦强现在改成双升大赛和体育运动会了民办“小升初”考试国企上缴利润仅3%调入财政支持民生食药监总局: 婴幼儿配方乳粉 监督抽社保基金预计可累计结余7680亿家乐福年货一条街郑州空气质量基本处在女乘客:您放心,今年票不难买福建4人感染 H7N9禽流感
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘