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

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

TortoiseSVN的基本操作 再见,Fireworks! 投资者告诉诺基亚CEO:他们快没耐心了 直接拿来用!最火的Android开源项目(二) 营收奇迹:三消游戏Candy Crush Saga成功启示录 马化腾对话李连杰:移动互联网的能量有多大? UC与趋势科技携手,移动浏览器加固安全 乐视发布超级电视X60 售价6999元 巨头们抢滩或已结束?EMC掀起首场SDN登录战 CloudStack创始人梁胜:让中国软件走向世界 ArduinoDroid:让你在Android设备上开发Arduino 码农们的机器人:LEGO MindStorms EV3 详解 JavaScript 中的 this 对话PaaS平台dotCloud布道师:“轻量级”与“重量级”虚拟化 微软:谷歌企业生产力软件依然不行 IT旅途——程序员面试经验分享 17岁女高中生赢得编程马拉松大赛冠军 雅虎宣布开发新的搜索工具 创新用户界面 前谷歌高管给初入职场新人的14条忠告 业界良心 Facebook下一步将开源交换机 Google Glass:未上市先遇阻 TIOBE 2013年5月编程语言排行榜:Objective-C再度反超C++ 开发者需知的10类工具 林仕鼎:架构设计与架构师 跨平台工具火拼:Icenium与PhoneGap Build谁属王者? 索尼终于想明白了:PlayStation生态走向开放 高达10亿美元,Facebook为什么要收购Waze? Cocos2D-X成全球第二大游戏引擎 仅次于Unity 亲爱的苹果,能不能别让应用太廉价? 陈晓影:一位女海归曲折的拓荒故事 IDG李丰:在中国,创业公司最好是一个One Man Company 关于MYSQL的问题 数据库高手请进,值得一看 怎么从文本文件里取出其内容? 请大家帮忙看一下,关于Delphi的三层MIS开发 如何获得经典的C++/MFC方面的电子文档,中英都行,谢谢! 压缩中提到的文件头有什么作用 , 请问各位专家,在网页上如何制作视频点播?有几种方式! 我报了中程谁有历年的中程试卷? 我收到的信都是?号,怎么看???? VB中是否有移位操作符??是否有_能够得到数据类型宽度的函数? 哪里有core java的e版down啊? 有事好商量!请进! DLL编程错误,请高手指教一下!! 活见鬼,真气人....... 问一个trigger问题? 问一下:我的char*都用_T("asdfsafd")表示了,资源也没任何问题,可有时候运行程序显示乱码 在论坛里,发一个帖子新开一个窗口,当发完后让原来那个窗口刷新一下 我的机子到底怎么回事???? 我试试.. CListCtrl中如何选定整个一行? 来到济南天气太热,特来送分 ★★★★★ 见于现在伪ID和盗用密码的现象十分嚣张,我提议…… ★★★★★ 请教各位,我用vb6.0访问ms sql7.0数据库,为什么有时出现,“过期,数据已超时?” 请问COM和DLL有什么区别和联系?(30分) 关于侯老师 win95-a-developers-guide 一书的源配书... ISAPI中不能存取ASP中的Session、Application变量?高手你老人家在哪里? 大家来看看这些招聘题目合不合适 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一 activeskin里的skinbuilder有谁用过???来讨论吧 我在msdn上看到vb中的字符串有两种:定长字符串和变长字符串。请问如何分别声明这两种类型? 怎样在ADO中引用已打开的recordset的某一字段值,请给几个例,谢谢了! seedundersnow and holyfire help me!about 8253! 谁有cute ftp 4.2.6 beta的注册码 请问如何把页面查询到的记录导入到Excel中呢? 有用过TAdvStringGrid的吗?OnGetEditorType( )为何不被调用? 请教高手如何用Xsl编制函数控制Xml??急急 哪位给一个MD5的例子!谢谢了 长春的李延生来领分 求救:一个VC中多线程的问题 提个问题,原来对VC尤其是界面和C++语法这一块比较熟,现在由于公司需要转C++BUILDER,难不难,需要熟悉哪些 [总300分,会继续加分]哪位大哥用编程实现过创建SQL Server的DTS package并且run the package的全过程[急] 能不能使用html 压缩中提到的文件头有什么作用 , 保含哪些信息 菜鸟问题1 提一个网页制作的问题哈,大家不要扔西红市啊,网叶制作可是程序员的基本技能之一。。。。。。。 关于:import java.util.StringTokenizer; 问题! 如何实现在某特定时间(如每月1号,或7天后)执行特定asp程序? 在开发工具中如:(vc,jsp)中如何得到oracle中自定义函数的返回值 当form被移动的时候会相应什么事件的? 关于使用mscomm32.ocx中的一些问题 类似股票信息显示系统的问题(图形显示) 一个圆柱形蓄水池底直径是10米,池深1米这个蓄水池的容积是多少立方米 简便计算:0.75x16+3/4x5一75% 2.7x0.6+4/5x2.7-2.7x2/简便计算:0.75x16+3/4x5一75% 2.7x0.6+4/5x2.7-2.7x2/5 95x38+62÷1/95 {5/6-(2/5+1/3)}x5/7分数啊.急 一个圆柱形蓄水池,底面直径是10米,池深5米.这个水池的占地面积是多少平方分米?(2)在四周和底面抹上水泥,水泥的面积是多少平方分米?(3)蓄水池的最大容积是多少立方分米? 2²+4²+6²+···+50² 编写一个程序,计算x-1/2*x3/4+1/2*3/4*x5/6-1/2*3/4*5/6*x7/8+.的近似值直到最后一项的绝对值小于eps 用c语言编~ 一个长方体蓄水池长8m,宽4m,深3m.这个蓄水池占地面积是多少平方米?在池底和四周抹水泥,抹水泥的面积多少?蓄水多少立方米? 2²+4²+6²+.+50²等于多少等于多少赶时间 (X一5/6)X5/6=25. 校要建一个底面周长12.56M,高3M的圆柱形蓄水池,这个水池的占地面积是多少 抹水泥的面积有多少平方M? 计算:1²-2²+3²-4²+5²-6²+...+49²-50²急、在线等 解方程,(x+5.5)X5=120怎么算用T等式 某农场挖了一个圆柱型蓄水池,底面直径是3m,高是8m 1要在这个蓄水池的周围和底面上抹上一层水泥,抹水泥的面积是多少平方米?2在这个蓄水池内装满水可以装多少立方米的水 求(a-2)²-6(2-a)的值 其中a=-2 计算(一5)一(一5)x5分之一x(一4) 一个圆柱形蓄水池,底面半径2m,深3m,在池底和四周抹上水泥.如果每平方米用水泥20千克,水泥要用多少千克 (1).(a-b)²-(a-b)-2 (2).(a+b)²+(a+b)-6 已知sinθ,cosθ是关于x的方程x^2-ax+a=o的两个根 θ求1.sin^3(θ)+cos^3(θ)的值2.tanθ+1/tanθ的值 一个长方体水池,它的长宽高分别为50m、20m和3m,如果水池中水深1.5米,这个水池中的水有多少立方米?1.到底是求体积还是表面积?如果以后遇到这种问题,怎么判断到底是求体积还是求表面积?2.水 一个长方体水池长5分米宽4分米深3分米,水面离池口4厘米放一块棱长2.1分米的正主体石块水会溢出多少毫升 a-b=2,a²+b²=6,则ab=? 挖一个的长方体的蓄水池,长7m,宽3m,深2m.若将10.5立方米的沙铺在池底,这时池深多少米? 一个长方体水池,长6米,宽5米,深0.68米,水面距池口18厘米,这个水池里有多少立方米的水? 若a+b=6.ab=2.则a²+b²=()(a-b)²=() 一个圆柱形的蓄水池,底面周长是25.12米,深是2.4米,水面离地面0.9米,这个蓄水池现在蓄水多少吨?我不知道是(2.4—0.9)还是直接0.9 水面离地面0.一个圆柱形的蓄水池,底面周长是25.12米,深是2 一个长方体水池长5分米,宽4分米深3分米,水面离池口4厘米放一块棱长2.1分米的正主体石块这时水会溢出吗? ①a(a-1)-2=0②a(a²-1)-6≠0.求a 一个圆柱形蓄水池,底面周长是25.12米,深2.4米,水面离地面0.9米.蓄水池蓄水池蓄水多少吨?一个长120厘米的圆柱,把它截成9个小圆柱所得的表面积比总和比截成6个小圆柱所得的表面积总和多180 某化工厂挖了一个蓄水池,能蓄水1080吨.这个蓄水池长24米,宽8米,深是多少米(每立方米的水重1吨 打一成语 一 7/8 1、2、5 二四六八十 0000 40÷6 1% 7÷2 1000²=100×100×100 一个圆柱形蓄水池,底面周长是25.12米,深2.4米,水面离地面0.9米.蓄水池蓄水多 一个长18米的长方体蓄水池,现蓄水720吨,池内水深4米,这个水池宽多少米?(1立方米的水重1吨) 打一成语 (1)一 (6)0000 (7)40÷6 (8)1% (9)7÷2 (10)1000²=100×100×100二四六八十÷7 一个圆柱形蓄水池,底面周长是9.42米,4米.已知1立方米的水重1吨,这个蓄水池可蓄水多少吨? 一个长方体的蓄水池从里面量长7.6米,宽5米如果池中以蓄水22.8吨池中水深多少米每立方米水重1吨列方程解答一个长方体的蓄水池从里面量长7.6米,宽5米。如果池中以蓄水22.8吨池中水深多少 (1²+3²+5²+……+99²)-(2²+4²+6²+……+100²) 一个圆柱形蓄水池,底面周长是18.84,深是2米.这个蓄水池能蓄水多少吨?(1立方米水重1吨)需要公式和计算的过程快快快 一个圆柱形蓄水池,底面半径4米,深5米(1)这个水池能蓄水多少吨?(每立方米水重一吨)若在这个水池的侧面和池底抹上一层水泥,抹水泥的面积多大? 1-2²+3²-4²+5²-6²+……+99²-100² 一个圆柱形蓄水池,底面周长31.4米.水面离池口50厘米.再注入多少立方米的水可灌满水池? 一个圆柱形水池,底面半径3米.5米.这个水池最多可盛水多少吨?(1立方米的水重1吨) 1²-2²+3²-4²+5²-6²+····+99²-100²=急求,好的加分 长方形蓄水池占地12平方米,池深1.3米,池内最多能蓄水( )立方米.哪位高人可以快点解答啊?我真的很很很急急急啊啊啊啊! 某动物园有一个圆柱形状的水池内直径10米深0.6米.如果放水后水面离池口0.1米,有水多少吨(1立方米水重1 7.5X2.7+1.9X2.5 使用乘法分配率 一个长方体蓄水池,内底面积是13.5平方米,池中已蓄水10.8立方米,已知水的深度是池深的一半,这个蓄水池深多少米?【先用体积除底面积求出水深,再乘2求出池的深度>O 4/5 x4+2/5x2+1/5x16 简便计算 怎么简算.0.5x2.5x12.5x64 请问:一个长方体蓄水池,内底面积是13.5平方米,池中已蓄水1o.8立方米.已知水的深度是池深的一半,这...请问:一个长方体蓄水池,内底面积是13.5平方米,池中已蓄水1o.8立方米.已知水的深度是 六年级4/5x4+2/5x2+5/1x16怎么算啊? 1.25X0.32X2.5 简算 一个长方体蓄水池,占15平方米,池深1.5米,池内最多能蓄水多少立方米?合是多少升 (4.4x7.5x4.8)除以91.5x2.5x2.4)简便运算 1.25x0.32x250 简算 一个底面半径10米的圆柱形蓄水池能蓄水1570立方米如果在挖2.5米可以蓄水多少立方米 3、5x2、1,简便运算 (4.8x7.5x8.1)除以(2.5x2.7x2.4) 挖一个圆柱形蓄水池底面半径是5米,深是4米,这个蓄水池可蓄水多少立方米?(用综合式计算) 简便运算:11分之2x7分之5+11分之5x2又7分之6,对的我一定立马采纳, 2/5x2/10+9/10x0.4-2除以5x1/10,x:是乘,尽快,我明天要演讲了
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn