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

用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在这里的作用。
OpenStack新版本:新增近350个功能,修复Bug超2900个 【走近讲师】易欢欢:数据对接和后台是互联网金融的技术最难点 最火HTML5 JavaScript游戏引擎:国外篇(二) 挑战最强大脑——来自全球的14个编码社区 摩尔定律让位于贝索斯定律 InPaaS:新一代云计算应用平台 【技术博客推荐】樊哲谈机器学习算法与Mahout Scala 2.11.0发布 仅支持Java 8部分功能 诺基亚彻底“卖身” 变“微软移动” 10款高效简化移动开发过程的工具 《近匠》AppCan:打造成云生态的移动PaaS平台 WhatsApp壮举:活跃用户超五亿、日7亿幅照片和1亿个视频 如期而至,GCC 4.9.0正式版发布! 【走近讲师】孙昌勋:容联云通讯构筑通讯能力云平台生态圈 最新版本的Hive 0.13发布,增加ACID特性 开发中的“软”与“硬”:高画质移动游戏开发之道 从国际编码竞赛来看编程语言受众度 AMD迎接变革:加速OpenCL的未来 角逐Hadoop市场,Cloudera与Hortonworks竞争白热化 OpenStack将提供对Docker的支持 Facebook Q1财报:营收25.02亿美元、59%来自于移动 黑客们盯上了卫星,IOActive的惊人发现 开发汽车应用之前,你必须了解的7件事 埃森哲:智能电视潮流,势不可挡 直接拿来用!Facebook移动开源项目大合集 高大上Hadoop技术培训:Hadoop在企业中的应用实战 【走近讲师】新浪丛磊:通过MAE构建企业内部私有PaaS平台 API增长新趋势 消息应用类独占鳌头 软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” listview排序的,过来看看。。 有一获国家专利的中文输入法软件急于开发 帮忙解释一下implementation什么意思,有什么作用. A Question about ActiveForm and TabStop. 用于从INI文件中读字串的函数是什么?请示高手! 清問:Datareport實現不了的功能如何實現?清大蝦指教,謝謝! 检测下拉列表中批配项,有则选中 为什么DBGRID显示一片空白,记录应该取到了。代码如下: 谁有免费出国代理,急用。如果能有,马上给分 关于学习.net与j2ee的抉择问题,欢迎各位大侠热烈讨论!!! 求PHP代码,功能是:判断字符是否全部为汉字? 又是MSFlexgrid的问题!!!请大家帮忙~! ActiveX访问数据库的问题? REDHAT LINUX 7.2下如何建立多个用户?多谢指点! 关于网线!高分!!!!! 关于生成文件的方法? 课程表开发 请问各位前辈,是否只有新增加的字段才有可能成为计算字段?谢谢! 俺要写一个简单的文本的报文,string类型的 关于生成文件的方法?..... 有谁能告诉一下我CVS和SSF是什么?,具体是指些什么?? WIN2K 的问题:1、怎么允许本地普通用户(user)关机;2、怎么能让本地普通用户开机后,客户机连接到SQL SERVER?3、为什么我的SQL量SERVER2K需要停止然后再启动客户才能用? 如何用VB把存储在ORACLE库中的图片字段取出成.JPG格式的图片文件????急在外出差呀多谢了~~~~~ 如何退出函数?exit function??? 测试2000的TCP/IP是否通,用什么命令 求助开发课程表提示 (*****向斑竹你提个小见意,大家最好都来看看,这个想法好不好!****) 为什么我做的增加功能有两个必须要按两次“添加”按钮才能新增一条记录啊? 很急,请教高手,如何把一个ip格式的字符串转换成ip类型,不是用getbyname(),而是像int和string转换一样的概念 请问如何让基于对话框的工具条一开始就浮在上面 来者有分,关于ado的 毛子青论文<<动态规划的优化>>,一个最长子序列的算法,请高手看过来(给出c实现代码的送20分!) 在鼠标单击时间中,可以使用什么函数取得鼠标点击处的坐标值 怎样在单击左键时弹出PopupMenu? 连续20多天加班,近来明显感到体力透支,做个调查!!!(有分) ASP调用VB编写的ActiveX DLL的问题 请教一sql语句 在Unix下用cc(实际上是cc_bundled文件)编译c程序时,报错“const" will become a keyword,或者告诉我“Function prototypes are an ANSI feature" 为何加入winsock2.h后会出现很多问题? 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分 you shen me qu bie ? please tell me , xie xie ! [■■■Delphi猛料■■■]V1.3发布~~~~~~~更新到2001.12.12 提问:如何在ToolBar上加控件? 我在OLE里调用了word2000文档,为什么只显示第一页,我查了半天资料都没有解决,请帮我 哪里有多媒体软件制作论文啊? 继续请教各位前辈:能否将非新增加的字段定义成计算字段?谢谢! 软件创意、需求大汇集:列创意,拿专家分,120分值大赠送(以后可继续追加) 局渔网 巨简单问题~~~ 进来有分,回答多分,不够再加!!! 关于关闭和启动数据库的问题,很急的!! java VS c#^-^ ?? 请进 地中海和红海内部的洋流方向是怎样的?我想知道的是他们各自内部情况…… 为何往结冰的公路上撒盐? 海水结冰解冻后,会不会变成淡水?我在书上看见的,它说会.如果真的会,请简述下原因,不须长篇大论,对不起,说错了我说的是冰冻一些海水,再拿去其他地方解冻. 初二水的浮力一共两道题需要问下,希望大家不仅可以给我标准的答案,更重要的是最好能给我讲解一下.1、一个鸡蛋沉在水中,往水中倒入一些浓盐水后,使鸡蛋浮在水中,鸡蛋所受的浮力讲_____ 为何清除道路冰冻积雪时要撒盐 温度计的测量范围是多少到多少? 表层海水被吹走,其他海区海水从底部进行补充,那么此刻海区表层海水盐度是大了小了? 大家都知道压强越抵,水的沸点越低.那如果把水放进太空那种真空环境 ,它的沸点是多少呢?又是以什么方式沸腾呢? 为什么海水结冰后,再融化可以变为淡水(如,北极冰山) 上升流为什么会使印度洋西部海域表层海水盐度下降? 求压强与水的沸点的关系式. 海水和淡水结冰有什么区别 电子.光.会不会热胀冷缩?物体是由分子组成分子和原子组成,原子是由原子核和电子组成,物体能热胀冷缩,应该电子和原子核也能热胀冷缩,那光呢? 冬天为什么在道路上撒盐能让冰融化说说具体原理和知识, 海水与淡水的结冰温度相同吗? 真空度与水的沸点的关系表 为什么冰撒了盐后会溶化的更快? 海水冰冻后的冰块是淡水海水如果结成冰块,那这个冰块是不是可以食用,不会像海水那样水的来源爱斯基摩人的饮用水是十分珍贵的.他们需要到冰山上去取回冰来融化,才有水用.因为北冰洋 真空度与水的沸点的关系是直线关系还是曲线关系啊,化学实验要作图,做出来的数据描点后似曲线又非曲线,很纠结啊.如果能给条公式就更好了. 真空中水的沸点是级°C?rt 实验室蒸馏水装置温度计的作用是什么? 谁能提供水在不同真空度下的沸点? 冰冻的路面为什么要撒盐?目的是什么? 寒暑表的用途是什么 真空度为-0.08MPa时,乙醇的沸点是多少? 在结冰的道路上撒盐是为了降低冰的什么拜托了各位 一种青铜器重达832.84千克 高达133厘米 铜 锡 铅的比大约是85比12比3 而铜 锡 铅各是多少 请问在什么情况下水的沸点会降低 蜡烛和猪油凝固时是向下凹还是向上凸 为什么要用铜与锡合金制成青铜器物? 水的浮力题物体在空气中称时重29.4牛,把它浸没在水中是重9.8牛求物体所受的浮力,物体的体积,物体的密度 通常情况下水的沸点,凝固点: 为什么要向结冰的公路撒盐? 为何同温同压下相同体积任何气体物质的量同 什么情况下水的沸点会低于100摄氏度有两个为什么水的沸点不是100摄氏度、、一个是外界大气压小于一标准大气压、、还有一个不知道、、各位人士,,帮忙啊~~~ 人们往冰冻的路面上撒盐,这是为什么 水的浮力的题目潜水员从浅水潜入深水,以下分析体验体验过程正确的是( )A.脚越来越疼,是因为水底对人的支持力越来越大B.脚越来夜疼,因为人受到的重力越来越大C.脚不疼,因为人越来越 一般情况下水的沸点能到达100摄氏度吗 小明同学点燃一支蜡烛,不小心蜡油溅到了手上,他啊的一声,发现蜡油在手上凝固,可手上却烫起了泡.请说明小明手上起泡的原因. 阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气体是同种,还是可以是两...阿伏伽德罗定理的推论中有同温同压下,气体的体积之比等于物质的量之比.这个气 物质的热胀冷缩与分子有什么关系 蜡烛和蜡油有什么区别?蜡油能当蜡烛用么? 谁有关于水的浮力的题目的?(简单点) 气体热胀冷缩如何用分子的运动来解释? 点燃的蜡烛,蜡油会一滴滴地滴下来,这是蜡的什么过程;冷却后,蜡油又变成了蜡块,这是蜡油的什么过程.我是初2的学生,在物理上遇到有不懂的问题, 1mol Na,1mol Na+和1mol OH-所含电子的物质的量分别为多少 热胀冷缩是分子变大?分子会变大吗?还是别的什么? 水银温度计测量范围实验室里的水银温度计最大测量范围标记的是300℃,每小格代表温度2℃,但在80℃到300℃之间就省略了每小格2℃的标记,也就是说从80到300之间只有10小格的间隔,这是为什么? 有木球,铁球,铜球,他们在水中静止情况为:木球漂浮,铁球悬浮,铜球下沉,球一定是空心的. 为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验设计:为什么冬天在路面上撒盐就能使融化了的冰雪不在结冰的实验 一种铜,锡合金有质量78%的铜.余下的为锡,问这种合金的密度是多少? 同温同压下,物质的量之比等于体积比等于浓度比还等于什么比,是质量还是摩尔质量同温同压,密度比等于质量比还是摩尔质量比 寒冷的冬天.雨雪天气的道路上往往会结冰.在道路上撒些盐能加快冰的溶化.说明其中的道理. 一块合金体,质量为m,体积为v.已知金的密度为P1,铜的密度为p2,求该合金体的含金量?含铜量?(表达式). 初二水的浮力计算题某金属球在空气中重20牛,将它浸没在水中时称得重为17牛,求:这个金属球的体积是多少? 为什么冬天要在马路上撒盐来加快冰的溶解? 温度计的测量范围是 最后一问为什么收集到沸点较低的馏分是甲醇 为什么温度高时,物体的分子之间的空隙会胀大 温度计的测量范围寒暑表、水银温度计、气温计的一般量程,最大及最小刻度.不要最高限度,一般用的就可以了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn