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

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

你的数据库准备好过冬了吗 开源将成为SDN最大的风险! “大姨吗”CEO柴可:女性健康白皮书的发布与“大姨吗”的未来 看中国大学生的移动创意激情 第六届英特尔杯软件创新大赛侧记 在哪里工作更好?Facebook大胜Google WDC超链接图:涵盖35亿网页、1280亿超链接 英特尔:机器已扛不住亚洲的空气污染 IE11中全新增强的F12开发人员工具 TUP第31期报名已满 向主讲人《浪潮之巅》吴军提问征集 对话Spark核心作者Ion Stoica:我的编程之路从2KB内存开始 埃洛普出局?微软董事会称Mulally、Satya有望是下任CEO 百度开源平台上线,聚合百度开源项目 盘点TOP500:值得关注的超算,及当下趋势 【BDTC讲师】Tachyon作者:大数据存储以及处理框架经验分享 进一步称霸中国:低端设备让Android在中国每季获3%增长 低端设备撑起Windows Phone市场份额 研发周报:你的数据库准备好过冬了吗 JVM垃圾收集器使用调查:CMS最受欢迎 技术创业不能一味追求“骨感”,必要时丰富自己的5个途径 帷千动媒副总经理兰旭:整合现在,梳理未来! 11月份浏览器份额:IE继续上涨,Chrome仍不温不火 Windows 8令人担忧:8和8.1两版本份额目前仅有9.3% 一周消息树:微软还需更激进的手段——开放Windows Phone 【开源推荐】Genome.js:当DNA遇到开源 Go 1.2发布 着重语言特性的改进 微软资深IE专家邹颂兵:好产品才是竞争的关键 Web应用程序完全测试指南 Python正在取代R,成为数据科学界新宠 代号Threshold:微软将推Windows统一平台Threshold 日本任天堂掌机应用:《卢浮宫》革了谁的命? [TUP第31期]《浪潮之巅》吴军:硅谷3.0助力中国企业走向国际 关于delphi中Label控件的字体问题?? 请问哪里有ASP+ACCESS 的查询源程序下载? 小弟需要一份详细的数据库设计说明,不知有没有人可以帮忙? 請問銀行系統一般用什麼數據庫! 请大家推荐一个方便好用的网格控件,可以编辑、保存单元格的内容,bug又少的 急死我了,这行SQL语句错在那里呢? ORACLE8I安装问题,急。。。。。。 还是这两本书110分 急救:主板CMOS故障!! 有谁知道在JBuilder中插入一副图片应该用哪个Compoent 加急问题??关于.properties!!在线等, Win2K下控制台程序处于选定状态,如何恢复? 窗口自动关闭 救命啊!严重问题!怎么老是显示E2316:TempSongList::PlayFirstSong()is not a member of 'TempSongList'? 关一个小笨蛋生存的困惑,还请各位GG、JJ一定要帮帮忙呀~~~~ Interface中添加方法的问题,请高手指教!再线讨论!! c#访问FOXPOR数据库问题 WORD求源代码加分之四 怎么样获得一个 EDIT 的 句柄 ?? 请问嵌入网页中的Activex如何调整自身的大小?请各位高手帮忙!谢谢! Oracle和SQLSERVER中5用户10用户到底是什么意思? 我身边的一个PLMM说,她想找一个成熟、幽默、聪明的程序员。 一个局域网内访问odbc数据源的问题 对女孩子不能太热情了! 一个easy 的question 请精通C#与VB.net的大虾帮忙翻译一下 在异地拷贝一个文件(200M以上)到本地,如何做 《C++程序语言》(特别版)怎么样 getContentPane()是什么意思? 高手请进!嵌入网页中的Activex如何获取加载它的浏览器对象?谢谢! i am 24 year old ,but i have nothing 请问哪里有exchange2000 server??? XP,IE 6 SP1,安装JRE 1.4无数次,<APPLET>标签下的东西仍不能看,<OBJECT>可以,为什么??!!求救!! Socket发送接收的问题! c++ builder6的盘 mapx 问题? partition magic 8.0 一个既包含静态图象又包含视频播放的视频,怎样把它抓屏下来??? SOS!!!一个有关全文检索,以及文档的数据库存储的问题,急急!各位大侠出招啊,在线等候 请问如何在程序中将CEdit控件设为只读或取消只读, Java认证问题 请问你们认为哪种操作系统更好用和稳定? 关于mfc dll wizard 做出来的dll 的内存泄漏问题!! vc++与C++Builder有何本质的区别? 能否做个象Media Play的ACTIVEX查件,既有动画窗口,又有按钮??? 高手,关于数据库转换的问题 给分:谁有关于“从网卡取得数据”方面的论文 大家好,有一个关于拔号、专线系统的IP地址问题 SAX的问题 表单传递后,如何判断用户是否填入了内容的? 请教 若CO和CO2中含有相同质量的氧元素,则二者质量之比是 请问谁知道上海阿玛尼手表更换电池的地址? 例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变. 染色体和核糖体的组成成分分别为? 这个阿玛尼手表是多少钱?现在还买的到吗?需要换电池吗?电池怎么买 计算C与H反应生成1MOLC2H2的焓变例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变.C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol-1 ②2 C2H2(g)+5O2(g)=4CO2( 核糖体是由什么成分? 阿玛尼手表换电池价格多少呀?有人换过没? 根据下列反应的焓变,计算C(石墨)与H₂(g)反应生成1 molC₂H₂(g)的焓变.①C(石墨)+ O₂(g)=CO2(g) △H₁=-393.5kJ·mol-1 ②2H₂(g)+ O₂(g)=2 H₂O(l) △H₂=-571.6 解体铅笔笔芯 哪些国家有苹果 梨子及其他水果,需要套袋子的, 苯环侧链氧化,侧链可能去了哪?如题 例如C6H5-CH2CH2CH2CH2CH2CH3 那一个C变-COOH 剩下的 CH2CH2CH2CH2CH3去了哪? 经常胃酸,喝点小苏打水管用吗 在(NH4)2SO4晶体中加入足量的NAOH溶液,加热,充分反应后的气体能被0.1mol/l的盐酸300ML完全吸收.在(NH4)2SO4晶体中加入足量的NAOH溶液,加热,充分反应后的气体能被0.1mol/l的盐酸300ML完全吸收.求(NH4)2SO4 侧链受苯环的影响而易被氧化是什么意思? 下水道疏通 用白醋和小苏打 的原理通俗一些!那为什么 这两个东西除油也特别好? 选词填空(不能重复)改革、改善、改进、改正、改造、改换、改变、改良()生活、()错误、()品种、()世界()体制、()工作、()罪犯、()计划 二氧化锰和与盐酸反应的产物是什么? 在研究氢原子核外电子运动时,科学家运用到的主要方法是什么是统计法吗? 载体是在核糖体上合成?``它是由什么构成?` 除杂题,co2(co)——通入氧气点燃,为什么不对? 鱼头的完整化石不容易形成的原因你错了,完整的化石就是木乃伊,是有肉的,据闻一般是被沙石迅速掩埋死亡,基本隔离了空气 在括号里填上带“风”的词语(不允许重复),然后选词填空( )化雨 ( )习习 ( )凛冽 ( )送爽( )怒号 ( )骤雨 ( )劲草 ( )细雨①:( ) 凉露惊秋.②:塞外常常( ),黄沙遍天,一不小心还有坠入深谷的危险.③ CO和CO2的混合气体18g,通入足量的氧气,点燃反应后测得CO2的总体积11.2L,求原混合气体中CO的质量 下列细胞中核仁较小的是A 胰腺细胞 B 肿瘤细胞 c 神经细胞 D胚胎细胞 核糖体的合成部位有哪些? CuSO4与CuSO4晶体有区别吗 小明去玻璃店买一块长40cm,宽30cm的矩形玻璃,店主划好后,小明想利用玻璃店内的现有工具验证店主所划玻璃是否符合要求,请你帮助小明设计一种验证方案(玻璃店内可选用工具有米尺,直角三 选词填空.填上表示“死”的词语,不能重复.无数战士 ( )在战场上.烈士夏明翰英勇( )前,昂首挺胸,高唱《国际歌》 硫酸铜为什么变成晶体?我需要知道硫酸铜怎么变成晶体的!实验过程我已经知道了,我想知道产生了什么化学或者物理反映!急 去玻璃店买长40cm宽30cm的矩形玻璃.店主划好后小明想利用玻璃店内的现有工具验证店长所花玻璃石佛符合要请你帮小明设计一种方案(可选工具为米尺和直角三角尺)并说明设计依据 H4[Fe(CN)6]是叫六氯合铁(Ⅱ)酸,还是六氯合亚铁(Ⅱ)酸 硫酸铜和硫酸铜晶体有什么区别吗? 小华去玻璃店买一块长为40cm,宽30cm的矩形玻璃,店主划好后,小华想利用玻璃店的现有工具小明去玻璃店买一块长40cm,宽30cm的矩形玻璃,店主划好后,小明想利用玻璃店内的现有工具验证店主所划 二氧化锰与盐酸反应二氧化锰和盐酸制氯气,盐酸的最小浓度是多少?本人计算的答案是4.5mol如果答案选中,另外加给你! 为什么质粒上要有标记基因目的是? 氢氧化镁与氢氧化铝的稳定性大小 一元强酸与一元强碱刚好完全中和时,一定相等的是? A.酸和碱的质量 B.酸和碱的质量分数A.酸和碱的质量 B.酸和碱的质量分数 C.酸和碱的物质的量的浓度 D.氢离子和氢氧根离子的物质的量 质粒中怎么对标记基因进行筛选质粒如果自身进行环化连接同样具有这个标记基因,这该怎么把它区分出来 阿玛尼男士机械手表有没有比较安全可靠的平台呢? 二氧化锰和盐酸怎样反应 质力 玻璃为什么在玻璃烧制中 不能立刻成型 要放一个星期释放质力 这是为什么这个质力要是什么呢 阿玛尼机械手表停机如何开启 DNA具体在哪一时期开始复制? MC我的世界细菌mod怎么使用?什么细菌增生方块之类的,怎么用? 选词填空,急 DNA复制完成后分开的时期为 浓硫酸溅到手上,可以用干抹布擦吗 选词填空谢谢 抗生素抗性标记基因 知道什么是抗生素抗性标记基因? 浓硫酸占到手上能否立即涂上氢氧化钙溶液?如果立即用抹布擦抹布不就变成C了? 核糖体的元素组成是什么? 在基因工程中.标记基因和抗性基因描述的是同一个东西吗? 水厂河中700取水管被沙石堵塞一半怎么疏通 一个晒盐场500g海水可以晒出15g盐.照这样计算100吨海水可以晒出多少吨盐? 核糖体由什么构成? 计算c(石墨)与H2(g)反应生成1molC2H2(g)的焓变C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol-1 ②2 C2H2(g)+5O2(g)=4CO2(g) + 2 H2O(l) △H3=-2599.2kJ·mol-1 ③答:盖斯定律.就是把题目 核仁与什么的合成和什么的形成有关? 核糖体是由什么组成的 根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1mol例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变.C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol- 郑州皇家一号涉黄被查 号称“中原第一遇火灾女孩撬门救人 反被死死拽住拖进湖南三姐弟上学途中遇害 学校:校车司尼日利亚教堂发生踩踏事件 造成至少2美研发新型间谍机 可一小时内到达全球法国两名记者在马里被害 法士兵运送遗穆尔西庭审前夕 埃及发生枪击案致2名华尔街日报竟称钓鱼岛属日本,中国会因奥运冠军孙杨发生交通事故 疑无证驾驶美研发新型间谍机 可一小时内到达全球穆尔西庭审前夕 埃及发生枪击案致2名伊朗最高领袖称美国是微笑的敌人 对核震惊! 镜头揭秘世界各地女人的惊天差叙利亚等国民众观测日偏食天文奇观【高曼德拉生平电影首映 前妻称反映其“苦印度女婴家传怪病 身体多毛酷似狼孩【尼日利亚教堂发生踩踏事件 造成至少2宁波高校增设班级心理委员 为同学送上男童假装落水致救人者瘫痪 愧疚28年苏格兰首席部长访华 推动双方经贸合作德政府代表:日本对东亚紧张局势负有责西安渭南评为优等医生患者健步走乒甲联赛上演“陕西德比”公交车上的安全课大师的童年万能回复医联体走进社区童趣藏品卷笔刀图文:我们是未来组织12家企业3.9亿买公务机我国7月发射量子科学实验卫星乒甲联赛上演“陕西德比”海上丝路起点的艺术表现从寒门到哈佛讲台的路有多远大学老师校园开演唱会陈忠实 二孩政策 成为评价问卷题目李易峰肇事,离开现场属“逃逸”吗图文:母亲抛下两岁幼女跟着跳下长江大信息安全问题 有望永久性解决城管局长家违建打了谁的耳光图文:聚力跨越华丽转身 砥砺奋进跻身
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘