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

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
NPD:全球智能手机出货量2013年将首次超过功能手机 聚合数据左磊:不走寻常路 做国内最好的数据聚合平台 从程序员到软件商 需要注意些什么? 共享软件海外营销策略与实战(上海站) 直接拿来用!最火的Android开源项目(完结篇) 一步加入云生态系统 参加第五届中国云计算大会的十大理由 传苹果iOS7将深度整合Flickr 用户受益最大 Chrome 27来了:页面加载快5% 可同步数据到Google Drive 微软发布新一代游戏主机Xbox One 搭配全新Kinect 2.0体感系统 Unity游戏引擎向iOS与Android开发者免费 Twitter获“下拉刷新”专利 开发者仍可自由使用 复杂产品的响应式设计【流程篇】 使用Javassist库为Bytecode Instrumentation开发JVM Agent 内容解析创业公司Stremor推出4款API 2013中国云计算榜单之三:174家云应用服务商,繁花似锦! 盘点各大云服务提供商:麦当劳=AWS,汉堡王=? BlackBerry Jam亚洲开发者大会9月将在香港开幕 把服务器搬进来:Splashtop在中国搭建Bridging Cloud Web框架全对比第五期 新增Windows环境 前Tumblr首席开发者回忆录:一个人也能开发出好产品 测试者和开发者,为何我们不能友好地相处? 讲师秀之11:何刚谈京东的云机遇 讲师秀之10:武汉大学张焕国教授,可信计算是云计算之成败关键 【上海直播】Windows Azure+世纪互联:中国云计算“烈火烹油” 最新版Chrome浏览器推出全新语音搜索功能 惠普第二财季净利润同比下滑32% PC和服务器销售不佳 讲师秀之11:网易汪源的成长故事 PPT集萃(三):六位国内技术大牛分享巨型平台的打造与应用 聚焦全球移动市场:创新以色列 科技巨头的倾慕之地 Android版Chrome 27浏览器正式上架 机器人——数据中心的新“网管” 请问。哪里有MapPoint 2002的下载? 生死时速!!!! 在线等待:把VIEW1中把所有字段 VVV 中值相等的纪录 中所有字段中的值相加怎么办? 应当怎样使用appletviewer? 代理软件出现的问题! VB and VC 我在ADOCE编程时发现好像其中执行的SQL语句不支持Update,是这样吗?如果是那怎么修改记录呢?请指教!!! (100分)用Microsoft jdbc Driver for sqlserver2000(type4)访问sqlserver2k的问题,help! 关于SQL SERVER 数据库连接? iis4下载 请教 在线等待:把VIEW1中把所有字段 VVV 中值相等的纪录 中所有字段中的值相加怎么办? 有关数据窗口的问题 那里有cscwbook(计算机协同工作导论 史美林等编)下载,谢谢! 如何得到登陆到服务器上的所有机器IP地址 大家说说.....(高手快进) 菜单 如何实现在TabPage之间切换 有谁知道ActionList1控件是做什么用的吗? vb制作浏览器的问题 QuickRpt制作的报表存盘的问题。 请问在VB中如何做饼行图和柱状图? c++中ctor是什么意思? 关于数据库 对话框数据共享的问题 怎么让我的非模式对话框出现在屏幕中间 高程有无含金量 进程,线程。STA,MTA ,COM 对象之间的关系?请讲解一下,举一个例子。谢谢 {KDE}:我的KDE进不去了 返回值是动态数组的函数如何递归调用? 关于Tdatetimepicker的显示格式问题 谁能告诉我那里有visual c++ 6.0 技术内幕的光盘??? 关于JPEG和MJPEG??? 进程,线程。STA,MTA ,COM 对象之间的关系?请讲解一下,举一个例子。谢谢 一个关于动态链接库的问题 关于WEB共享的问题? Oracle8i不能登录,报告“凭证检索错误" 我想结束一个话题,回复次话题者得分。 密码忘了怎么办 数据库高手请进 关于AC97声卡(100芬) 如何将javascript对象中的内容保存到数据库中去???? 失恋了,非常郁闷,想散分都不行(各位开导开导) 在西文dos下,打开txt文件,并在屏幕上显示,怎么编程呀? 天理何在?为什么降我的信誉值,这个论坛谁说了算,出来说个理由。 Visual J++ 6.0的问题! 关于Word,IE等程序的设计模型问题? 在线等待BCB+Access 怎样实现如vc集成开发环境的控件窗口 关于asp.net控件使用中的一些问题 请问,怎样做出桌面动画(比如鸟在桌面上飞等等....) 文本处理里面可以包含图片么? 五(2)全班48人去划船,公园里大船每条坐6人,小船坐4人,一共租了9条船,租了大,小船各几条~快 指针万用表的1K是不是表示只能测比1K小的电阻那数字的呢?他们都是怎么接读数乘以倍率吗 用细绳AC和BC吊起一个重为100N的物体,两绳与竖直方向夹角如图所示 问:(1)细绳AC和BC受到的拉力各多大? 如何使用万用表测量电阻,电压,电流,与如何判断它们的好坏. 万用表测量电阻上的×1K,测的是什么?是千欧么?×10K?×100K呢? 用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和60°用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和45°,求两个绳子对物体拉 计数单位就是数位?是对还是错? 万用表测电阻时*1K以上档位正常,*100以下档位不准我用的是指针式的表,*100以下档位用来测电阻,指针统统指0再补充一下:*1K以上档位测电阻时,读数比较准确,而*100以下档位测电阻时指针一律指 用绳AC和BC吊起一重为100N的物体保持静止,AC、BC两绳与竖直方向的夹角分别为30°和60°.求:1.绳子的拉力各是多少?2.如果AC绳、BC绳能承受的最大拉力相同,逐渐增加物体的重力,则哪根绳先断? 探究加速度与力和质量的关系实验里,改变盘和砝码质量后需要重新平衡摩擦力吗? 有64名同学游园,一共租10只船,其中大船每只可坐8人,小船每只可坐4人,则大船和小船各租多少只 马()虎()猿()狮()犬()牛()龙()狼()羊()鸽()蝉()动物叫声! 多用电表的原理是什么?用它测电压,电流,电阻的时候,表笔的接法有什么区别?红黑表笔各接的是电源的哪 全班一共有38人,共租了8条船,大船成6人小船成4人.大小船歌租了几条? 巧填动词.狮()狼()鸡()马()牛()狗()鸟()鹤()虎()蝉() 探究力,加速度和质量的关系的实验中平衡摩擦力后,小车下滑时机械能是否守恒? 全班38人共租8条船大船坐六人小船做四人大小船各租几条、算术题,不要XY 一个圆柱体底面周长24厘米,它的高是7厘米,他的侧面积是多少 多用电表测电阻时,红黑表笔分别与多用电表电源哪一极相连?测电压是 哪个笔与外电源正极相连 共有76人去旅行,共租了8条船,这些船都坐满了,大船有( )条,小船有( )多少条.(大船限乘12人,小船共有76人去旅行,共租了8条船,这些船都坐满了,大船有( )条,小船有( )多少条.(大船 一个底面周长15.7厘米的圆柱体,侧面展开是一个正方形,那么圆柱体的侧面积是()平方厘米:如果沿底面直径把它平均切成两半,它的表面积增加()平方厘米 在探究加速度与力和质量关系实验中,如果平衡了摩擦力,则小车质量需不需要远大于砝码质量? 牛顿第二定律平衡摩擦力的问题如图,小车所受的合力F=T+mgsinθ-f=T请问mgsinθ这个东东怎么来的,我想了几个小时了!能画图最好, 用两根绳子吊起一重物,使重物保持静止,若逐渐增大两绳之间的夹角,则两绳对重物的拉力的合力变化情况是A.不变B.减小C.增大D.无法确定 万用表电阻档红黑表笔接触时电阻一般是多少 普通晶体管阻值一般为多少,用万用表电阻档R*1,R*10,R*100,R*1K,还是其他档? 两根绳子吊起一重物,重物保持静止,逐渐增大两绳间的摩擦间的夹角,两绳对重物拉力的合力变化情况是?需要有分析,简单就好 在实验探究加速度、力、质量的关系中,平衡摩擦力后,为什么每次实验时必须在满足小车上所加砝码的质量...在实验探究加速度、力、质量的关系中,平衡摩擦力后,为什么每次实验时必须在满 全班54人,共租了11只船,每只都坐满,大船能坐六人,小船能坐四人,问大小船各租了几只? 某游乐园租小船的票价比大船票价便宜4元,王老师租了5条大船,3条小船,共花了140元,每条大船的租金多少每条小船的租金多少元?把5条大船换成5条小船,王老师少付租金( )元,合计租金( ) 一个圆柱体的侧面积是18.84平方厘米,底面半径是3厘米,它的体积是( ) 54人去划船,共租11条船.每只大船坐5人,每只小船坐3人.租用大船和小船各几只? 同学们到公园划船,大船每条租20元,小船租金15元,一直同学们租大小船相等,花了455元,求租了大小船各多条 (方程解答) 物理实验题:“探究加速度与力、质量的关系”平衡摩擦力的步骤中,木板的倾斜角过大或过小有什么后果?如果有折线图就更好了. 将一根圆柱形钢材截下1/3,截下的这段钢材,它的侧面正好是正方形,正方形的周长是50.24厘米,原来钢材的体积是多少立方厘米?(得数保留整数)如果每立方厘米钢重7.8克,原来钢材重多少千克?(得 四年级有120名同学去划船,大船每条坐9人,小船每条坐5人,要求每条船上都坐满人,要租大船和小船各多少...四年级有120名同学去划船,大船每条坐9人,小船每条坐5人,要求每条船上都坐满人,要租 怎么在我的世界里 用小麦吸引牛啊 我把小麦拿手上,牛看我一眼走啦 写出每个式子的意思:小红家养鹅X只,养的鸭比鹅多10只,养的鸡是鸭的2倍.一.X+10.二.2(X+10) 三.X+X+10.四.2(X+10)-X.五.X+X+10+2(X+10) 如图所示,用绳AC和BC吊起一重物,绳与竖直方向的夹角分别为30°和60° AC绳所能承受的最大拉力为150N如图所示,用绳AC和BC吊起一重物,绳与竖直方向的夹角分别为30°和60° AC绳所能承受的最大拉 我的世界小麦可以吸引牛羊吗? 大船6人小船4人 一个圆柱体钢材截下3分之一,截下的这段钢材侧面正好是个正方形,此正方形周长50.24cm,原来圆柱体体积是? 工人用一个动滑轮提起重物,他在绳端用300牛的拉力竖直向上匀速提起重物不计动滑轮的重力和摩擦,则物体重_______________牛,若绳子自由端移动2米,则物体升高_________米 一个专业户养鸡480只,养鹅的只数是鸡的5分之2,是鸭的2分之1.养了多少只鸭 用绳AC和BC吊起一重物 绳子与竖直方向夹角分别为30度 60度 AC能承受的最大压力为150N BC能承受最大力为100求物体最大重力不能超过多少? 我的世界1.5.2小麦可以吸引什么就是想养动物但是不知道怎么让动物进我家 大船6人,小船4人 要锻造一个底面半径10厘米,高15厘米的圆柱体零件,需要接底面周长是4分米的正方形钢长多少米? 用动滑轮在20秒内将重300牛的重物匀速提升,所用的拉力是200牛,绳的自由端被拉上1米1.动滑轮的重力2.物体被提高的距离3.拉力做功4.拉力做功的功率 万用表DT9205测电流和电阻怎么使用?刚刚学怎么用表,麻烦写的简单明了些 .用细绳AC和BC吊起一重物,两绳于竖直方向的夹角AC为30°,BC为60°.AC绳能承受的最大拉力为150N,BC绳能BC绳能承受的最大拉力为100N,为使绳子不断开,所吊重物的质量不得超过多少(取G=10M/S平方) 怎样用万用表测量电压、电流和电阻(分别回答) 万用表电流档内电阻怎么算?书上说 万用表直流电流档各档的内阻为:500mA~1.5欧,100mA~7.5欧,准确度为2.5级,那个准确度2. 龙的叫声还有猿、虎、马、狮、犬、莺、狼的叫声,要 是 【词】 的【是要词的,如:虎··,【··】是要2个字的 奶牛,鸭,大象,农场,肥胖的,狐狸,狮子,猪,绵羊,用英文怎么读? 如何用万用表电阻档验证电容器的好坏,原理是什么,用电路暂态的有关知识解释如果指针偏转后不能返回原刻度,说明什么;如果指针偏转后返回速度很慢,说明什么。 用细绳AC和BC吊一重物,绳与竖直方向的夹角如图1-3所示AC能承受的最大拉力为100N,为使绳子不断裂,所吊物体的质量不得超过多少 奶牛用英语怎么读? 用打点计十器探究加速度与力的关系时,需要平衡摩擦力.平衡摩擦力时 应该使小车1.挂上钩码,拖上纸带,开打点计时器2.不挂钩码,拖上纸带,开打点计时器3.不挂钩码,不拖纸带4.挂上钩码,不拖 如图所示,用绳AC和BC吊起一重为113N的物体,两绳Ac,BC与竖直方向的夹角分别为30度和45度,求绳AC和BC对物体的拉力
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘