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

用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在这里的作用。
小米海外扩张第一步 红米进军新加坡 Google I/O大会时间已定,Google Glass真的来了? 精英团队PK全能型数据科学家,拼的可不只是数量 专攻移动支付?PayPal将面向全球开放移动SDK CoconutKit:iOS开发必备的开源组件库 个人隐私是如何“泄漏”的:国内外互联网企业隐私策略对比 惠普2014年Q1财报:净利润同比增16% PC业务逆势好转 “阅后即焚”挖谷歌墙角,GAE技术大牛跳槽Snapchat 日800万访客、20万RPS网站的5个9可用性架构 程序员想找好工作?那就学好Linux吧! 一周消息树:开源专家袁萌,国产COS操作系统是“杂种”,不是中国软件梦 移动周报:对话智能硬件云服务平台Yeelink Node.app:用Node.js API开发iOS“原生”应用 Google Project Tango:能3D捕捉的智能手机 成功打造Evernote API生态系统的五大经验 研发周报:Google与Facebook的产品研发之道 AMD高级副总裁Lisa Su访华 宣布引领AMD复兴的五大战略 一周热点:IBM新技术使网速达400G/s,硬盘会“烧掉”吗 特种作战,纽约极客企图建造现实中的“潘多拉星球” 领先Google 150年的数据可视化和“不务正业”的超级计算机 苹果会成为新微软的四大理由 雨血&#183;影之刃:参选2014年Unity游戏及应用大赛 AT&amp;amp;T联手IBM对抗AllSeen:“晚点和堵车”将成历史 微软WP春季更新将降低手机生产成本 意在开拓新兴市场 私人定制,十款最佳Node.js MVC框架 开发者“逆袭”,就等你一票! 基于多路云计算方案焕发新春 浪潮抢发E7 v2服务器 美国人眼中的腾讯 英特尔发布64位凌动处理器Merrifield 布局移动市场 OvershareKit:开源的iOS社交分享工具库 Ruby 2.1.1发布,改进系统加速,服务器兼容等问题 高分求书--1000 请问谁有The Design Patterns (Java Company)的程序代码? 请问有关于uml建模实例分析的好书吗? 我想下载一个好用的Webform TreeView 控件怎么办? 请帮帮忙吧! 处理字符串以修改数据库 我在恢复备份的时候怎么会这样? 关于SQL*Plus——请大虾指点,//bow 用Hashtable class怎么定义表上限? 如何在不想安装MSSQL的仅连接或客户端连接来连连接数服务器?? 问一下连接paradox数据库的问题 闷郁..散分100. 菜鸟请教!!急 今天因为一个已结帖的帖子结识一个好友rocksoft,为了表示庆祝特地散分!请斑竹放行! 闷郁~散分 c++中的friend关键字在c#中有没有什么替代的 请问IMG中的ALT属性的意义和作用 float型的问题(在线等待) 关于AnsiString类别字符串传送至PB8 ☆☆内存泄漏的检测问题★★ i installed an english system, but it doesn't surport chinese input, and many words are displayed incorrectly,how to do with it 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题一? 代理服务器XP上安装了两块网卡,上网如何设置? 请教使用CFile类的一个小问题? 编辑框简单问题 请问那里有RFC下? 查看隐藏文件的选项不见了怎么办? 怎样检查硬盘坏道? 有兴趣的可以看看,测一下自己的水平,我公司的Oracle试题二? 关于数据库访问的问题 资源文件的问题,MYBMP1 IS NOT FOUND 有关WINAMP 的问题? 处理字符串以修改数据库 开机显示the secondry IDE channel no 80 cable …… <input type=file name=pic>如何取值,如何设置初始值???? 么样判断一个客户机是否能够连上服务器上数据库,在线等待 在RAVE中如何加上总页数和当前页数? 有缺邮箱用的吗>?现在有了哦,穷人快来啊。。哈哈,我也是其中一个。 请问一个 应用程序登陆SQl Server 时密码的问题? 菜鸟提问! Outlook Express邮件丢失 非典嚣张的日子里的北京(希望惊起大家对SARS的关注)!!! 问一个简单的概念性问题,分却很多.......还可加哦 一个数据映射错误 关于进程通讯的问题 问一个简单的概念性问题,分却很多.......还可加哦 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 能提供解码器么? 在tdi中,怎样获取封包ip头? 仙客来怎样繁殖 什么物质用来检验物质中是否含有水? 某气雾剂厂铝粉起火后用水灭火,结果发生了爆炸,发生这次爆炸的直接原因是什么?用文字表达方式表达 如何利用猪粪 碱性锌锰电池中负极锌怎么失电子,是因为跟氢氧化钾反应吗? 盐类水解反应应该怎么写.为什么有的只需要一个式子,有的需要两个.举例子. 龙之谷物理剑圣刷图的话主武器用什么最好?我是物理剑圣,想请问下龙之谷里的大哥.同样加10的狮子剑和破坏剑,哪个加的攻击最多,我现在拿的是加10的暗剑,附魔垃圾,是用消亡洗掉再附啊,还 锌银电池的组成是 A.锌充当负极 B.KOH是电解质 C.Ag2O是正极 D.以上都对 英语翻译 猪粪如何二次利用 解释一下大豆油的机械压榨 也就是所谓的物理压榨的问题 喜欢天然绿色食品的看看今天看见一则百度提问 回答者说物理压榨出来的也是毛油 浑浊不能吃还要经过精炼?你见过物理压榨的油 化学盐类水解的实质 自体活细胞是怎么抗衰老的? more香烟杀精吗?我男的,有害处吗.详细点 唯利是图、不择手段用英语怎么说?要名词形式的 英语翻译 More是什么烟呢?.More是什么烟?. 中文是说的什么呢?.价钱多少?. 有图么?多介绍下吧.. 中文葡萄怎么翻译豪萨语感谢了 龙之谷剑圣物理剑圣加点.求最新最实用的物理剑圣~着重于PK 求高手指教.麻烦哪些经常混PK场的指教下. 在自己土地上的养猪场政府拆迁如何赔偿 盐类水解的实质 龙之谷剑圣转转器系剑圣好还是转物理剑圣好?还是双修好?全面一点 癌细胞细胞膜两侧镶嵌的糖蛋白数量比正常的体细胞大量减少,这句话对吗? “我一定要让你做到不择手段”英文怎麽说 培养细胞的类型有几类?有什么特点? 芒果用斯瓦希里语翻译,芒果怎么说帮下我吧 中文荔枝怎么翻译豪萨语感谢了 鸟类饲养可分哪几类 这句话“我的座右铭是,不择手段也要活下来”地道的英文怎么翻译? 不择手段,英语怎么说RT 四羟基合铝酸钠有共价键吗?结构怎么样? 英语翻译要准确的翻译啊.只要这一句话的就可以了,别长篇大论啊! 已知长方形边长为6cm,当边长减小xcm后,周长为ycm,写出y与x的函数解析式及x的取值范围,并画出图象.(要答案和计算过程和图像) 犬类一年内可以繁殖几次 铸件气缸座硬度分布均匀么就是压缩机的气缸座,是连杆曲轴式的. 列式表示问题中y与x的函数关系指出哪些是正比例函数正方形的边长为xcm周长为ycm 枝角类的繁殖方式 气缸的最高频率可以达到多少? 拥护,包围很紧.生活困苦.---带”水”成语或短语 苍蝇是否爱干净 摩托车汽缸头硬度过低会有哪些缺陷 家有妙招奶留在玻璃上怎么去除印迹 谁了解Amway安利? 为达目的不择手段为什么我总是为了自己想要得到的东西可以不惜牺牲一切去得到?如果得不到的话我会崩溃,整天整夜想着那件事.我是个绝对的完美主义者,请问这是强迫症状吗、应该怎么办 怎么洗去玻璃上的印记 四羟基合铝酸钠的性质? 为达目的 不择手段有什么类似的成语! origin多光谱曲线寻峰峰值在origin里面在同一坐标系下的多条曲线怎么同时在曲线上显示他们的峰值坐标?只标注峰值坐标,新手,求大侠指导. 为什么关火的一瞬间水壶冒水蒸气更多?燃气灶烧开水,水壶冒气时表示水开.但为什么关闭燃气的一瞬间,水壶冒的水蒸气却一下子更多?请从科学角度给出合理的解释, amway安利到底可以做吗? “要达到目的,就要不择手段!”英语如何说? 多肉景天树有毒吗 为什么苍蝇爱搓手搓脚的? 是不是为了达到目的,可以不择手段? 被毒死的牛它的肉有没有毒? 核桃油怎么吃 列变量之间的关系不是函数关系的是 A.长方形的宽一定,其长与面积B.正方形的周长与面积C.某人的年龄与体重D.球的体积与球的半径 酯化反应的现象 10题规律题 10题方案设计 要求有一定难度...最好有解答. 盐类水解的实质是什么 英气象局发高级预警称英或迎来十年最大日本一杂志启用胖模特 专为胖女孩设计加拿大婚外情网站欲进驻新加坡遭民众政世界最高人举行婚礼 与妻子相差77厘英媒:《唐顿庄园》走红被中国人抢注商阿富汗总统选举唯一女候选人被取消竞选出口价格上涨难 国内洗涤品出口单价跌阿根廷举行中期选举 执政党保持在参众乌克兰女权人士在法国民阵线领导人面前美国网络销售辱华面具与服饰 迎接万圣人民币屡创新高 留学迎来最划算时代?外媒分析耶伦若就任美联储下任主席 面法国央行行长:金融交易税构成巨大风险印度拟射火星探测器 欲争亚洲第一被批马来西亚副首相为选举造势 出席者可获法国数百活动人员斗牛场前集结 抗议斗阿根廷执政联盟赢得议会中期选举数据显示中国赴美名校留学生每4人就有印度连环爆炸案已致6人死亡 反对党指因监听事件遭指责 德情报部门计划加强智能手机横行 日本偷拍案件五年翻一番四川通威8.7亿接盘合肥赛维郭金龙:贾立群引发人生道路思考军民联手建防汛转移避难所京东方超级屏创世界纪录皖农产品加工值达3394亿利比亚外交部办公楼遭炸弹袭击百度贴吧“瘫痪”中国经济发展奇迹进入“第二季”鲜菜拉低北京CPI涨幅香港舞团献艺展现书法之美PPW荣邀为蓝精灵在中国独家授权代理双节期间大客流地铁站或封站残疾毕业生可获实习补贴苹果对中国市场是重视还是轻视?东五环批发市场频现“缺斤少两”从货架式销售转向社交商务舞剧《孔雀》再回京城广州女官员出国不归被辞退续:据称有涉Angelababy为美吃苦头嫦娥三号今将离开北京奔赴西昌发射场 张琳 成绩不行时没人信任你
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘