求解答 页面实现一键定位，并且把获取的地理位置显示jq光标定位到文本框框中

来源：蜘蛛抓取(WebSpider) 时间：2016-09-23 03:40 标签： 光标定位到可写文本框
请大家帮忙，selenium中如何定位到frame下的form中的文本框中？感谢！_百度知道在？你怎么实现js页面一键定位，并且把获取的地理位置显示到文本框中_百度知道jsp页面如何打开就将光标定位到页面上的唯一文本框里_百度知道菜鸟求助：获取类似文本框窗口中光标所在位置的字符串有这么一个想法不知能不能实现：1、我发现某个程序中有一个输入框有点类似vb6的文本框，那个窗口的句柄可以获得，怎么样才能获取其中的光标所在位置的字符串？2、能不能用一个textbox的类模块来与那个窗口进行绑定，当窗口中输入的字符发生变化时，类模块自动响应3、能不能向其中任意位置输入某些字符？求高人给点提示或解决方案，先谢谢啦。。。。。。。
回答1：　　VB code　　'****************************************************************************
'恶魔界 -- 精心为你挑选,软件,VB源码,游戏,技术文章。总之很经典·····
'发布日期：09/01/24/
述：查看记事本中的单词
站：'E-mail：
'经过在三考虑，本站决定，开启投稿机制(邮箱)，欢迎广大高手投稿！
'如果觉得本站好的话，就宣传下！
'有什么好的源码，记得发给 恶魔界 哦！
'感谢您使用本站源码，如果方便的话请给于本站一点支持，(点击一下广告)谢谢。
'****************************************************************************
Option Explicit
Private Const EM_CHARFROMPOS& = &HD7
Private Type POINTAPI
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 Function RichWordOver(rch As RichTextBox, X As Single, Y As Single) As String
Dim pt As POINTAPI
Dim pos As Integer
Dim start_pos As Integer
Dim end_pos As Integer
Dim ch As String
Dim txt As String
Dim txtlen As Integer
pt.X = X \ Screen.TwipsPerPixelX
pt.Y = Y \ Screen.TwipsPerPixelY
'获得字符的位置。
pos = SendMessage(rch.hWnd, EM_CHARFROMPOS, 0&, pt)
If pos &= 0 Then Exit Function
txt = rch.Text
For start_pos = pos To 1 Step -1
ch = Mid$(rch.Text, start_pos, 1)
If Not ( _
(ch &= &0& And ch &= &9&) Or _
(ch &= &a& And ch &= &z&) Or _
(ch &= &A& And ch &= &Z&) Or _
ch = &_& _
) Then Exit For
Next start_pos
start_pos = start_pos + 1
txtlen = Len(txt)
For end_pos = pos To txtlen
ch = Mid$(txt, end_pos, 1)
If Not ( _
(ch &= &0& And ch &= &9&) Or _
(ch &= &a& And ch &= &z&) Or _
(ch &= &A& And ch &= &Z&) Or _
ch = &_& _
) Then Exit For
Next end_pos
end_pos = end_pos - 1
If start_pos &= end_pos Then _
RichWordOver = Mid$(txt, start_pos, end_pos - start_pos + 1)
End Function
Private Sub Form_Load()
RichTextBox1.Text = &
Wecome to emj-h& & _
vbCrLf & vbCrLf & &
come on! come on!& & _
vbCrLf & vbCrLf & &
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = &&
Private Sub RichTextBox1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim txt As String
txt = RichWordOver(RichTextBox1, X, Y)
If Label1.Caption $<$ txt Then
Label1.Caption = txt
If txt = && Then
Label1.Caption = &&
回答2：下图是 第一个 程序FindWindow去调取 第二个 不同程序的窗口里面的 TextBox我只帮你做第一部分获取光标位置 其它你自己再花时间继续搞吧,获取TextBox文字内容也已替你写好了.需要代码的话上QQ我发给你,(两个程序的代码 在此不好贴)
回答3：ｌｚ，他们都不看题目说什么，张嘴就来．．．．又跨进程又想实现你那种操控方法，是个比较复杂的内容
liulihui000000
回答4：咋听起来有点像木马
同步的解决, 先决条件是 你要指定的那个窗口类是 Edit 等可写入的才能同步更新'********获取该窗口的内容贴到本地的 Text1Private Sub Command1_Click()
Phwnd = FindWindow(vbNullString, &隔岸观火&)JS常用函数：当文本框获取焦点时，将光标定位到文本框里字符串的末尾 - JavaScript - JS函数 - 天使建站
当前位置：&&&
JS常用函数：当文本框获取焦点时，将光标定位到文本框里字符串的末尾
和大家分享一个非常有用的JS函数，可以让网页里的文本框在获取焦点时，让光标定位到文本框里的字符串的末尾，下面是这个JS函数的具体源码：&SCRIPT language=&javascript&&
CaretAtEnd(field){
if(field.createTextRange){
var r= field.createTextRange();
r.moveStart('character', field.value.length);
r.collapse();
r.select();//加上这一句是使文本框里的文字为选中状态
&/SCRIPT& 上面这个函数使用起来也是非常简单的，看正面的使用实例：&INPUT TYPE=&text&
VALUE=&我爱天使建站&
ONFOCUS=&CaretAtEnd(this)&&
本文&JS常用函数：当文本框获取焦点时，将光标定位到文本框里字符串的末尾&的内容摘要为：当文本框获取焦点时，将光标定位到文本框里的字符串末尾的JS函数&&由天使建站[]首发，转载请说明！
其他用户阅读&JS常用函数：当文本框获取焦点时，将光标定位到文本框里字符串的末尾&的同时也阅读了：
[:774]& []
[:774]& []
[:570]& []
[:199]& []
[:106]& []
[:26217]& []
[:199]& []
与&JS常用函数：当文本框获取焦点时，将光标定位到文本框里字符串的末尾&同栏目下的站长推荐阅读：
[:143]& []
[:1001]& []
[:874]& []
[:1098]& []
[:455]& []
[:307]& []
[:197]& []
[:1226]& []
[:1923]& []
与&JS函数&相关的栏目
与&JS函数&相关的专题
& & & & & & & & & &
热点文章推荐
& & & & & & & & & & & & & & & & & & & &
如果您需要建设网站、WEB程序定制或者现有网站改版，可以联系QQ：
天使建站 非常感谢您的到来!希望本站能对您有所帮助！
天使建站为您提供ASP、PHP、js、jquery、ajax等与网站开发相关的教程，实例与源码下载,打造最专业的站长交流和学习的免费平台
豫ICP备号-1 版权所有&
最后更新时间：

我要回帖

更多关于 光标定位到可写文本框 的文章

 

随机推荐