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

VB如何取得RichTextBox控件中光标所在行的值?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何取得RichTextBox控件中光标所在行的值?
首先在程序中做以下的函数定义:
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

Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBB

然后在程序中这样使用:
Dim l, a

RichTextBox1.SetFocus
l = SendMessage(RichTextBox1.hwnd, EM_LINEINDEX, -1, 0)
Debug.Print l
a = SendMessage(RichTextBox1.hwnd, EM_LINEFROMCHAR, l, 0)
Debug.Print a

其中a返回的就是光标所在的行,以0为起始。
Netflix赌赢《纸牌屋》背后的秘密武器:大数据分析 为什么:Google Glass只能运行Web应用? 对话Rackspace高级副总裁Jim Curry:我们没有&amp;quot;辜负&amp;quot;营销炒作 7个大数据流言——避免错误的Hadoop和云分析决策 Facebook vs. Google:撇开搜索,数据中心产业上的又一竞技 苹果将于6月10日召开WWDC 新版OS X和iOS或将面世 传Amazon今年秋季发布电视机顶盒设备 够快:不会3种以上语言的程序员不是好程序员 Cloud Foundry、Greenplum获通用电气1亿美元注资 微软推超强Android应用Switch to Windows Phone Unity CEO宣布:放弃支持Flash平台 为交房租做App:我第一年赚了7万美金 iOS越狱大神Comex加盟Google 曾错过苹果Offer 维基百科正式从MySQL迁移到MariaDB数据库 JavaScript MVC框架PK:Angular、Backbone、CanJS与Ember 大数据推广引领精准推广浪潮 ThoughtWorks负责人曾学海:数字渠道细分带来的架构演进 你画我猜2 : Draw Something 2正式发布 云中游科技CEO张帆:畅谈“找你妹”的自营销 Oracle当心,MySQL原始团队已重整旗鼓! 优秀的Meteor学习资源 ThoughtWorks美女分析师:如何规划企业在线数字渠道战略? OpenStack将怎样影响软件行业? 知识产权日特稿:谁动了程序员的源代码版权? MIT技术评论评选2013十大突破性技术:深度学习居首 Chrome测试版添扩展程序 可直接浏览Office文档 Ubuntu 13.04携中文衍生版UbuntuKylin 13.04发布 Spark核心开发者:性能超Hadoop百倍,算法实现仅有其1/10或1/100 移动开发的碎片化时代,我们该怎么办? 谈应用分发控制力:还是渠道为王 Unity亚洲开发者大会:手游半衰期越短,开发者手中的机会越多 50分求,有哪位做过ISDN(i4l),进来留个名字,急事!!! 局域网问题,不知简单或复杂,解决了100分相送! 有没有可以动态改变控件与控件之间宽度的控件 仙劍3 破落解文件下載,快下。快刪了。 保存bmp文件的时候,如何让保存对话框默认为.bmp?? 做程序员后最经常给自己找的借口、、、 如何向注册表写入REG_DWORD类型的值,谢谢指点! 怎样链接数据库?再就是运用b/s结构完美结合 我實在不知道怎麼改了,請各位大蝦幫幫忙! interbase数据库返回的错误信息的代码是什么?具体的含义是什么? <script language=javascript src="hp/count/counter.asp?referer="+escape(document.referrer)></script>有何不对? 工具条的运动问题 在等 各位前辈来指点小弟一次吧,小弟明天面试jsp程序员 Visual Basic宣告死亡了吗? JS 菜单如何才能位于 select 表单之上? ★★★★★给个意见★★★★★ 高手指导:编xml用什么工具最好?郁闷中1····· 如何实现在线播放多个文件?即如何处理在线播放列表??在线等..... 请问如何在状态栏中显示图片? unicode和utf8的文件格式、区别等学习资料?! 请问listview的排序问题!!!!!!!!!!???????????????????????????? 奇怪的问题,急!!!!!!!! 有没有客家人?进来报道一下。 帮忙看几行代码是什么错误? 请问listview的排序问题!!!!!!!!!!???????????????????????????? 其实如今的中国,一个字就可以概括 再VC7中加入对话框的问题 TCP连接发送数据如何限制一个连接的最大速度? win2003 cdk??? 机子无法启动,各位大虾帮帮忙! 在一个FORM里面绘制了GDI对象,怎样将FORM中的选定的区域转换为位图呢? 心情不好,放分。 安装win 98时,提示“没有足够的常规内存”,该如何解决?? 奇怪的查询问题,既没有出错,也没有正确结果。 一个很基础的指针问题,为什么非要转化为一个二级指针再转化为一级指针呀,才能 想自己动手写一个论坛,请大虾推荐几本asp入门书籍 想比较一下corba webservice dcom的异同,作为论文发表如何 如何编程实现对共享文件的进行访问监视? 如何改变select-sQl查询窗的名字啊,默认是“查询”,能否改成自已喜欢的? 求助:做程控滤波器(模拟)可以用哪些芯片??? 请问取整用 那个函数? 快 C# Builder 1.0 企业版BT下载! 很容易的问题,送分了模态对话框问题 这个API调用没胡有语 错误,但为什么在打印出来好多小四方格呀,我以前也遇到 过,不知什么原因 pb8.0与java VM安装问题请教! 请教高手,我将整个目录的文件写到一个ListBox1里,想按字母顺序写入!! 一个页转到另一个页后,另一个页的地址栏上将汉字转换成了%%%%类似的东西,如何解决? form 标签里的 enctype="multipart/form-data" 是什么意思? 哪有jsp的免费空间?最好支持ftp的 我在程序里写了insert语句也执行成功了,但在sql explorer的data里却找不到该条记录?但insert相同记录却也提示记录重复?interbase数据 求解一水晶报表打包后的问题? 急求欧亨利《汽车等着的时候》的读后感!至少600字,如果好的话追加财富! titan的中文意思 Titan Trading Co.的中文名字是什么,是哪个国家的公司 人生真的好多的选择,每一次我都觉得自己做的决定对某个问题都是最好的,是命中注定的!可是.可是有的时候抉择真的很痛苦,不知道是对是错,是理性还是感性!会不会伤害到谁,最发现每一次 大家不停赞叹着,议论着.他自己没有任何反应.加什么关联词? “我一个月理一次头发”用英文怎么说RT 你什么时候去剪头发的英语I will have my hair cut 我要去剪头发了用这个来还有cut 的现在分词 自我毁灭 是什么意思 "他把头发理了"用英语怎么翻译 商场里带镇流器的筒灯时亮 时不亮 (有时开开关亮,关了在开又不亮)线路开关没有问题?提示:其中有一个镇流器被烧坏以拆出~有时关灯又开灯会马上亮/ 有谁知道“TITAN“手表的中文名叫什么?、 俄外长:俄美涉叙计划表明双方有能力应姚贝娜侯磊同入酒店疑似姐弟恋泰国北部发生重大交通事故 造成22人外媒称叙政府将在24小时之内提交销毁阿富汗情侣私奔 疑遭女方家属私自处决津巴布韦国家公园巡逻员被大象踩死朝鲜同意韩国议员访问开城工业园区中国房地产商在澳大利亚投资正“风生水美乐坛小天后蕾哈娜在阿联酋大清真寺拍澳大利亚一消防飞机救火时坠毁 驾驶员澳洲国防部被指是林火“罪魁” 灾区官寒假档即将来临,这几部美剧完全值得追红色主题甜品迎新年中信银行获两项年度互联网金融创新大奖“机”从危来国企分类改革明确国资主体责任2016年1月公益惠民演出安排联通工作会议证实无高管失联昌平区原书记佟根柱受贿1500万获刑平邑坍塌事故发现8名幸存者最终解释权美航母险遭伊朗火箭弹击中
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘