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

文本框中光标位置的获得-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
文本框中光标位置的获得-VB资料
作者:陈锐
在很多的编辑软件中有这样一个功能,即当用户在编辑区中输入字符或者按动鼠标使得光标的位置改变时,在编辑软件下方的状态栏中就能显示出光标所在位置的行和列的值。下面就介绍如何用VB编程实现在文本框中的这一功能。
  首先,在Form中添加一个文本框(TextBox),将其MultiLine属性设置为True,以便输入多行文本;再在Form中添加两个标题栏(Label),以便显示光标位置;然后,在Form的代码窗口中添加程序中的代码。

Option Explici
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 TextHwnd 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

'首先向文本框传递EM_GETSEL消息以获取从起始位置到
'光标所在位置的字符数

I = SendMessage(TextHwnd, EM_GETSEL, wParam, lParam)
j = I / 2 ^ 16

'再向文本框传递EM_LINEFROMCHAR消息根据获得的字符
'数确定光标以获取所在行数

LineNo = SendMessage(TextHwnd, EM_LINEFROMCHAR, j, 0)
LineNo = LineNo + 1

'向文本框传递EM_LINEINDEX消息以获取所在列数

k = SendMessage(TextHwnd, EM_LINEINDEX, -1, 0)
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 Form_Resize()
Text1.Width = Me.ScaleWidth
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

(程序)

  运行上面的程序,在TextBox中输入字符或者按控制键来移动光标时,你可以看到屏幕下面的Label中就能显示出的光标所在的位置。以上程序在Win 95,VB 5.0下运行通过。

“Animory”开发者分享HTML5游戏开发经验 Appflood SDK:连接中国与海外App流量交互平台 Apache Subversion 1.7.9正式发布! 微软IE浏览器5大动向 加速吸引开发者 开源的简繁转换库OpenCC支持Node.js 继Opera之后,Adobe表示将支持Google Blink 提高大型软件项目质量的一些实用型技术分享 谷歌推出Mirror API,开发者可为Google Glass开发应用 无需999,也不要499,99美元Linux超级计算机带回家 微软反击AWS:推出EC2并大幅降价,“价格战”正酣 Operation InVersion:拯救了LinkedIn的大修项目 五步走战略——Avocado在最初几周内迅速扩大30倍 NoSQL产品测评:Cassandra、MongoDB、Couchbase和Aerospike 谷歌眼镜开箱评测:比想象更精致 Pinterest谈实战经验:如何在两年内实现零到数百亿的月访问 初创公司Instart Logic:专为电子出版商和网站站长解决“痛点” 未来即卖芯片又卖服务!Intel收购软件厂商Mashery 继MSN之后,微软又开始整合Skype与Lync服务 阿里将推AMOS智能机 斥资10亿鼓励开发App AMPLab开发重构的Hadoop版本Tachyon:吞吐量要比HDFS高300多倍 一名理科生的创业路 十大界面原型与布局工具 Google产品经理Kenneth Norton:如何与工程师共事 如何创建自适应系统来增强用户体验 Jolla下月展示首款Sailfish手机 将重点发展中国区 海外1GB大容量游戏,国内渠道如何分发? 真正的能源大户是WiFi网络 数据中心只是“伪军” CloudFlare创始人传奇人生:7岁编程,法学博士,获哈佛商学院最高荣誉 2013云计算深入实践 jQuery 2.0发布 不再支持IE 6/7/8 Google再发力,更新Dart M4! 用ASP可不可以显示数据库的表的结构啊? 2000个线程同时填数据库的测试结果 如何用VC来画座标图,望众高手献艺 怎么编译pro*c? (unix下)———在线等!!!! 今天升到5个裤衩,高兴,散分 有谁知道《斯托克代尔悖论》的内容? 使用VB6.0编程设置IIS5.0服务器 谁有InstallShield,包括汉化界面,中文语言包和注册码,200分回报 freedorm格式数据窗口打印问题,字太长如何自动换行, 一个头痛问题。 做过政府审计软件的请帮帮忙,怎么从十来套不同表结构的数据库导数据到一个固定表结构的数据库呢? 如何让菜单可用或不可用?急啊~~ Lotus中的js问题 哪有Oracle中文最新版下载呀, 请问各地delphi认证培训的费用是多少? re:下雨了 怎么样加提示框 借一个问题!XP里面网卡怎么工作不正常 请问有什么办法破VBA的密码 CEdit 背景色的问题 100 分 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 了解jpeg的请进 高分急求数据库解决方案! 请问vb中浏览器控件是在哪个文件中,另外我想在vb程序中加入介绍性网页,应该怎么办! 存储类 在MainFrame里怎么得到一个指向MyDoc类的指针? 上海的弟兄前来领分!!!! 能ping通代理服务器,但不能上网(ftp等都不能用)。有那些原因! 谁有api做的串口通讯例子 很简单的Temporary used 问题,就是搞不清,请哪位详细点拨一下,铭谢 DataGrid中使用HyerLinkColumn,请怎样动态传递多个参数或改变DataNavigateUrlFormatString的值(在线等待答复) 在winsock1.1下怎样监听网络事件。(请给个API 的 sample ) 高分急求数据库解决方案! 高分求助软件稳定性问题! 高分请教exej4的问题!~ 我的代码可以被编译吗? 十万火急(在线等)关于发邮件问题!多谢了(最后50分了) 感谢各位的鼎力支持!!! 急:如何让sqlload使用命令行方式,把数据库中的指定几个表导出?(在线) 单元全局变量与工程全局变量有什么区别 问一个关于JSP和XML结合的问题. 请问怎样用ASP连接Mysql数据库,急! 有没有j2ee的qq群??? win2k里的smtp服务器,怎么是需要身份验证的? 怎样让智能ABC记住输入的词组呢? 你在delphi中,用到了多少面向对象的知识? Dragover事件什么情况下触发 北京还是深圳 如何实现两个类互相访问--急! <Code Complete>怎么翻译好呢? 急!!!!!在dcom中向数据源添加数据报错,为什么? 已知向量a,向量b,向量c共线,求证向量OA,向量OB,向量OC不共线 西周在治理国家有什么创新 已知一次函数y1=x+m与反比例函数y2=m-1/x(m≠-1)的图像在第一象限内的交点为P(x0,3)(1)求 x0,m 的值;(2)在同一坐标系中画出两函数的图像,并结合图像求出满足y1大于y2的取值范围. 函数y=a(x-2)的平方+b 经过点(-1,5),(m,5),求m及其解析式 C l fête des a h,Je t’aime 求意思?貌似是法语!他说前一句有潜伏在内 The students go to the Greats Wall by car.【对划线部分提问】划线部分是by car 请问各位最后一个拼音是什么?谢谢! 这句法语事什么意思啊j'ai des envies de是什么意思啊 j'ai des envies de 这两个微分方程的特解都一样吗?说明下理由 看了一下中华民族的历史,朝代交替,那中华人民共和国什么时候被推翻啊 工人阶级是我国领导阶级的原因是多选A中国共产党的工人阶级先锋队性质决定了工人阶级的领导地位B中国工人阶级是中国先进生产力和现金生产关系的代表C必须保障工人阶级的合法利益D工 地球以前的美 中国的封建主义彻底被推翻是在什么时候? 神经兴奋如何产生?与钠或钾离子移动关系。 地球的美在何处? 中国的帝制是什么时候被推翻的,什么时候被废除,在什么环境下废除的为什么废除了? 神经组织能产生刺激吗? 已知一次函数y=x+m与反比例函数y=m+1/x(m≠-1)的图象在第一象限内的交点为P(Xo,3)(1)求p点的作标 请问西方经济学(微观)中,脊线的准确定义是什么? il est tard, on a encore des gens a voir avant l'heure du dejeuner.这句话直译是什么意思?on和a是什么意思? 地球的美与破坏 微观经济中“均衡价格”的概念是什么求完整概念.这是习题中的解释概念一题. Quartier des fleurs, à Face résiduelle rire, rire les gens du commun . 谁会这句话的意思? 地球美不美 请问下西方经济学(微观部分)和微观经济学是不是一个概念? 各秋万代是什么意思? 永恒是什么意思?时间就定格在这一秒、“假如时间是永恒的,那么这一秒是最终的结束”“可是,下一秒呢?”打了双引号的一句话是全连起来的、是什么意思?求解 帮我把字查出拼音,帮我把词查出解释, Forever是永远的意思吗? 永恒的意义其实是一个宗教问题,我只是在网上粗略看了一些宗教的介绍,基本都有一个核心内容,就是 信者得救 ,好像都提倡信者死后可永恒,但不信者,有得下地狱,有的要轮回之类,可是在另外 看拼音写词.求学霸看一看题目有没有错 公有制经济和非公有制经济在我国国民经济中发挥着怎样的作用 永远和永恒的意思是一样的么? 5均量线金叉10均量线,凡是5天之内符合这个条件的个股,如何公式?也就是金叉后,5天或者小于5天的,都要选出来,如何公式?就是最近5天(含5天)金叉的,都要选出来! 龙眼干怎么晒 头脑风暴,少年智力开发报里的一道题有AB两辆汽车同时从甲乙两站相对而行,两车第一次在距离甲站40千米处相遇,相遇后两车保持原速继续行进,各自到达乙甲两站后沿着原路返回,第二次在距 在可降价的高阶微分方程中有两种形式的微分方程:y''=f(x,y') 和y''=f(y,y').其中前面的方程可设y'=p,那么y''=dp/dx=p',来求得答案,而后面的方程则用y'=p,则y''=p*dp/dy来求得答案.举例说明:yy''-y'^2=0 已知一次函数y=x+m与反比例函数y=m+1/x(m≠-1)的图象在第一象限内的交点为P(Xo,3)(1)求Xo的值(2)求一次函数和反比例函数的解析式麻烦解答下. 来几个头脑风暴的问题 请问(y')^2+1=2*y*y'' 这个微分方程应该怎么求?做不来啊... 晒龙眼干怎么晒 两情相悦才是长久时是什么意思?感情是可以培养的? 地的人口出生率为3.5%,而自然生长率为2%,那么该地有可能是 晒龙眼干的步骤,是晒,不是烘焙!晒龙眼干要不要剥壳晒? comme des fuckdown 若OB(向量)= m*OA(向量)+ n*OC(向量),且A,B,C三点共线,(改直线不经过O),为什么m+n=1 龙眼干可以晒好吗,有什么步骤呢 于某留做万年镜,为官当学万青山是什么意思 因式分解:(x2-2x)(x2-2x-3) (a2-5a+5)(a2-5a-3)-9 (a+1)(a+3)(a+5)(a+7)+15 请帮我回答谁sb 头脑风暴数学题在400米的跑道上举行400米跑比赛,跑道每道宽1.25米,相邻的两圈外一圈起跑线要比内一圈起跑线前移多少米? 新民主主义革命的领导阶级是 法、英等国袭击利比亚卡扎菲军队,如果俄罗斯帮助卡扎菲反攻,会引发第三次世界大战吗? 食盐的酸碱度? 如何使神经高度兴奋真诚求答 , 新鲜龙眼怎么做龙眼干 Homme Comme des Dansens*是什么牌子? 已知函数f(x)= -2m的平方+m+3 x (m€z)为偶函数,且f(3) 用显微镜观察玻片标本,目镜是12.5×,物镜是40×,请问,这家显微镜能将观察到的玻片标本放大多少倍?算式哦 龙眼是怎样制造成龙眼干 日本台风灾区官员与女子欢饮引民愤 或欧盟针对美监控拟推新法规 科技企业或港媒:监控丑闻令美众叛亲离 “去美国军演引发澳大利亚山火肆虐 一名灭火飞日议员质疑安倍 称应给首相出席国会次三名驻阿富汗英军官涉嫌私刑处决塔利班美国国安局被指30天收集1240亿份雄性鱼深夜发奇怪求偶声 扰乱英国居民穷母为喂子行窃 女警感动放人送百美元秘鲁前印加遗址发现两具保存完好的千年联合国继续准备销毁叙化武 瑞典提供运澳大利亚调查山火原因 中国卫星提供监美国600万年轻人赋闲 纽约芝加哥均美国一军事基地附近发生枪击案 造成两埃及政府拟于11月中旬终止紧急状态秘鲁前印加遗址惊现两具保存完好千年木英《卫报》指美国安局监听35位外国领安倍批小泉纯一郎零核电政策非长远之策伊朗公开“神风”攻击无人机 用胶带组澳民众痴迷电脑游戏 50岁以上玩家超纽约长岛一垃圾袋内惊现死婴 婴儿或遭今日可看“双星伴月”免费在线咨询保险 国内首家上线美元对主要货币汇率18日涨跌互现86万 白云湖引水渠采购防护栏石岐法治文化大赛征微剧本癌症康复费用遭骗 又是机票信息被泄惹英旅局全面启动“欢迎中国 尽享英伦拓展新领域,安洁科技涉足电动车红人榜纽约股市三大股指18日继续上涨安以轩韩佳人吴佩慈允儿 盘点女星最撩林青霞全智贤金喜善赵薇 盘点嫁豪门的叶一茜小S孙俪韩彩英 生完孩子更有魅周笔畅佟丽娅杨幂陈小春 盘点假唱被揭姚晨蔡康永安以轩蒋欣 细数得罪造型师盘点杨幂出道恋爱秘闻 看胡同妞儿如何参展商“掐架”互指对方侵权云南小姐妹遭生母遗弃巴柯拉童装2014秋冬新品发布会启幕疑因生活压力 大三女生宿舍自缢道路杂草丛生 女工下夜班心慌
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘