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

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

代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 招聘iOS开发,老板必问的5个问题 护航科技吴伟湘:IT离线安全体检服务将带来颠覆 百度王继平:移动互联网时代云平台思路 “第八届开源中国开源世界高峰论坛”火热开启 微软发布SQL Server 2014预览版,展示内存数据库技术 帮助软件开发者提高效率的10个小窍门 我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 为改善Flickr 雅虎收购拍照应用开发商GhostBird 让你轻松学习新代码库的六个步骤 RESTful API 设计最佳实践 谷歌11亿美元豪购Waze原因:获取数据 争本地广告市场 为什么大家都要疯狂吐槽iOS 7的扁平化设计? 伟大的程序员是天生的,不是造就的 比Hive高效7倍 Facebook推新一代查询引擎Presto 未来的存储系统设计——PMC技术交流会举行 基础知识疑问???????(每题一分,系列问题) 我想在一张图片上的某个部分做个连接请问怎么做? 如何在VB分布式开发中调用远程MTS/COM+上组件,怎么进行网络通讯? 在win98下查询dns服务器和win2000下有区别吗? 给我的NotePad做一个接口,直接和腾迅服务器相连,提供登录接口。然后说的话可以通过直接 关于ASP的日期计算问题,请大家来指导一下!!! 数组的使用? 音标如何输? .net中的窗体控制问题,在线等待,100分 插入记录的问题 快周末了,偷懒中。。。 VB分布式开发中调用远程MTS/COM+上组件,怎么进行网络通讯? 哪位大哥有空??请指教!!! 恢复MBR时可以拿任意的一张win98启动盘吗,即mbr是否跟系统有关? 图片处理 经典问题 传递设备场景的问题 请问大家如何通过一个类名来取出这个类的对象指针啊? 怎样在数据库中存储图像文件 .net,在应用程序中如何释放资源? 是否能控制交叉报表的列的排序规则 我想在一张网页上有不同的CSS风格请问怎么做? 嘿嘿,谁有domino/notes开发的命名规范? >>>>>>>EVC中ShellExecuteEx的使用问题,100分相送!<<<<<<<< 如何从数据库读出数据,然后导出为EXCEL格式? To buick555(王飞),请看看,关于EJB连接数据库的。 jdbc配置不对,SunOS5,weblogic7.0,Oracle816,报错如下:(片段) delphi中如何实现c中的'<<'和'>>'移位操作符?急..急..急..急..急.. <COM技术内幕>讲的是COM的基本原理及其实现,请问想了解COM的应用,需要看什么书啊? 怎样判断一个文件是否存在啊? 请教高手:如何做一个分帧显示的页面?(vb.net)在线等待,马上给分。 为什么用户控件是抽象类呢? 报表的保存到文件中及文件的使用问题 IIUG 的informix FAQ 如何利用日志文件记录每一步操作?请hjhing(winding)兄,leimin(黄山光明顶) 兄前来继续问题 请问有谁看过direct x8.1 里的示例程序 directsound capture,我们讨论一下好吗? 请教:我每次新建窗体都要设置窗体的Font属性,请问: 推荐几本学习linux的书,谢谢 用VC编程,手头最好有哪些书(包括电子的)? 如何删除单文档项目中没有ID的菜单项?例如分隔条,Pop_up的菜单? Delphi中如何控制WORD 如何在VB中实现多个WORD文档合并成一个WORD文档? U 令女人反胃吗? 哈哈~ 像素格式 请高手指点:请问谁写过带有Collection属性的控件?简单的如:DropDownlist的Items,复杂的如DataGrid的Items 一个存储过程错误处理的问题 初学JAVA,问题多多! fastreport中怎样改变条码打印中字体的大小? 各位兄弟! 关于在CB中,数据转换成Excel文件的第三方控件,谢谢 那里有《shell编程》和关于curses编程的教程可以下载,请帮忙? 好词5好句个,好句一条 Finally,he gets his hats back.中"back"是什么意思,如果不要它,这句话的意思有什么不同? 辑的的车换成戈读什么? She wantches morning TV after she gets up.(画线处提问)画线处为watches morning TV. The old man __his glasses "部"的右边部分改成"到"的右边部分,什么字啊 求:英文作文:My Home(Not My House) 形式:演讲稿 字数:180~250 he gets his hats 能字的右边改成长,是个字么? 好词好句好段个5种句子要有赏析,词语要写出自哪里 英语隐喻理论是什么 创怎么组词 关于科学家的演讲稿300字左右 名词所有格和belong to的用法转换 高中英语选择疑难(19)Many companies are eager to sign a contract with Amanda,who has the potential to ____ a super star.A、remain B、grow C、make D、turn请给出理由 求推荐几本哲学方面的书要求通俗易懂,对树立正确的三观有益的书 Sandy:What are you doing ,Sue?Sue:I'm writing in my diary.Sandy:Can I see it please?Sue:No,you can't!Sue:Where were we yesterday,Sandy?Sandy:We were at school.Sue:Where were we the day before yesterday?Sandy:We were at school.Sue:Go away,Sandy!Sandy: The girl next to me ______ you.Is she your daughter?A looks at B looks like C looks after D looks for 酉加黄读什么酉加黄怎么读,我要拼音. I don't what_(happen)over there.The girl wants_(be)a dancer when she_(groe)up. A group of young men hope that getting this kind of job will finally be the ticket to successA road B gate C street D direction这题是要选一个词替换划线部分,划线的是ticket,老师给的答案是B,但是选A不是更对吗? 成语:对牛弹琴的故事 the girl ---( joke) when she said there was no milk left.怎么填怎么写 My best friend near to me?还是next to me? 文中的对牛弹琴和现在常用的成语“对牛弹琴”的意思一样吗?它们两个不同的含义分别是什么?求求大家了,急用! 英语翻译浅析医疗侵权纠纷的举证责任倒置 摘要:根据《最高人民法院关于民事诉讼证据若干规定》第4条,医疗侵权诉讼实行“举证责任倒置”,为正确认识和对待这一规定,本文对医疗侵权 #[15] The young man ______ better pay many times,but he failed and finally had to give up the job.A.demandedB.bargainedC.requiredD.compared请帮忙翻译包括选项,并且分析. 类似“对牛弹琴”的成语有没有类似对牛弹琴的成语啊 英语翻译根据调查结果,08-11年婴儿得A病的机率分别为63.47%、64.00%、64.89%、64.44%,得B病的机率分别为2.96、2.99、3.23、3.09,得c病的机率分别为10.93%、12.76%、16.96%、20.63%.各年得A病机率无明显改善, My best friend sits next _____ me. A、in B、on C、to D、behind 对,牛弹琴和对牛弹琴分别是什么意思 豪夫童话中的好词好句(看了一遍,好词好句没记各位帮忙)好的最佳还有财富悬赏好的最佳还有财富悬赏看看好多少~ The young man had a job_____(interview)in a company just now. 对牛弹琴-()()()()对牛弹琴,成语接龙?只要四个成语哟,不要多了和歪货哟. 帮写一篇my favourite book的英语对话2个人的,2,3分钟左右,大一的水平, 英语翻译:当我听了一句较长的话后,不能完全复述出来 it is not easy for a Chinese person to speak English as_as a_English speaker."横线上填什么?空格线上填什么? 请详细介绍英语各种句型的成分? 线鼻子的英语单词 People use computers______much of their work.A.do B.to do C.doing D.to doing -Coud u please spare me some time?I've something to talk with u .-Not now,___ time ,please.A any otherB someC otherD some other 鼻子用英语单词怎么拼? 同义句转换:1.Being a green person is so easy.It is not _____ ______ ______ a green person.2.You're nice to help me so much .It's ____ ______ ______ to help me so much.3.Both Tom and Jack have been to Beijing twice._____ _____ Tom _____ _____ 第19题选什么, 派子偏旁改成月字是什么字 B Christmas,people are busy doing their shopping.We can hear Christmas m here and there,Manyfamilies have Christmas trees in their house.On that day,children are very happy because they can get lots of p from their p . 好词15个,好句5句, 鼻子有几种类型 英语单词 It is not easy to _____ in wartime.A:make living B:make a living C:live D:make a life 单选题 复述是不是翻译中文吗 月改一笔是什么字 it is so easy to be a greener 汉语“们”与英语S表复述有何不同】 “腾”去掉月旁改成女旁是什么字 英语翻译我的一生最美好的场景就是遇见你,静静的看着你,感觉陌生又熟悉,尽管呼吸着同一天空的气息,却无法拥抱到你,如果转换了时空,身份和姓名,但愿认得你眼睛. 英语翻译 The mountain is too high __this seventy year old man 英语翻译翻译以下内容:很高兴与贵司愉快地合作了那么多年,同时也感谢你们对XX一贯的支持和信任.我们即将推出自己独有的品牌-----XXX.XXX将会是汇聚欧洲高端家居类品牌于一体的综合性店 高中英语第17,19题 the old grandma is seventy对 seventy 提问
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘