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

快速读取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如何利用Winsock控件编写自己的Internet程序 VB如何每天抓取 Internet 上某一个网页中的图片来更换桌面的壁纸 VB如何启动拨号网路中的连线? VB如何使用MSCOMM32.OCX发送大于80H的字符,可否给个示例程序? VB如何用VB打开默认浏览器或默认发信程序? VB如何用Visual Basic编写小型的网络系统 VB如何在程序中启动 NT 的【拨号连接】对话框? VB如何在网页上使用 VB5 制作的 ActiveX 控件? VB如何中断【拨号网络连接】? 设计Browser及FTP程序 -VB资料 设计Chat程序 -VB资料 设计E-mail程序 -VB资料 使用VB获得一页的HTML代码 使用VB收发电子邮件 VB使用超链接和发送Email VB使用浏览器的文件复制对话框 输入/输出篇 -VB资料 通过WnetEnumResource函数获得网络资源 -VB资料 通往 Internet 的捷径-VB资料 显示计算机的名称 -VB资料 VB用 MAPI 控件实现发送邮件 VB用 WinSock 控件下载文件 VB用 Winsock 实现聊天的程序 VB用Internet Transfer编写FTP程序 VB用Sockets发送电子邮件 用VB 创建自己的通信程序 用VB5.0开发通信软件的技巧 用VB5开发IE 用VB编写网络寻呼 用VB编写小型的网络系统 用VB创建自己的通信程序 请问能不能在不同用户登陆的情况来决定服务A是否启动。 关于还原精灵转储后win98不能启动的问题,请指教!~ 今天,我终于听到项目经理的一句内心话,让我们作为程序员感到一阵阵的寒心 请教一下 dll调试问题 怎样得到OnLButtonDown的point在整个屏幕上的坐标啊?谢谢 递归调用FindFirstFile、FindNextFile、FindClose的问题 页面调度有关的课程设计 关于client端与server端的连接问题 请问能不能在不同用户登陆的情况来决定服务A是否启动。 Textbox如何禁止它记忆以前曾经输入过的值? 我的XP的CPU经常占用90%以上,高手指点. 安装完win2000,又安装了天网防火墙,再安装SQL server 2000,快完成时启动服务警告“无法定位程序输入点” 急招深圳周边(含深圳).Net程序员 ??qustion Laney(6吨大肥猫) 快来啊^@^ 有关struts的<html:text>标签的问题!!!!!!!!!!!!!!!!!!!!!!! 为了考试挑灯夜读,遇到一个菜问题请大家帮忙! 哪位高手帮帮我!时间紧急! 关于还原精灵转储后win98不能启动的问题,请指教!~ 有几张漂亮图片,看看你的计算机是怎么累死的 求C++算法代码。 怎么实现在IE中将查找到的关键字用红色标记指示出来? 求C++算法代码。 请问哪里可以下载Numega DevPartenr Studio 测试工具 ㊣㊣ 什么也不多说了,帮忙给解决这个问题吧, 先多谢了!! ㊣㊣ 有个小小问题 寻找监测某端口的数据流量软件 都市幽灵·里面一定有宝藏 非常奇怪:为什么超链接无效? 显示异常 下个星期开始到新公司了,请大家给点经验,好吗 急!jsp+mysql,急寻blob输出方法!!! 修改记录问题 StringGrid的自画 导出 救命呀,关于XP的激活问题. 语句 请问有什么好的串口调试工具,可以模拟串口发送数据的??????? 简单问题高分相送 MessageBox.Show 方法需要什么样的名空间 使用ghost硬盘刻录硬盘怎么区分源盘和目标盘,请大虾详细说说,在线等 概念性问题(没办法,太笨了,见笑了) vf8支持动态SQL吗? 请问:如何单独安装BDE? 因为你无权连接数据库服务器?? 大家看看一个非常专业的商贸企业管理软件,要源码好商量! 如何清除Image中的图片? 数据库查询一个奇怪问题 关于记事本程序的编写??? 揭贴后的话(告诉大家你的问题解决的怎么样) 感觉很简单,但是我就是不知如何下手 现实是此岸,理想是彼岸,中间隔着湍急的河流,行动则是架在河上的桥梁.这句话说明?1理想是对现实的超越2崇高的理想信念必须落实在行动上3追求和实现理想是一个艰苦奋斗的过程4 要正确认 此题思路?A是什么? 与象共舞 大象跳舞给人的感觉是什么 "颛顼、帝喾"这两人是什么人啊? 这两题思路是什么啊 大学对于我们的意义,请谈谈你的看法吧! 圆的英文怎么写啊“圆的”这个英文单词怎么拼啊?我要准确的! 车子被大雨浸泡了,能否获得保险理赔? 对大学社团的看法 二李复习全书第524页例2.21,为什么{X≤x}的概率是两个面积之比分母为半圆面积,分子面积是三角形BOA和扇形ABC的面积之和, 发生11·15事件,提醒我了,出现这种火灾、台风、暴雨一类的灾害后,怎么做才能快速理赔呢? 明珠散落的意思解释对了就好了~ 考研:我已经把数学书看了一遍,不过没做课后题,那我还需要看一遍李永乐复习全书吗?那660题呢?什么时候看啊? 商务英语和财经管理你们推荐哪个 对大学教学的看法?还有理想的大学教学是怎样的?大学教与学的灵魂? 五帝的颛顼的读音是什么呀? 一元二次题目当m为何值时,二次三项式2x^2 +6x-3m1在实数范围内能分解2不能分解3能分解成一个完全平方式 6题..文科学霸请进……为什么c不对 颛顼 怎么读?要拼音 句子:“突然雷声大作,先是漂下几滴雨点,接着水如柱.”哪两个字错了?并写出正确的. 大概的相近词是什么 颛顼怎么读?拼音 为什么雷声大雨就大 东阳.为什么叫东阳 为人民服务的人的事迹 突然雷声大作,先是飘下几滴雨点,接着雨如柱.有什么错别字? 一人向东走20米,又向西走了30米,实际走了多少米?他此时的位置应在哪里? 浙江的东阳市有叫东阳商场的吗?想去那里进货. 成语接龙越多越好 一位同学在一条由东向西的跑道上先向东走了20米又向西走了30米能否确定他现在的位置与原来位置相距多少米 晶莹剔透、水生喧腾,明珠散落的意思 成语接龙:万众一心(越多越好) 一位同学在一条由东向西的跑道上,先向东走了20米又向西走了30米能否确定他现在的位置与原来位置相距多少米 耳朵用英语怎么写耳朵,眼睛,鼻子,手,嘴巴,头,脸怎么写 千变万化的成语接龙 越多越好 某人向东走5米,又向西走5米,那么此人实际走了多少米?他的位置是在?请帮助帮助回答,谢谢!这道题我不知道该怎么写,请来帮助我把! 珍珠泉似明珠散落 ,—————— ( 对对子 )急 宇宙没有形成的时候是什么样子的? 某人向东走了20米,又向西走了30米,实际走了多少米?这是一个关于有理数的数学问题主要是要弄清实际说的是路程还是距离 有文科学霸麽 宇宙在最早的时候是什么样子的?是不是什么都没?是不是哪个时候连空间也没?时间怎么解释 是不是要参考下《时间简史》霍金提出的解释是什么意思? 已知X十y=5⃣️Xy=2⃣️求(x-y)^2.x^4+y^4的值 Lambert1.[男子名] [英格兰人姓氏] 兰伯特.来源于日耳曼语人名,含义是“土地,领土+光明的,著名的”(land,territory+bright,famous) 2.[英格兰人姓氏] 兰伯特.职业名称,牧羊人,来源于古英语,含义是“羔 颛顼简介 若丨x-3丨+丨y-2丨=0,试求2x+y的值 Lambert1.[男子名] [英格兰人姓氏] 兰伯特.来源于日耳曼语人名,含义是“土地,领土+光明的,著名的”(land,territory+bright,famous) 2.[英格兰人姓氏] 兰伯特.职业名称,牧羊人,来源于古英语,含义是“羔 宇宙未诞生时是什么样子的?(不要特别复杂的理论) 若丨x丨=3,丨y丨=5,且丨x-y丨=-(x-y).求丨x-3丨+(y-5)²的值 Fedor可以做英文名字用吗?是英文姓还是男子名? 颛顼 介绍 已知丨x-2丨+丨y+2丨=0,求 x,y的值要用上初中因为所以的符号,具体点 什么像一颗颗明珠造句 仿写现实是此岸,理想是彼岸,中间隔着湍急的河流,行动则是架在川上的桥梁 能概括 在上的那边全诗中心 Your Personal Day of Death is... Tuesday, April 9, 2075 Seconds left to live...2,120,323,716 Delay Your Date of Death How Migraines Impact Quality of Life Gastroesophageal Reflux Disease: What You Should Know A Lack of Sleep or ADHD? 都是什么 有人说:“现实是此岸,理想是彼岸,中间隔着湍急的河流,行动则是架在河上的桥梁.”这个句子充满了哲理.请你也试着将《在山的那边》全诗的内容浓缩提炼,仿照这个句子写一句能概括全诗 颛顼介绍 Your Personal Day of Death is... Friday, August 8, 2081什么意思?Delay Your Date of Death The Phases of Migraines What to Expect When Getting an MRI Polycystic Ovary Syndrome: What You Should Know 这都啥意思? 暴雨离檐,犹如明珠散落,一地流水向低而去. 人教版语文五年级下册7单元的生字词 巴黎中国电影节开幕首条横跨欧亚海底隧道启用 伦敦坐火车范长龙会见马来西亚国防部长强风暴致荷兰人损失近亿欧元巴西拟立法强制跨国网络巨头建立本土数强风暴袭击荷兰致损近亿欧元“丝绸之路经济带——区域合作的愿景”《中国好声音》电影版海报曝光 吴莫愁南京前三季度交通通信人均支出2886国信办主任:“六个目标”让网络空间清国家林业局:严格限制占用生态脆弱地区江西一教师为讨960元代课费跑15年南京一动物园招聘引热议 饲养员要求研六旬老人数年独自将毛坯路修成石子路 银行综合理财能力排名发布 光大银行连南京空气质量污染持续 昨日成10月最江苏将建设师德监督机制 坚决实行“一美工程师为圆梦转行专演死尸【组图】监听外国领导人后果显现 德国拟抵制同韩国议员赴朝考察开城工业区 或将缓和沙特女性抗议者拟无视政府禁驾令“顶风看P2P广告也能是一种避雷方式点融网进军海外市场,首次与韩国韩华集从公告中挖掘出蛛丝马迹:PPmone10秒钟教会你走太空步砗磲市场前景如此好,如何正确投资砗磲调理肠胃、手脚冰冷的秘方一个洋葱等于8味药 秋吃洋葱有奇效清朝皇帝绝后是因为乱伦?收到陌生人寄来的恐怖漫画,主角居然是翡翠镯子碎了,试试业内人士推荐的补救收到陌生人寄来的恐怖漫画,主角居然是纺织服装行业信用状况观察:需求低迷加滕州公路桥梁经受暴雨考验 无明未来10年PPP将成为10万亿级蓝海凤凰广场涑河桥梁维护半封闭施工 临24日冠亚星城有个“跳蚤市场”,小鬼周滨投标术:指定公司陪标 代替其他公神准!在绍兴收入的多少决定你的御寒方济宁军分区“手拉手,一帮一”捐资助学大医院人满为患 社区冷冷清清利客购物·齐鲁晚报首届“运河社区文化
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘