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

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
Kinect for Windows SDK 1.7正式发布,支持3D建模 SafeNet与风河系统联手推出VxWorks嵌入式系统软件货币化方案 Windows Server 2012中的动态负载均衡 Google等互联网公司将成为创新中心? 在Hadoop的战争中 MapR获新一轮3000万美元融资 初创公司DNNresearch:谷歌科技帝国的新“基石” 创业了,我们该如何起名? 乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 Ridiculous Fishing:游戏遭遇山寨如何一雪前耻 老游戏的今天:Doodle Jump每周进账2万美元 剑指Evernote 谷歌正式推出Google Keep 开源的JS MVC框架 Backbone.js 1.0发布 前Facebook资深员工王淮给技术创业团队的十点建议 微软发布Windows Embedded 8系列操作系统 Google Play 4.0抢先体验 中国 vs. 非洲:移动医疗的前世今生 Java大数据框架初创企业Concurrent获400万美元融资 基于Edge Animate开发CSS3 Animations 后端服务商Firebase发布全新iOS SDK 帮帮我吧 关于B/S报表? 怎样设置msflexgrid某一列的颜色? 用 DHCP 分配了二个网段的IP。 怎么能抓到密码? 在运行时想改变一个label的字体怎么改变,有没有做过的,label的属性在设计时是可以改的 fatal error C1010 找一个和VB的属性区一样的代码,控件或类库均可 如何调用在不同的窗体里自定义的过程 一个技术探讨问题,我想知道象在WORD等软件中插入图形或图象后,还能把它选择,并移动是怎样实现的? 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! shcv.dll 在三相异步电动机正反转控制电路中,若按下反转按钮,会出现什么情况 10千瓦以下的三相异步电动机的启动电流是多少?应该如何计算并选取空气开关?10千瓦以下的三相异步电动机启动时该如何选取空气开关大小?本人是个初学者, 小明按1:100的比例尺画出教室的长是acm,小强按1:150的比例尺画出的教室长是多少? 电气正反转控制电路中,自锁,机械互锁,电气互锁,分别有什么作用 求三相异步电动机的降压起动控制电路图 小明按1:100的比例尺画出教师长的线段是7.5厘米,小强按照1:150的比例尺画出这个教室长的线段应是()厘米. 两个数相除商是7.2,如果把被除数扩大10倍,除数不变,则商是().如果被除数、除数同时扩大5倍,则商是() 已知一长方形教室面积65平方米,如果把它的长扩大到原来的10倍,宽缩小到原来的1%,这个教室的面积应是多少? 小明安1:100的比例尺画出教室长的线段是a厘米,小强按照1:500的比例尺画出这个教室长的线段应是()厘米 两个数相除的商是15,如果除数不变,被除数缩小3倍,商应是().被除数乘10,除数(),商不变. 以知一个长方形的面积是65平方米,如果扩大到原来的10倍,宽缩小到原数的百分之一,面积是多少?如果有人知道4年级下的数学做业之数学广角? 当x≠0时,(2x-1)的0次幂为什么无意义 两个数相除商是30,除数扩大5倍,使商不变,被除数必须()A.扩大5倍,B.缩小5倍,C.不变 一间教室的面积约为56平方米,它的百分之一和百万分之一是多少,用科学计数法表示.它的百分之一和百万分之一是多少平方千米? (x-1)的零次幂加2-x分之1有意义,则x的取值 两个数相除的商是6.2,如果被除数和除数都扩大到原来的10倍,商是( );如果被除数不变,除数缩小到原来的100分之一,商就( ),结果是( ) 3/4*3.14的x次幂的系数是多少 当x___时,(x+2)/(x-2)-(x-1)0次幂,有意义 以下算式如何算?(1+7/505)+(1+7/505x2)+(1+7/505x3)+...+(1+7/505x99)+(1+7/505x100)1+1/2+2/2+1/2+1/3+2/3+3/3+2/3+1/3+...+1/10+//2/10+...+10/10+9/10+...+1/10 求图形的体积要体积公式和计算过程以及答案快 在单台的三相异步电动机的控制指示灯中,故障指示灯与哪个指示灯同亮,或者是单独亮? 下列程序段是计算 公式的:下列程序段是计算   公式的:  s=0;t=1  for I =1 to 10     t:=t*I    s:=s+t  Next I  A、s=1+2+3+……10       B、s=1*2*3*……10  C、s=1!+ (3x²+1/x)八次方 展开式中,则x七次方的二项式系数是? 三相异步电动机控制电路中如何使用发光二极管做指示灯三个电动机,两用一备,当某个电动机出故障时自动切换备用电机,要求用发光二极管做电源指示,运行指示,故障指示,每个电动机上都有 数学(2x+1/x^2)^n的展开式中,第三项的二项式系数比第二项的二项式系数大27,求展开式中的常数项 等比数列{an}中,a4=6,则a2·a6等于 把一块长和宽的比为5:3的长方形土地,用1/1000的比例尺画在图纸上,周长是16cm,实际面积是? (x-1/2x)^n的展开式第三项的二项式系数是15,则展开式中所有项的系数之和为……?我怎么也算不出n值~ 15KW的三相异步电动机的额定电流是多少啊? 已知an是等比数列,(a4+a8)(a6+a10)=49,则a5+a9等于 用计算机计算(6+2)*3时的按键顺序是/按7 x^ / (-) 5 * 3 .2 =能计算的算式是用计算机计算(6+2)*3时的按键顺序是按7 x^ / (-) 5 * 3 .2 =能计算的算式是A.7^2/8*3.2B.-7^2/5*3.2C.7^2/(-5)*3.2 D.7^2/5*(-3.2) 一台三相异步电动机为17千瓦,计算这台电动机的额定电流是多少? 在等比数列{an}中,a4+a5=10,a6+a7=20,则a8+a9等于 两个数相除商是2.33,如果被除数扩大5倍,除数缩小2倍,则商变为( ). 三相异步电动机的额定电流如何求?有一台三相异步电动机,额定功率为2.2千瓦,额定电压380v,功率因数0.86,效率0.88,求额定电流. (x+1/x)的九次方的展开式中X的三次方的系数为多少 若(3x-1/x)^n的二项式中,所有项系数和为64,n等于?为什么设x=0?是不是类似这种问题都能设x=0? 三相异步电动机知道额定功率求额定电流的算法要不要考虑电机的效率,那样可以经济些, 利用延时器星形转三角形降压启动电路图 若(3x-1/x)^n的二项式中,所有项系数和为64,n等于多少?为什么要令x=1,这是什么公式 关于三相异步电动机电动机额定电流的问题3KW以下的三相异步电动机 380V Y接法的额定电流和220V 三角接法时的额定电流是否是一样的? 鼠笼式三相异步电动机做星形连接时的线电流是做三角形连接时线电流的多少倍? 三相异步电动机双重互锁正反转启动反接制动的控制电路讲义 已知数列{an}中,a1=-2008点P(an,a(n+1))在直线x-y+3=0上,(1)求数列{an}通项公式(2)数列{an}的前多少项的和最小 星三角形降压启动电路帮忙分析下电路原理啊!和排故步骤! 请问怎么求二项式系数之和如题 技术经济题.贷款问题.求详细步骤.计算公式1. 某企业获得一笔10万元的贷款,偿还期为5年,按年利率10%计复利,分别计算以下4种还款方式每年还款额、5年还款总额及还款额的现值.(20分)(1) 三相异步电动机星-三角形降压启动控制1、画出继电器-控制器控制电路,说明工作原理.2、画可编程序控制器控制的I/O配线图.3、画可编程序控制器控制的梯形图. 二项式系数与项的系数的区别 已知等比数列{an}中,a4=7,a6=21,则a8等于? 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,则a4+a8 如何求证二项式系数之和Cn0,Cn1,Cn2,...,Cnn叫做展开式中的二项式系数,有Cn0+Cn1+Cn2+...+Cnn=2^n成立.如何求证以上公式? 一间教室长12米,宽8米,画在比例尺为1:300的平面图上,长应画()厘米,宽应画()厘米. 已知等比数列{an}的各项都是正数,且a6*a10+a3*a5=41,a4*a8=4,求a4+a8 二项式系数的和是什么? 一间教室长12米,宽8米,画在比例尺是1比400的平面图上,长应该画()厘米,宽应该画()厘米 等比数列{an}中多项均为正值且a6*a10+a3*a5=41,a4*a8=5 求a4+a 这个计算公式,是什么? 计算这个式子,详细过程 小明按1:100的比例尺画出教室长的线段是a厘米,小强按照1:150的比例尺画出这个教室长的线段应是( )
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn