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

快速读取 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 的声明:

Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
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)

注:如果以上的声明放在「一般模块」底下, 应在 Const 之前加上 Public 保留
字, 并且将 Private 保留字去掉。

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 起算。

设计师专宠,Startup强大的UI设计框架 走进金山云:从技术走向服务 Qt Creator 3.1.0发布,全面支持iOS、Android、WP Google大中华区总裁石博盟与中国大学生畅谈科技与创新 阿里云:从防到攻,深入浅出DDoS 大数据处理分析的六大最好工具 微软:Windows Phone开发者可回复用户评价 不断缩水后的微博上市首日大涨19% 曾一度涨超40% Snapdragon LLVM编译器全新升级 支持骁龙64位处理器 EDP:基于Node.JS与NPM的企业级开发平台 想改变世界,先改变自己——知名Hacker、发明家Mitch Altman专访 《近匠》iHealth,健康大数据助力硬件“破壳” 一周消息树:如何做到每天写代码? 一周热点:微软SQL Server 2014三大新特性 《Make》创始人Dale Dougherty:全民创客 DevOps正在扼杀程序员? 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特性 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 怎样让程序只运行一次? 多项式除以多项式的法则,如:(2a^2*b^2+3ab^3)/(4a^2*b^5+2ab) 只含字母y的多项式最多有几项 谁帮我写一段程序啊!用JS求1-100之间的偶数之和的、、 正数的相反数是负数,这句话用符号表示是?急!在线等! 0.5是有几个千分之一组成的 程序填空:求100~200之间的偶数之和(存放在S中)的程序CLEARS=________X=100DO WHILE _________IF ___________________ENDIF X=_________ENDDO明天就考试了! 相反数用什么符号表示 已知A有12个约数,9A有24个约数,15A有36个约数,5A有几个约数 如图,一个梯形的面积是4/3平方米,阴影部分的面积是多少平方米上底5米下底8米的梯形 相反数怎么用符号表示总不会让我写字- -bu shi你们理解错了,比如:7的相反数是-7,,我知道是负号 已知A有12个约数,9A有24个约数,15A有36个约数今天我要交作业的!少写了,问A是几。 梯形的面积是25平方米 其他条件如图所示(上底是4米、下底是6米)求阴影部分的面积.一只三角形的底是6米 高未知 三角形的高就是梯形的高 想办法求出梯形的高 下列说法正确的是( )A.一个数的相反数是负数或0 B.符号不同的两个数互为相反数 C.非负数的相反数是非正数. D.相反数等于本身的数不止数0一个 只含有字母y的五次多项式合并后最多有 项,最少有 项 问:只含字母x的五次多项式,最多有()项,最少有()项. 下列说法哪个正确1符号不同的俩个数互为相反数2整数的相反数是分数3非负数的相反数是非正数.还有一个4一个数的相反数一定是负数 试至少写两个只含有字母x、y的多项式,且满足下列条件:(1)六次三项式;(2)每一项的系数均为1或-1;(3)不含常数项;(4)每一项必须同时含字母x、y,但不能含有其他字母. 四级要怎么提高这次四级我听力147 阅读160 综合39 写作63 总分409,差一点点!我知道写作很差 那要怎么重点复习翻译和作文呢?作文是不是字迹也很重要?听力也不是很好,请帮我综合分析下我要 多项式乘多项式法则 如图阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 关于英语四级,请看一下如何才能在提高听力142 阅读127 综合38 写作98总分405 这是2013年6月份的成绩,下半年的题型还会改,请帮忙参谋参谋,我想下半年就过了.我想了解那部分应该重点加强以及 多项式乘多项式法则的字母表达式 在首地址为DATA的字数组中,存放了100H个16位补码数,试编写一程序,求出它们的平均数,放在AX寄存器中,并求出数组中有多少个数小于此平均值勤,将结果放在BX寄存器中 0--100之间的偶数之和是多少? 请问该如何设置windows的货币符号和数字格式? 为什么每段开头都要有mov ax,data mov ds,ax两句,不是有assume定义过段了吗可能是我表述得不够清晰,希望有善解人意的哥哥姐姐详细帮我解答下. 0到100的实数中有哪些是偶数0到100中那些事偶数=】请教 在excel表中怎样将数据设置为货币格式,货币符号,小数点后位为1 1.测试AX寄存器中数据的符号位 2.将16位立即数2040H与地址为DATA存储单元中的数比较 如图,已知阴影部分的面积是73.6平方分米.求梯形的面积.梯形是直角梯形,上底3.2分米,上底右边的边是直角边,边长未知,左边边长未知,下底6.8分米,梯形内花了一条从左上角向右下角直线,先下 1.一个由8个十,3个十分之一,8个千分之一组成,这个数写作( ) 1.游泳馆向一个长50米、宽25米、深1.6米的空游泳池里注水.经过0.6小时水深达0.2米,这样的话,几小时能把游泳池注满?(用比例知 一个数由5个十、3个一、7个千分之一组成的,这个数读作(),把它精确到十分位是() 如图,阴影部分的面积是是6平方分米,求梯形的面积. 一个数是由10个一,5个十分之一和3个千分之一组成的,这个数写作( ),读作( )保留一位小数是( ),保留两位小数是( ). 一个关于字母x和y的多项式,除常项式外,其余各项的次数是2,这个多项式最多有几项?都是三呢?分别写出一 梯形的面积是45平方分米,高6分米.求图中阴影部分的面积. 10个一.4个十分之一,8个千分之一组成的数写作(),精确到百分位约是() 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个若ab满足la+bl+(b-1)的平方=0,求你写出的多项式的值 下面程序计算100以内正偶数之和,错在哪里?main(){int sum,i;for(i=100;i>=0;i--);if(i%2==00sum+=i;else sum=0;printf("和为:%d\n",sum);} 图中阴影部分的面积是48平方米,梯形的面积是多少平方米? 一个关于字母a,b的多项式,每项的次数都是3,这个多项式最多有几项?试写出一个符合要求的多项式. 那个英语四级阅读你是怎么提高的? X和Y皆为8位无符号二进制数,分别存在外部RAM的2000H和2001H 单元中,编写一能完成如下操作并把操作结果(设Z 一个关于字母X,Y,的多项式,每项的次数都是3.这个多项式最多有几项?写一个符合条件的多项式. 关于多项式恒等定理f(x) g(x)究竟表示什么~还有~x前面的系数究竟取什么啊~没有要求随便取得嚒~不好意思我初中的~没学过这个东西~、 片外RAM区从1000H单元开始存有100个单元字节无符号数,找出最大值并存入1100H单元 504有多少个约数? 关于多项式定理求[xk+x(k-1)+x(k-2)...+x2+x1]n的展开式其中xk为X的K次幂,依次类推 还有最好能对上面的公式做一下解释 (2/2),从20H单元开始有一无符号数据块,其长度在20H单元中,求出数据块中最大值,并存入21H单元 已知一个关于字母a,b的多项式,每项次数都是3,这个多项式最多有几项,试写出一个符合要求的多项式,若a,b 因式定理和余数定理是什么请用初中知识解决,详细一点拜托 一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包一个数是由5个十,6个十分之一25个千分之一组成的这个数写成小数是( ),计数单位是( ),包含( )个这样的 504中有几个约数,其中有多少个是3的倍数急急急快开开开 多项式的恒等定理指的是什么最好有来源 面积为30平方米的大正方形的四个角都是面积为3平方米的小正方形,用计算器求阴影部分的正方形边长 编一程序:比较两个无符号数的大小.把大数存入MAX单元不是C语言,是汇编语言的。麻烦再看看帮忙 求5544有多少个不同的约数?这些约数的和是多少? 多项式除以多项式的法则 如图,阴影部分的面积是96平方米,那么梯形的面积是多少平方米? 三个连续偶数的和在100到200之间,这样的连续偶数有几组
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn