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

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

VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 捕捉屏幕图象 -VB资料 放置“透明”的图片-VB资料 分割图像的方法-VB资料 如何将整个画面暗下来,如同关机前一般-VB资料 VB获取桌面图象 简单介绍透明位图的实现方法 -VB资料 将图片「非重叠显示」填满整个表格视窗 -VB资料 将英文字母及阿拉伯数字旋转任意角度 -VB资料 将真彩色图像变为256色灰度(BIG5码):-VB资料 VB利用Image控件实现图形浏览程序 利用VB捕捉并保存屏幕图象 切割一个Container中的图片 -VB资料 VB如何改变桌面的图片? VB如何实现“百叶窗”的图形特效? VB如何实现霓虹灯效果 VB如何在VB中用API获得EXE文件图标并显示在Picture控件里 VB如何在VB中直接显示无格式256灰度级图像 VB如何在窗体中平铺图片? 三维字的实现 -VB资料 闪动窗口标题 -VB资料 闪烁的标题栏 -VB资料 实现画面的各种切换方法-VB资料 分啊 程序发布 dephi中用哪个函数可以解决两个日期的差,要求精确到分钟! 谁知道ipvod的透屏技术? 怎么从没有信任关系的网域的机器B上copy文件?有一个可以访问B的账号和密码. jsp中如何实现树状结构? applet 与servlet的通讯 请大虾们进来看看 请问大家如果使用了两个session会有什么影响吗?? 中国古典四大名著教给我们什么? 在iis中,如果需要让访问每个主页的用户都看到一个主页通知,该怎么做?就好象是做一条广告一样 怎么开始学习JAVA,没有c++的基础,很困惑 请教专家高手有什么好建议,谢谢 wingsun,bcb等大虾帮小弟看看这个"参数错误"的问题.谢谢 如何理解连接身份 如何用TURBO C编背景音乐? 我用exec() 来执行notepad.exe , 用它来打开我想要的文本 , 可是并没有得到notepad.exe执行。 你是想找一个爱你的人还是会找一个你爱的人? VC++中如何列出SQL_SERVER服务器?急救!!! 发展方向的问题??? 急救!!在线等待!!关于XmlHttp!! 关于wsad的使用上哪个论坛比较好,请大家推荐 关于Windows CE下面的密码验证 关于Visio2002版的安装问题 搞不定了:为啥我的EnumWindowsProc会引起outlook提示?附源码 给中国足球的一点建议,如果照着这条路走,20年后中国队还可以闯进世界杯 急急急!!关于打印问题!!!!!!!! 有谁在WIN2000P+ORACLE805安装了PROC? 寻找北京地区的兼职项目. 谁知道VB MSDN在哪里有下载,我给分! 关于Visual C++的编译器手册。 在一个程序中如何控制Ftp的执行??(急,用windows API实现,不是MFC) vb.net安装和vb6冲突么? 关于JDialog的问题! 各位帮帮忙,怎样读写一个二进制文件?急!!!!!!!(答对了给高分) 有些什么好的中程书籍??? 如何动态的切换数据窗口呢? 各位任兄,谁知道如何对jsp文件加密,就像php那样 为什么自定义过程,出错。说[Error] Unit2.pas(29): Undeclared identifier: 'NMFTP1'unit Unit2; 浏览器插件讨论 问一个Linux下安装软件的问题,太弱了别笑!!!! 急急急:如何让dbgrid控件实现排序功能,,100分 新手问题~~帮帮我啊~~ 我做共享软件的一点经验,希望能抛砖引玉 在iis的服务器上需要安装什么客户端软件才能使asp联接到oracle数据库服务器上? 怎样在vb中控制EXCEL打印报表 如何判断多选框是否选中? 关于 SQL2K 和 XML(在线等待) KingSunSha(弱水三千),能不能再帮小弟一个忙?这个触发器好奇怪??? 正在开发一工资软件,有经验者能否提供参考。 急!!!我的VB中的部件对话框显示不出部件了,还有一个系统错误消息。请问是什么原因,如何解决? 关于生物醇油, 含有乐器的诗句 吃动物内脏好吗? 浓氨水和二氧化硫反应生成什么? 用高锰酸钾浸泡过脚,指甲变了紫色.要怎么可以去掉这些颜色? 动物内脏怎么做 请问这是什么蛙?红色的,是否有毒?小孩子捉到的, 请朋友指导一下现在市场上哪家生物醇油好呢?听说油的好坏是由配方决定的. 这是什么动物的内脏? 氨水和so2反应说明冷热不同时反应方程式不同的原理说清冷热的区别啊!!!!臣妾不用您区分量的区别啊!!!!嘤嘤嘤…… 米人么?臣妾要哭了啊!!! 含有乐器名称的诗句 两句 二氧化硫和浓氨水反应的化学方程式.有分少量过量吗 能燃烧的无机液体物质是什么?有没有这样的物质? 土壤营养元素增加为什么植物多样性反而减少?很迷惑,请专家说说, 从哲学上阐述怎样构建社会主义和谐社会跪求答案 装配直流电动机模型 改变磁感线方向,线圈转动方向____1.若电流从A到B,左边是N极,右边是S极,此时线圈转动方向为?2.若电流从A到B,左边是S极,右边是N极,此时线圈转动方向为?(逆时针或顺时针) 有谁知道液体发动机中物质的燃烧速率单位(kg/s)有谁知道液体火箭发动机中物质的燃烧速率单位(kg/s)? 谈谈和谐社会的哲学基础 怎么写社会调查 燃放烟花爆竹的危害 有刺激性气味的污染性气体是 下表表示A到E五种物质的转换关系若将它们灼烧火焰都呈黄色,A能与水剧烈反应 ,C常用作潜水艇中氧气的来源若将它们灼烧火焰都呈黄色,A能与水剧烈反应 ,C常用作潜水艇中氧气的来源,试推测 尊重客观规律与发挥主观能动性的关系 拼图地垫有毒吗?能给孩子用吗?听着好怕怕 关于“建立社会主义和谐社会”的哲学思考.一定要和哲学方面的理论相关,要有联系. 尊重客观规律与发挥主观能动性是_______统一的关系. 什么叫静电容量范围?什么叫静电容量允许差? 什么是构建社会主义和谐社会的哲学依据 冷氨水中与过量二氧化硫反应方程式 内燃机做功冲程中,气缸内气体是否做等压变化? 人教版八年级上册数学概念 2、一台规定必须使用85号汽油的内燃机现因某种原因改用70号汽油,该内燃机运行过程中将出现什么现象?原因何在?为保证该内燃机能正常工作,该机在结构上该作如何改装?为什么? 有没有描写乐器的古诗? 关于乐器的词语 老师好,负电荷沿电场线方向是静电力做正功,为什么电势还减小 含乐器的诗句 铝钝化后与稀硝酸反应吗 铝钝化后与稀硝酸、稀盐酸、稀硫酸反应吗是不是反应后钝化特性就消失了 氧化膜没了?铁同问 电场中某点的电势,其大小等于单位正电荷从该店移动到零电势点时,静电力所做的功这句话对吗? 含有乐器的古诗句上下两句为一个 要有作者,出处 铝单质会不会和稀硝酸反应钝化?为什么?为什么和浓硝酸它们会钝化? 在静电力的作用下,正电荷一定向电势降低的方向运动 睡在泡沫拼图地板上会对身体有害吗? 构建社会主义和谐社会有何重要理论意义和现实意义论文形式 ⑴A、B哪点的电势比较高?负电荷在哪点的电势能比较大?⑵负电荷由B移动到A时,静电力做正功还是做负功?⑴A、B哪点的电势比较高?负电荷在哪点的电势能比较大?⑵负电荷由B移动到A时,静电力 为什么苯和高锰酸钾反应 苯层无色 高锰酸钾层紫色?而苯和溴反应 苯层紫色 溴水层无色? 构建社会主义和谐社会的重要理论意义和现实意义是什么? 氨水的化学式,氨水与SO2反映方程式, 泡沫拼图有毒吗 大力发展生产力对构建和谐社会的重要性和必要性是什么?老师上课讲,重要性就是谁对谁?必要性就是谁对谁?这点上课没听清楚老师还提到答得时候有句式,如有利于,有利于有利于是对重要性 在作题的时候,有一个选项:作硝酸钾结晶实验,结晶析出时,冷却温度越低,所得晶体的量越多,请问这个叙述哪里有错误呢? 哪里能学到生物醇油技术啊? 有人认为“构建和谐社会”与“以经济建设为中心”是互相矛盾的.你认为这种说法正确吗?请说出你的理由. 实验室有一瓶刚从溶液中结晶出来的盐,现在只提供盐酸和中学化学实验常用仪器,如何判断这瓶盐是碳酸氢钠晶体,而不是碳酸氢氨或硫酸钠晶体?理由. 什么是生物醇油技术?哪里可以学到? 土壤能为植物的生长提供哪些条件 化学实验中冷却结晶的操作,结晶后是不是一点水都没了具体说一下结晶操作的原理 生物醇油是什么做的?哪里有做的? 土壤能为植物生长提供那些条件 塑料拼图玩具对儿童是否有害? 含乐器名称的诗句 动物内脏有哪些
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘