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

VB获得文本框中光标所在行的内容

HTML文档下载 WORD文档下载 PDF文档下载
VB获得文本框中光标所在行的内容

'在form中放一个textBox两个label
Const EM_GETSEL = &HB0
Const EM_LINEFROMCHAR = &HC9
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

Public Sub GetCaretPos(ByVal hwnd5 As Long, LineNo As Long, ColNo As Long)
Dim i As Long, j As Long
Dim lParam As Long, wParam As Long
Dim k As Long
i = SendMessage(hwnd5, EM_GETSEL, wParam, lParam)
j = i / 2 ^ 16 '取得目前Caret所在前面有多少个byte
LineNo = SendMessage(hwnd5, EM_LINEFROMCHAR, j, 0) '取得前面有多少行
LineNo = LineNo + 1
k = SendMessage(hwnd5, EM_LINEINDEX, -1, 0)
'取得目前caret所在行前面有多少个byte
ColNo = j - k + 1
End Sub

Private Sub Form_Load()
Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)
Label1.Caption = LineNo
Label2.Caption = ColNo

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)
Label1.Caption = LineNo
Label2.Caption = ColNo

End Sub

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim LineNo As Long, ColNo As Long

Call GetCaretPos(Text1.hwnd, LineNo, ColNo)
Label1.Caption = LineNo
Label2.Caption = ColNo

End Sub
【OSTC讲师专访】腾讯TDW项目:开源的分布式数据仓库 ID爆发的物联网时代,我们该如何管理手中的数百个账户 取代Google Maps?苹果大幅优化Apple Maps用户体验 中交兴路系统架构师杨晓明:Hadoop+Storm+ HBase…,打造交通行业创新型服务 雨果·巴拉的第二春:我与小米的那些事儿 为什么Android Wear能统领智能手表领域? LinkedIn缘何抛弃Ruby,转投NodeJS怀抱 【OSTC讲师专访】九秒社团李明:开源对游戏产业的渗透与帮助 IBM 2014中国论坛:挖掘新互联网时代下“智慧企业”的发展之路 Facebook工程部副总裁Cory Ondrejka谈企业在早期所遇到的管理瓶颈 小团队管理工具选择:不需要大而全 《近匠》聚合CEO左磊:基础数据免费,API开放 IDC:HTML5与原生应用之争还将长存 不甘称臣,Google誓要击败Amazon 【OSTC讲师专访】腾讯追风(QcloudMna):开源移动加速SDK Google Go:一门为云而生的编程语言 3月26日:没有Larry Page,就没有今天的Google Hortonworks再获1亿美元融资,Hadoop领域三足鼎立 Intel收购Basis Science,欲拓展可穿戴设备市场 Facebook以20亿美元收购Oculus:虚拟现实将是未来计算平台又一大事件 基于NodeJS的14款Web框架 Hadoop导航:版本、生态圈及MapReduce模型 把黑匣子送上“云” 失联困境能否不再 看看全球十大电信巨头的大数据玩法 尹绪森:打开圈子拥抱变化,谈Spark玩家的自我修养 从Healthbook看苹果将如何颠覆移动医疗和健身追踪 Google可穿戴:详解Android Wear的十大功能 初创企业非技术人员的迷思 【OSTC讲师专访】王兴博:Genesis-3D,3D开源游戏引擎 Facebook发布开源项目Tweaks,让iOS应用开发更加便捷 移动开发创业团队再下一城!UCloud与飞流战略合作 高手请入!!急救!求msflexgrid 的打印源码????? 如何在list中显示文件夹 哪里可以看到Obejct类clone的实现方法? 系统的FOUND.00*文件夹里放的FILE000*是什么文件?可以删除吗?刚装系统时没有这些文件的阿 给分啊 今日郁闷之至……散分! 来来来,大伙们一起来衷心祝愿xxmm (晓箫)的老爸老妈顺利赴美参加晓箫的毕业典礼!! Dev-Cpp 使用 NetAPI32.lib 的问题 急寻严蔚敏,吴伟民版《数据结构习题集》c语言版的答案,请问哪有啊 高手们给我一个超级简单的HOOK API的例子好吗?求你们了。 错在哪里 好郁闷啊~ 谁有站内关键字模糊查询的代码?紧急求救、在线等待!!!! 字符串转化为数组的问题 讨论<<标准C++库大全>> 上次是哪位兄弟要的《新编API参考大全》CHM版呀?我找到了一个,还行。 欢迎大家访问我公司的网站! 请学c++builder 有份量的人推荐一本经典的教材(适合初学者) 欢迎大家访问我们公司的网址! 关于分页的问题 请帮我看看这个小程序 欢迎大家访问我公司的网站! 已知一个文件夹的路径,如何得到该文件夹中的文件的名字? 关于StreamReader的问题 欢迎大家访问我公司的网站! 有关编辑框的问题 各位大侠一个很菜的问题,来帮帮忙! 关于集合的一个小问题 最菜的问题,100分白送!!! 很基础问题,脑子不清楚,大家帮忙看看 紧急问题! 终于 知道MESSENGER 只是 WIN2K 的服务了! 那么 这 个怎么办?? 请问以下我如何实现一个带滚动条的子窗口 问一下,resin和iis集成后class文件放在什么目录下 用 http://www.rc80.com (c# + sqlserver2000) 只想换一个.net 的完整的分页代码! 一个Corba客户端连接的问题! 如何在resin中设置wap服务器功能 大家帮忙!! 什么时候用DataGrid,什么时候用DataList? 怎么样从数据库里取得某字段的值??? 昆腾的硬盘修理找谁啊?急,UP有分........ www.webmatrixhosting.net免费空间中FTP文件上传问题 Apache 2.0.43 +Tomcat 4.1.24+mod_jk2-2.0.43.dll整合问题出现:The servlet container is temporary unavailable or being upgraded 我装的Delphi7好像丢了一个文件:Proxies.pas,哪位好心人给我一个? 人,真脆弱! 开水房追女之呕心沥血计划 (超暴笑) 孤独 急!!Image对象如何设置成为透明的???Thanks! 【憋的慌】大头、阳光呢!!! 关于FLASHMX的遮罩问题 一个问题,想不通! 苄嘧磺隆防除稻田杂草,怎样使用? we snowball throw and make sometimes them 怎么连词成句 Happy is the man who living by his hobby 水稻田主要防治的杂草是稗草、-----------\---------------------. pen用汉语怎么读 Happy is the man who is living by his hobby.happy是形容词,形容词怎么能做主语的? shape 的单复数用法有一堆苹果,是问what shapes are the apples?还是:what shape are the apples? glue怎么读 A man cannot really be happy if _he enjoys doing is ignored by society as of no value .A.what B.when C.that D.all what 为什么,求详解 塑料上面的镭射是什么意思? 英语翻译 first name 正方形的面积是20米,如果每4平方米种一棵桃树,这个果园可以种多少棵桃树? pudding的音标是? “厨师”用英语怎么说?还要有音标英语 法语都行 一块面积为2400平方米的地栽了400棵桃树,桃树的株距是2.4,行距是多少米? 请问pen presure 在哪里啊 我用的中文版c4d 我也是 ps有压感 但是 c4d没有 怎么调啊 .In that hotel,the bread and butter____served for breakfast 如果桃树的棵树比梨树都5/3,那么桃树有多少棵?是不是用 桃树×(1+5/3) 2013年热门关键词有哪些 ①当v增大时,所需向心力增大,即万有引力不足以提供向心力,卫星将做离心运动,脱离原来的圆轨道,轨道半径变大,但卫星一旦进入新的轨道运行,其运行速度要减小,但重力势能、机械能均增加 哪些动物住在洞里的? 2013年热门职业2013什么职业好呢? 离心运动,为啥万有引力小于向心力 什么是合力?什么是向心力? 求2013年的热点话题.热点! 根据黄金代换式我们知道重力=万有引力(忽略向心力),为什么还会有物体作离心运动?不是已经忽视向心力了 不是合力提供向心力吗 glue的中文 英语改错 A man cannot be really happy if that he enioys doing is ignored by society as of no value or importance 无花果有什么 含义 向心力一定是合力吗赤道上,为什么向心力+重力=引力?为什么不是引力全部变成向心力? 以“我和我的祖国—喜迎国庆60周年”为题写征文征文主题“我和我的祖国—喜迎国庆60周年”以歌颂祖国和党,赞美社会和家乡发展变化(我是晋城的),表现人性真善美等为主要内容. Tony was t—— (使非常激动)by the good news that he got an "A" in the fina The Chinese ----is said to be a healthier one than----,which contains too muA food the west B diet that of the west Cfood,that of the west D diet the western为什么不选C 请问parfix glue 是什么意思?谢谢~~ 英语翻译不要百度百科里的,求直白接地气的翻译! 有一些鸡和兔,共有脚72只,若将鸡的只数与兔的只数互换,则共有脚84只.鸡,兔各有多少只? 祖国60周年国庆作文最好带这60年来的进步脚步450字左右.好的追加20 中国农业银行每个月存1500元,存满一年本金是18000元,利息是多少啊?谢谢!还有什么方法比这个利息更高吗?谢谢! Neiter.I use a pen.中文意思 glue的中文意思 李某在农行存入2000元钱,年利率为1.98%,12个月以后,张三从这批款中会得到的收益是答案是31.68,为什么? correction pen 的汉语意思是什么? glue是什么意思? it's hurt/it hurts的区别好像电影里总能听到it's hurt 但偶尔有一天看见朋友写的it hurts,网上一查,好像也对.这俩在语境里有什么区别,意思表达上有什么差别呢?我只是想知道这两句在实际使用时 设a,b是方程(log2X)^2+5(log2X)+1=0的两个解,求a,b,注意,其中2是a,X是N 一只船顺水行320千米需用8小时,水流速度为每小时15千米,这只船逆水行这段路程需用几小时?320÷8-15 =25(千米) 25-15=10(千米)320÷10=32(小时) 这是答案它为什么减去一个15后又减一 请问提供IDC和提供带宽有什么区别呢?带宽的增加和成本的增加是线性关系吗?如果不是线性,麻烦好心人多说点啊,我不懂这些虚拟的玩意儿啊,最好能举个形象点的例子,谢谢啦 research可数么? 水流速度是每小时十五千米,现在有船顺水而行,八小时行320千米,若逆水行320千米需几小时?不用方程解. 两列火车同时从甲.乙两地相对开出快车行完全程需要二十小时慢车行完全程需要三十小时开出后十五小时相遇已知快车中途停留了四小时慢车停留了几小时 research 水流速度是15km/时,现在有船顺水而行,8小时行了320千米,如果逆水行了320千米需要及时? hurt的用法,与hurts的区别如;my left leg is ( )His left leg is ( )为什么? research 何时可数 何时不可数 某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,船逆水行了a小时,共行了 千米,这段路程某船在静水中的速度为x千米每小时,若水流的速度为y千米每小时,该船逆水行了a小时, 稻田杂草如何防治? Eat fruit and vegetables?是什么一 chickens in the 李源潮会见欧洲客人李源潮会见欧洲客人全面深化改革 再创体制机制新优势“染缸”绍兴重手遏制纺织行业三大污染日本拟将钓鱼岛海域列入重点防御“灰色“刀锋战士”将面临检方提出的两项新指南非副总统希望更多中国企业参与非洲交巴基斯坦称美无人机5年来打死两千余人复旦投毒案嫌犯被控以投毒方式故意杀人中储粮人士:目前国内进口菜籽油基本上中国成为韩国中小企业最重要海外市场韩国高官吁国际社会为实现半岛无核化加美国能源部长:美中应加强清洁能源合作南非副总统希望更多中国企业参与非洲交中国商务部敦促欧盟执行WTO中欧紧固中国外长敦促日方严肃对待阻碍中日关系浙江省第六届金锤奖结果揭晓 300多国际晚班车:驻韩美军邮局成\"毒品仓中国外交官在朝鲜参加支农活动埃及穆兄会又一高级领导人被捕杨澜提问郎朗被指语意不善 晒合影澄清小快克用药精准安全 帮孩子抵抗春季病气血充盈永不衰老运动功能科技,注重穿着体验工行北京分行信用卡发卡突破1000万华融琴海湾凸显稀缺价值即日起用手机百度买“欢乐谷”等热门景孟非离职传闻或因制播分离丹麦女王时隔35年再访华平安中超“牵手小球童” 拉开平安人寿苏宁门店开始体验谷歌眼镜朱志根与孙杨再分手赵雪五轮积3分五连霸主扳回一城平安中超“牵手小球童” 拉开平安人寿商业地产资产证券化破冰爱他,就给他看得见的“特权”吧2号线地铁站出入口详解降雨持续,天气好转要到27日长沙未有房贷停贷现象海利斥资1.49亿建低毒农药项目被困电梯将可求助 96366
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘