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

文本框中光标位置的获得-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下运行通过。

屌丝伞兵的逆袭:4人+盛大+远程+最佳手游 新年头彩:Chartboost喜获1900万美元融资 高富帅跻身移动领域 福特开放车载声控API 传低端iPhone最低只要99美元 你怎么看? 辉煌不再 Encanto超级计算机可能被拆分“出售” 知己知彼 企业应用移足云端必须清楚的10大方面 NVIDIA推Android掌机:七年孕育可否成就野心? 人民日报:2013关于新媒体的8个猜想 互联网大时代成就创新小企业 移动互联网创新论坛报道 Mobile Detect:判断移动设备类型的开源PHP类 我是如何Hack Facebook Employees Secure Files Transfer服务的 投资可再生能源:Google 2亿美元投资风力农场 构筑商业生态系统 阿里巴巴集团全面变革组织架构和管理体系 美国众多银行网站遭DDoS攻击 疑似伊朗所为 构建高可扩Web架构和分布式系统实战 CES2013 AMD发布移动处理器路线图和环绕计算概念 对话Linus Torvalds:大多黑客甚至连指针都未理解 PaaS玩家们,怎么演好自己的角色? Apple高管表态:低端机绝不是iPhone的未来 Web开发人员应该知道的IE 10兼容性问题 一周消息树:CES2013揭幕 科技巨头纷纷发力 2012专利排行榜 IBM位列第一、Google增长最快! 微软赞黑客并称Windows RT越狱非安全漏洞所致 周报第46期:GitHub历史上最糟糕宕机事故回放及反省 著名计算机黑客Aaron Swartz自杀身亡 移动周报:移动互联网行业技术趋势前瞻 旁门左道:让移动游戏下载量暴涨的邪门功夫 可植入身体:“可穿戴计算”时代来临 Web服务器份额:Apache仍居首,Nginx将超IIS 防税务欺诈:挪威财政部将开源收银机代码 响应式设计实战:3人+1.5个月 IE10优化版cnBeta诞生记 怎么控制小数的位数? 这个QQ炸弹好厉害,是什么原理呢? 我的问题怎么老是出现在这个地方。。。。 一个对话框程序调用dll中函数的问题! 请教有关类的扩展 请问WIN2000专业版IIS为什么连接限制是10 急,为什么我的数据库会出现这样的错误? 寻求一个好的全屏翻译软件(在线等候,在线给分) 寻找《编译原理与时间》电子文档下载url 升级了,散分小庆.认识的朋友进来捧个场,不认识的也进来热闹热闹!忠心感谢:-) 奇怪的问题 如何解决在一个表单中多个提交按钮的问题? 请问怎样关闭135端口 Photoshop7.0的一个简单问题,大师们帮帮忙! 关于动态查询的问题? 请问如何验证代理服务器? 超过半个小时不作任何操作就把这个连接KILL掉,改如何做呢? 如何才能做出只存在于托盘栏的程序! 搜集VB绘图源代码,多多益善 北京市里有没有支持asp.net的服务器空间提供吗? GGJJDDMM 帮帮我啊~~~~ 新手的问题--如何作到点击页面中的提交按钮,只刷该页面的DataGrid部分,而其它部分控件值不变?(在线给分) 大家帮忙,要取得客户端的信任,用服务器控件对客户端进行读写文件的资料? 谁说我们要和兄弟会和解了? 一直都是你们在攻击我们,靠还和解?道歉差不多。 版本的差异造成的问题,ADO连接SQL Server。求教!!! 海宜派(NSU Pie) 为什么insert into语句不能完成添加? 在线等一个简单的问题! 能用DOS盘启动然后用GHOST 备分LINUX分区吗?我想备份我的LINUX系统。 SQL中能否用CopyMemory这样的函数??? 我的猫竟拨不上号 一个菜问题 type和typedef有什么区别? 100分问题,在线等,本地XSL,XML,使用VB脚本,使用MSChart生成图形,刷新几次后IE崩溃,高分求解 socket.setSoTimeout() BCB使用ClientDataSet调用Sybase存储过程的问题 趟过“地雷阵”的铁面总理 (转载) 我的电脑为何会自动开机? emf是什么打印格式? 小偷 请问我以后删贴、结贴是不是要先向EA、ginger、大师申请? 如何实现这种查询?急!!!! 高分求救:Dos下控制(HP等)打印机打印汉字的编程,请各位帮帮我好吗? 能否将下面的代码简化呢?? 请大家给介绍几本C++学习的入门书籍,好吗? type和typedef有什么区别? 本人姓刘,现在正在给自己的孩子起名,希望大家多多帮忙! 大力好~~~~~~~~~~~~~~ 如何用数组操作的方法对控件组操作? 谁有需求分析文档?明天结帖。 各位大哥,有没有网络监控方面的控件,小弟有急用。 中风的病人出现一侧肢体不能活动的症状,因为哪个结构受伤 A:肌肉 B:血管 C:大脑 D:脊髓单项选择 Don't worry.I think you can finish it in time _____(without difficulty) 北京迈达斯技术有限公司 怎么样 肌糖元不能象肝糖元那样分解供能,那要它有什么用呢? 飞机在做俯冲拉起运动时,可以看做是圆周运动,若飞机在最低点附近做半径R为180m的圆周运动飞行员的质量M是70kg,飞机经过最低点P点时的速度v为360km/h.计算此时飞行员对座位的压力为多少? 迈达斯中的tonf/m^2什么意思?tong是哪个国家的单位,什么意思? 马拉硫磷溶于四氯化碳中,为什么在水解后弃去四氯化碳层,而在加硫酸铜后又取用四氯化碳层进行比色?会的答,不懂的别来要分. 哪种营养素对身体最好 迈达斯中选择 5to222by54 是什么意思 四氯化碳与亚硫酸钠反映?产生什么? Every one of us is a student,------- --------?反意疑问句怎么填?如果开头是Each of us呢? 关于下丘脑功能的叙述 正确的事①可参与血糖平衡的调节 ②有调节躯体运动的高级中枢 ③可合成和分泌促甲状腺激素释放激素 ④垂体通过下丘脑控制性腺的生长发育A.①②B.②③C. 蝗虫适于飞翔的是A、前翅 B、后翅 C、后足 D、前、后翅 Not ___student can work out the problem.A.each B.every C.call D.both 请说明原因,Not ___student can work out the problem.A.each B.every C.call D.both请说明原因,C不是call,是all! 自然光在玻璃、水面、木质桌面等表面反射时,反射光和折射光都是偏振光,为什么,我就是理解不了,还反射光折射光,这都没有通过偏振片啊.当我们直接观察、拍摄橱窗、水中的物体时,有些时 硫酸溶液里加四氯化碳 萃取为什么向硫酸溶液里加四氯化碳后震荡不属于萃取? 食用海鱼摄取的主要营养素是什么 迈达斯定义结构组的时候为什么选择不到单元?不管怎么选择都是“节点数=0,单元数=0'. 基础体温 低温到高温有两天的中间地带我的低温温度是36.2 ,16号,17号排卵试纸测到强阳2天,18号变成弱阳,18号温度是36.5,19号温度是36.6 ,20号温度是36.8 .那到底是18号排的卵还是20号排的卵啊?我 维生素D上面写不可与同类维营养素补充剂同时食用.那意思是可以分时段分开食用吗?那维生素c可以吃吗,不是混一起吃是先吃后吃顺序 迈达斯FEA和CIVIL区别 具体说下 怎么感觉不出来? 为什么我基础体温低温区出现高温?就两天然后又迅速下降?出现7天的低温后才开始进入高温区? 一道高中化学综合实验题(4)怎么算?旁边红笔是记的式子,不大理解,给解释下.谢谢~ 下丘脑的功能下丘脑控制哪些功能 怎样才能排铅 Let 's go there 反意疑问句 为什么感觉迈达斯之手很少有人出呢?除了可以加快攻速啊 很适合DPS的过度啊 难道是我玩的太少了? 以a J t v u o Q 等字母开头的有关电脑的单词 改反意疑问句:Nobody wants to go there,----- ----?为什么是does he?我觉得是does it? 为什么自然光经过介质反射后可以成为偏振光?请介绍一下其中的原理, 肝糖元可以重新形成C6H12O6,肌糖元则通过无氧呼吸形成乳糖,造成这种差异的根本原因是 什么是下丘脑?作用是什么呢? 做脂质体用什么显微镜比较好 Q开头的单词第二个字母是不是都是U啊 下丘脑的作用是什么 《生日感慨》作文怎么写 只说 方法就可以 怀孕了该补充哪些营养素? 肾调节酸碱平衡的机制? 如何给自己写生日感言 营养素在白天补充好,还是晚上补充好 下丘脑有哪些功能? 求迈达斯软件的用法有没有迈达斯软件的电子书教程? 枕木是什么材料作成的? 下丘脑有什么作用 迈达斯分配功能如何使用 枕木与枕木的距离有什么说法?枕木与枕木的距离有什么说法?为什么都是440 或 540 为什么说体内酸碱平衡的稳定是由化学缓冲剂通过呼吸作用和肾脏来调节的 例句:海上的夜市柔和的,是静寂的,是梦幻的依照例句的格式各造一句乡村的夜( )城市的夜( ) 不允许作为营养素补充剂的矿物质是? 如何在Microsoft Office Word 2003制作条形统计图如题 例句 海上的夜是柔和的,是寂静的,是梦幻的.仿照例句,选择一个事物造句 地理中城市的地域形态如何区分团块状 组团状 条带状 放射状 吃水果蔬菜可以补充哪些营养素求解 迈达斯+截面显示不了质心也不能计算截面特性怎样回事 为什么我低温期的基础体温也比较高?(36.5) 为什么肌糖元不可以重新分解成葡萄糖?MS肝糖元都可以分解成葡萄糖的说……为甚麽肌糖元就不行? 关于桥的故事?简洁的语言. 生物高手膝跳反射需要几个神经元? l don't think he can finish it on time.(改为反意疑问句) 校园生活中的感悟快加上写人的开头结尾, 纽约买烟最低年龄提高到21岁洪航勇任杭州市人大常委会代理主任(图美辱华主持人回应华人起诉:他们愿浪费国际刑事法院推迟审理肯尼亚总统案美国航班飞行中将允许使用部分电子设备10月份国际大事回顾:美联邦政府关门奥巴马喊话投资者“选择美国”摄像师探寻日本平凡之美东京博物馆特别展 揭秘日本封建末期神万圣节狂欢化装派对 萌“小鬼”们惹人多伦多市长涉吸毒视频被查获 其友涉嫌西班牙走出两年经济衰退 首次出现经济巴黎街头上演真人版浴室广告 女演员穿美墨边境发现新贩毒地道 配电力轨道和约旦河西岸推进环保 巴以或实现“环境俄罗斯富人与穷人代名词:寡头、工薪族英媒窃听案中两名涉案编辑被传系恋人关美将俄歌星列入黑名单 俄抗议表示不可沙特女性反抗禁驾令 小伙因改编歌曲助多伦多市长涉吸毒视频被查获 其友涉嫌美澳等多国驻外使馆被曝精心伪装 监听婚前没做的,别指望婚后会做你太单纯,想必不适合聊天这就是,我想要的生活年轻人,你的不努力就是自私要摧毁一份感情,一句话就够了中意企业联合成立中意发展基金 支持双《云中歌》将收官 baby杜淳“迷之李克强就我国公民被恐怖组织杀害事件发银联卡农产品收购支付服务试点交易额破金钱不是万能 澳洲移民机构反对付费永ASIC要求Boca FX删除网站上姐姐,我该如何告诉你姐夫的真面目Indiegogo与线下零售店合作忙了一辈子究竟什么是你的?您是有多大的福报,才能看到此文?中国老家规——这就是教养(值得收藏)五块钱的故事(深度好文)刘墉:逼你成功找一个可以说心里话的人(句句穿透你的一件让嫖客内疚终生之事有一种失败叫瞎忙(人生应该干三件事)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘