在richtextbox中如何把光标移到你所要的行？

[Fifa19972003]

类似于Word中的定位功能，可以定位到用户所输入的行，即用户输入数字，单击定位键后，程序把光标移到那一行？类似的，如何定位到　节　呢？
另外，Word中的查找功能中，当查找到的内容被查找窗口挡住后，查找窗口会自动移开，请问，这样的功能是如何实现的？
呵呵，先问这么多，我刚学VB，好多不懂，请各位高手解答的稍微详细点，另外我再问一句，我今天刚注册来，可我的可用分怎么这么少啊？这怎么够用啊？怎样加可用分啊？

唉，刚学VB不久，好多地方搞不清楚，听说这里高手很多，特来看看，希望能和大家交个朋友，多多交流（一个人看书太没意思了），我的信箱：[e-mail]

[NYN]

RichTextBox1.SelStart = 1
就是说把光标移动到第一个字符

每天加10分,我一年前注册现在分数已经由3000多了.所以早注册早合算.多注册多合算.

[Fifa19972003]

to NYN(流陨落):
把光标移动到第一个字符，然后怎么办啊？难不成把光标一个字符一个字符的往后移，然后判断是否到了另一行了？(不会吧？)
另外，怎么判断到了另外一节了？判断是否是回车符吗？
还有一个问题呢？没有人指点一下吗？

我顶~~~~

[guoeyond]

RichTextBox1的SelStart属性其实是从RichTextBox的文本中定义起点,然后你可以用SelLength设置长度,然后取出部分文本对其格式进行设置,如字体、颜色。其实也不能实现定位的功能。
至于第二个问题，也不是很好实现。所以用RichTextBox实现你提出的问题还是比较困难的。

[Fifa19972003]

真得不行吗？那别人是怎么实现的？真是奇怪，我再顶~~~~~~~

[Arcan]

可以这样，用二分法测试不同的位置在第几行，然后用selstart定位到这个位置。
不知道有没有别的更好的办法，反正我都是这样实现的。

[happybeyond]

i=richtextbox.find(char(10))'找回车符
richtextbox.selstart=i
应该可以定位到行了，剩下的你自己编一下！

[freelazy]

好象 api 里有个能判断总共有多少行，每行有多少个字符的，第一个可见行是第几行的,光标是在第几行第几列的.......

大概和 charfrompos之类的有关吧，你查一下msdn,ok?

[Fifa19972003]

唉，给点思路吧，有没有更好的定位方法啦？没想到定位这么烦。如果真的如楼上的这位 Arcan(Arcan)　同志所说的那样，那不是要先找到这一行，再移到行首？

而happybeyond(马丁)同志所说的，我刚试了一下，呵呵，只能移动到一节，不过可以定位到节了，但还是不能定位到行，请继续帮忙

还有第二个问题呢？楼上有位同志说不好解决，那就给点思路吧！是不是得到查找窗口的方位大小，和所选的文本位置进行比较？如果重叠就移开窗口？

一个小时后我再来看，请各位高手帮忙
多谢freelazy(懒人)帮忙，我会多过你分的，多谢

[shawls]

我好像看过，sendmessage做的，我找找～～

[shawls]

设定的话，应该差不多，找找sendmessage关于richtextbox的相关函数

[名称] CSDN_文档中心_取得TextBox、RichTextBox光标所在的行和列(

[数据来源] 未知

[内容简介]
http://www.csdn.net/develop/Read_Article.asp?Id=16318

[源代码内容]

取得TextBox、RichTextBox光标所在的行和列(支持中文) ASPBIT（原作）

关键字 行,列,TextBox,RichTextBox,光标



'************************************************************
'功能：取得TextBox、RichTextBox光标所在的行和列
' 支持中文，一个汉字算一列
' 有问题请给我写邮件
'作者：Matrix
'邮件：[e-mail]
'************************************************************
Option Explicit
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
Private Declare Sub CopyMemory Lib "kernel32" Alias _
"RtlMoveMemory" (pDst As Any, pSrc As Any, _
ByVal ByteLen As Long)

Private Const WM_USER = &H400
Private Const EM_EXGETSEL = (WM_USER + 52)
Private Const EM_LINEFROMCHAR = &HC9
Private Const EM_LINEINDEX = &HBB

Private Type CHARRANGE
cpMin As Long
cpMax As Long
End Type

'取得光标所在的列
Public Function GetCurCol(ByVal hWnd As Long, ByVal Text As String) As Long
Dim LineIndex As Long
Dim SelRange As CHARRANGE
Dim TempStr As String
Dim TempArray() As Byte
Dim TempText() As Byte
TempArray = StrConv(Text, vbFromUnicode)

'取得当前行第一个字符的位置
LineIndex = SendMessage(hWnd, EM_LINEINDEX, -1, 0)
'取得当前被选中文本的位置 适用于 RichTextBox
'TextBox 用 EM_GETSEL 消息
Call SendMessage(hWnd, EM_EXGETSEL, 0, SelRange)
If SelRange.cpMin - LineIndex = 0 Then
GetCurCol = 1
Else
TempStr = String(SelRange.cpMin - LineIndex, 13)
'复制当前行开始到选择文本开始的文本
CopyMemory ByVal StrPtr(TempStr), ByVal StrPtr(TempArray), SelRange.cpMin - LineIndex
TempText = TempStr
'删除无用的信息
ReDim Preserve TempText(SelRange.cpMin - LineIndex - 1)
'转换为 Unicode
TempStr = StrConv(TempText, vbUnicode)
GetCurCol = Len(TempStr) + 1
End If
End Function

'取得光标所在的行
'此函数非原创
Public Function GetCurRow(ByVal hWnd As Long) As Long
Dim LineIndex As Long
'wParam参数设置为-1 取得当前行的字符位置
LineIndex = SendMessage(hWnd, EM_LINEINDEX, -1, 0)
'根据参数wParam指定的字符位置返回该字符所在的行号
GetCurRow = SendMessage(hWnd, EM_LINEFROMCHAR, LineIndex, 0) + 1
End Function

[Arcan]

可以直接找到行首。

[Fifa19972003]

先感谢一下楼上同志。
我先研究一下先
还有第二个问题，请高手啊给个思路
如果一切顺利，明天晚上结贴算分

[mywangwei2002]

我来小结一下，用Arcan(Arcan)所说的二分法找到所要到的行，然后用shawls(VB Fan)(QQ:9181729)所说的方法把光标移到行首，[Arcan(Arcan)你说可直接找到行首，怎么找啊？我不会。能否给点提示？]不知道这样对不对啊？
对第二个问题，怎样知道所选文本的坐标啊？
大家快点帮忙，搞定就结分

[laocai8]

先得到查找到字符串的坐标,将查找窗口的顶点坐标设置为小于或大于这个位子,我没试过.