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

用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在这里的作用。
一个传奇:有个人不断赢得世界算法冠军 音乐能力开放平台合作探索之旅 社交网络海外营销技巧及工具实战 大数据谬误 —— 为什么我们需要收集更多的数据 传苹果地图负责人Rich Williamson遭解雇? 一个月:Windows 8授权许可已破四千万 里程碑:iPhone与Android企业用户市场首次超过黑莓 VMware最快下周宣布分拆Cloud Foundry 国际原子能机构服务器遭窃 百多位专家信息泄密 用户可通过Google Drive直接向Gmail添加高达10GB的文件 韩寒携个人App进军移动互联网 亮相应用汇独家发布会 摆脱谷歌 亚马逊向开发者正式发布地图API 为什么应该用模块取代C/C++中的头文件? Mozilla布道师:HTML5在移动端没有未来? 那些年,历史上留下浓重一笔的黑客们 林敏博士:透过设计看三星手机帝国崛起 OpenFeint血泪史:我们是如何被苹果逼死的 或免费升级:微软2013年推Windows Blue系统 取经:《捕鱼达人2》每月捞金160万美元的秘密 AWS推数据仓库服务Redshift 价格仅是Teradata IBM Oracle的十分之一 美国开展数据中心整合计划 简化政府IT运营 阿里巴巴数据交换平台——集大成于一身 [体验]Windows 8 Metro/Modern Style IE 10 Growth Hacker正席卷全球,你了解它吗? Splashtop发布Ubuntu Linux版本Streamer 性能超过VNC 10倍 Windows 8引领智能操作 人机交互进入触控时代 豌豆荚发布新版应用搜索 推出“绿色标签”机制 权威解读:苹果的未来将走向何方? Google炮轰Facebook:你们的社交已经过时了! iOS设备硬件规格完整汇总 2012 MDCC“2012移动互联网应用创新大赛与开发者面对面”专场:创所未享,携手逐梦! 在vb中如何进行时间比较?例如1 / 7 / 17 10:00:00 - 1 / 7 / 17 00:00:00 得到一个值?? 请问如何获得其他机器的网卡MAC地址?非常感谢!!! 别了,最爱的BCB! 如何判断一个指向窗口的指针可用? 请教高手:怎么样破windows2000的登陆密码?其密文存放在什么地方? 急:哪里有电子文档 找到找到 网络编程、大虾有请!如何获得当前每秒的字节数? 各位高手,有人喜欢用mysql吗?谈谈这个东东吧 大富翁怎么连不上了? 各位武汉的大虾,请教武汉程序员、高级程序员、系统管理员(正规的大公司)、以及用JAVA做开发的工资一般为多少。希望大家给予帮助!!前途问题!! 网络编程大虾有请!如何获得当前每秒的字节数? 怎样在treeview中设置背景图片 to 版主:精华区太乱了,请给予分类。谢了 听说VB可以写PAD的程序,TRUE? JLabel中文本换行问题 马上要开始学BCB,请问BCB有那种类似于VC的创建类的向导吗,看到BCB的界面我就想到DELPHI中创建类的难度 我的游戏引擎BATTLEFIELD作好了,欢迎下载(这次是真的) 一个pop_up menu的问题 那位高手知道在SDK中使用ADO的方法 为普天之下正直而上进的程序员找一个温馨的家 为什么不能把JMF包打进去??? 内存泄露是指例如“为对象分配一个内存区后,未删除内存区,但删除了对象”是吗? 装pws时遇到的麻烦! to freezwy(网络自由人) 有没有限制上传图片大小的asp代码??(不是组件) 还是没有解决!!! 有关VC中数据库绑定的问题! 扔个骨头……下个“圈套”,呵呵? ^_^ 紧急情况!如何改变DataGrid控件中个别行的颜色?? 如果实现断开共享目录的连接 acces 表 SQL语句中如何转换字符型字段为整型? First-chance exception 请教directx的一个入门问题? 诚征MM中…… 多线程问题?? 请问sybase中real类型的最大值是多少?999999999 自杀的N个理由 如何根据日期计算出一年中的第几天? 情况不对,撤丫~~~~~~~~~ 如何在JBuilder4.0编译环境下打包\编译??????? 关于对话框的一个简单问题 如何把几个chm(已编译的 html 文件)文件合成一个chm文件 ado参数问题 请问sevrlet怎么结合HTML模板工作呢?谢谢 我想作一些动态界面,有谁能提供一些有关这方面的资料.小弟有礼了 比较弱的问题 各位大哥:请问哪儿有通过ADO操纵数据库的完整程序下载呀。最好是比较精典一点。谢 写一个php中的include文件,后缀名应该是什么。马上给分 怎么将PHOTOSHOP中分割的图片的结构植入DW4中? send 和 post的区别是什么?谢谢 哪里有《UNIX环境高级编程》这本书下载? 一项工程,甲独做需10天,乙独做需15天,如果两人合作,甲的工作效率就要降低,只能完成原来的4/5,乙只能完成原来的9/10,现在要8天完成这项工程,两人合作天数尽可能少,那么两人要合作多少天?要 某项工程队,甲单独做需a天完成,在甲做c天(c 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这件工作由甲或乙单独完成个需要多少天? 一项工程,甲队单独完成要10天,乙队单独完成需要15天,甲队和乙队的工作效率比是多少 一项工程,甲单独完成需要a 天,甲,乙合作需要b 天完成,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成,共同做了6天后,甲离开,乙继续做了40天完成.如果这件工作由甲或乙单独完成各需多少天?乙单独做需要:1÷(1-1/30×6)×40=50天甲单独做需要:1÷(1/30-1/50) 一项工程甲单独做要10天,乙单独做要15天,如果两人合作,甲的工作效率要降低20%,乙的工作效率要降低10%,现在要8天完成这项任务,两人合作的天数尽可能少,那么两人要合作多少天? 一项工程,甲单独完成需要a天,甲,乙合作需要b天,求乙每天完成多少? 一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,一件工作,甲乙两人合作30天可以完成 ,甲乙两人共同做了6天后,甲离开了 乙继续做了40天完成,如 一项工程,甲单独做需10天,乙独做需15天,如果两人合作,甲的工作效率就要降低,只能完成原来的4/5,乙只能完成原来的9/10,现在要8天完成这项工程,两人合作的天数尽可能少,那么两人合作要多少 一项工程,甲队独坐a天完成,乙队独坐b天完成.两队合作,求完成的天数 一项工程,甲乙合作15天完成.现在有甲队先做四天后,乙队接着做六天,共完成这项工程的7分之20,甲乙独做这项工程各需多少天?要有意思1992/1993的分子减去一个数,分母加上这个数后,分数值是2/3 一项工程由甲乙丙三个工程队单独做,甲队要6天,乙队要7天,丙队要14天,合作一天后还剩几分之几?是1-(6\1+7\1+14\1)嘛~ 一项工程,甲队独做A天完成,乙队独做B天完成.两队合作( ),天数完成 一项工程,甲乙两队合作6天完成,甲队单独做15天完成,现在由甲乙两队合作2天后,调走乙队甲队还需几天可以完成?我要算式和步骤。 甲乙两个工程队合做一件工程,7天能完成,两队先合做5天后甲乙两个工程合作一件事情,7天能完成,两队先合作5天后,甲工程队的全部人员和乙工程队人员的1 /5,调到 0 | 解决时间:2010-8-30 18:31 | 一项工程,甲单独做需A天完成,乙单独做需B天完成,两人合作比甲单独做提前完成的天数为( )A.ab/a+b B.b的平方/a+b C.a的平方/a+b D.a-b/a+b 一项工程,甲乙两队合作6天可以完成,甲队单独做15天可以完成,现在由两队合作2天后,甲队单独做,还需几天才能完成? 一项工程,甲乙两人合做18天完成,甲单独做要30天,现甲乙两人先做六天,再由甲做10天,这件工程还剩几分之几 一工程 甲单独做3天完成,乙单独4天完成,甲队工作效率比乙队大约快( ) A,25% B 、25.1% C,30% D,3.3% 一项工程,甲、乙合做15天完成.现在由甲队先做4天后,乙队接着做6天,共完成这项工程的二十分之七,如果由甲、乙独做,完成这项工程各需几天?详细算式,不要只是一个答案~谢啦,还给追分,今天 一件工程,甲乙合做18天完成,甲单独要30天完成,现在两人合做6天后,再由甲单独做10天,工程还剩几分之几? 某工程甲乙两人合作8天完成,需要费用3520元,若甲单独做6天后,剩下的工程由已来做,已还需12天完成,这这样共需要费用3480元.(1)甲乙两人单独完成此项任务需要多少天?(2)甲乙两人单独完 一项工程甲乙两队合作6天可以完成甲队单独做15天可以完成现在由两队合作3天后调走乙队,甲队还要几天完成? 一件工程甲乙合作8天完成甲单独做30天完成现在甲乙合作4天后再由甲独做10天一共完成这项工程的几分之几?解答并且讲题 一项工程,甲乙两人合作4天后,再由甲独做6天才完成.已知甲比乙每天多完成1/80,则甲乙单独完成各需多少 甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天...甲乙二人共同做一件工作,规定若干天完成,若甲单独完成这件工作比规定天数多12天;若乙单独完成则比 一件工作 甲单独做需要10小时完工,乙单独干需15小时完工,现甲乙合干几小时完工? 一项工程甲独做6天完成,乙独做8天完成,那么甲乙合作一天完成这项工程的几分之几?甲做a天,乙做b天,共完成了这项工程的几分之几? 一项工程,甲,乙两人合作10天可以完成,或甲独做20天可以完成.现甲,乙两人共同做6天后离开,甲离开,由乙单独完成这项工程,乙还需要多少天? 一项工程,甲乙合干10小时完成,家单独干18小时完成,乙单独干1小时能完成这项工程的几分之几? 一项工程,甲、乙合作6天完成.甲单独做11天完成,乙单独做每天完成这项工程的几分之几? 一项工程,甲、乙两人合作4天后,再由甲单独做6天才完成全部任务,已知甲比乙每天多完成这项工程的80分之1,则甲、乙单独完成各需多少天? 一件工作,甲单独完成要10小时,乙单独完成要11小时,甲和乙个做了7小时,甲完成了这件工作的几分之几?乙完成了这件工作的几分之几?哪个做得快些? 一项工程,甲工程队单独做要10天完成,乙工程队单独做6天完成,现甲工程队先做2天,乙工程队再加入合作,完成这A、B两地城际高速铁路预计在2012年5月1日正式运营,按设计要求,两地单程直达 一项工程甲单独做6天完成,乙单独做10天完成,甲独做1天后,甲、乙两人合作,又做了x天完成这项工程的6/5.根据题意列出方程:_________. "每年人均食品支出占人均支出的几分之几?",是人均支出分之人均食品支出吗 甲乙工程队合做,10天可以完成,如果甲队做4天,乙队做6天,共完成这项工程的15分之7,求甲独做要几天?要算术法 某工程,甲独做需20天完成,乙独做需要12天完成,甲乙两人合作6天后,再由乙继续完成,再做几天可以完成全部工程?用一元一次方程做,工程问题问题本人不擅长,有思路更好 ①的三角形的面积是②面积的几分之几,帮忙把式子也列出来,把原因也说说 已知一项工程由甲、乙两工程队单独完成,分别需要6天,10天,如果甲、乙共完成这项工程,且各做了整数天,那么怎样派工才能使完成这项工作的总工期最短?最短工期是几天? 一项工程 甲单独做20天完成 乙独做需30天完成 甲乙合作六天后 乙因事离开 剩下的甲要需几天完成? 数学题给下算式不要分部 70人相当于80人的几分之几 一项工程,甲乙两个工程队合作6天可以完工现在甲先做4天乙又接着做8天正好完工以每天完成这项工程的几分之几分之几?我给少了一个字大家快来回答 做一项工作,甲乙合作20天完成,甲干了6天后乙接着干4天,共完成了全部工程的1/4,甲单独干需要好多天? 修一条路,甲队单独修要15天,乙队单独修要12天,两队合修6天,两队各修完这条路的几分之几? 一项工程,甲单独做要10天完成,乙单独做要15天完成,现在甲乙合作4天,还剩下工程的几分之几 某工程,甲单独施工需要20天完成,乙单独施工需要12天,甲乙二人合作6天后,再由乙 继续完成,乙再做几天可以完成全部工程? 一项工程 甲队单独做6天完成,乙队独做15天完成,两队合作,一天完成这项工程的几分之几? 甲乙两个工程队同修一条路,同时施工,甲每天修a米,乙每天修b米,8天修完,这条公路长多少米? 某项工程,甲单独做需20天完成,乙单独做需12天完成,甲,乙二人合作6天后,再由乙继续完成,乙再做几天?(方程解) 一项工程,甲单独完成要10天,乙单独完成要15天两人各做3天,一共完成这项工程的几分之几 甲工程队单独做40天完成,乙独做30天后,甲乙合作20天完成.将工程分成两部分,甲用A天,乙用B天.A、B均为正整数,A〈15、B〈70.求A、B? 一件工作,甲乙两人合作30天可以完成.共同做了6天后,甲离开了,由乙继续做了40天才完成,如果这件工作由甲或乙单独完成各需要多少天? 一项工程,甲队单独做需要18天,乙独做15天完成,现决定由甲、乙二人共同完成,但中途甲有事请假四天,那么完成任务时甲实际做了多少天?请说说思路,感激! 甲乙两个工程队同修一条公路,他们从两端同时施工.甲每天修a米,乙每天修b米,8天修完,问这条路长多少米问这条路长多少米(要算出准确答案) 一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如果这一件工作,甲、乙两人合作30天可以完成,共同做了6天后,甲离开了,由乙继续做了40天才完成.如 一项工程,甲队独做15天完成.现在甲队单独做啦几天,再由乙对单独做,过共用拉11天完成,那么5天能完成吗 甲,乙两个工程队共同完成A和B两个项目.已知甲从单独完成A项目需3天,单独完成B项目需7天;乙队单独完成A项目需11天,单独完成B项目需9天.如果两队合作用最短的时间完成两个项目,则最后一天 一件工作甲乙两人合作30天可以完成,共同做了6天后甲离开了,由乙继续做了60天才完成,这件工作由甲乙各自这件工作由甲乙各自完成的话,各需多少天?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn