如何获取指定页的最后一个字符位置

如何获取指定页的最后一个字符，若当前页为第一页，我要获取第三页的最后一个字符

回复 1楼好难注册的帖子

好难注册你好，

可以通过 TXTextControl1.CurrentInputPosition 设置当前页为 第三页，然后通过以下代码选择最后一个字：

1. 
   
2.     TXTextControl1.SelStart = -1
   
3.     TXTextControl1.SelLength = -1
   

复制代码

这个只能取整个文档的最后一个字符

回复 3楼好难注册的帖子

你好，
确实如此，问题我已经提交给厂商，正在处理中。

回复 3楼好难注册的帖子

以下代码用于选取第二页最后一个字符：

1. 
   
2. Private Sub Command1_Click()
   
3. 
   
4. ' 以下代码用于选取第一页最后一个字符
   
5.   cur = TXTextControl1.CurrentInputPosition
   
6.   deb = Str(cur(0)) + "-" + Str(cur(1)) + "-" + Str(cur(2))
   
7. 
   
8.   ' 设置当前光标位置
   
9.   cur(0) = 2 ' 页
   
10.   cur(1) = 1 ' 行
    
11.   cur(2) = 0 ' 列
    
12.   
    
13.   TXTextControl1.CurrentInputPosition = cur
    
14.   
    
15.   TXTextControl1.SelStart = TXTextControl1.SelStart - 1
    
16.   
    
17.   TXTextControl1.SelLength = 1
    
18.   
    
19.   MsgBox Me.TXTextControl1.SelText
    
20.   
    
21. End Sub
    

复制代码