好难注册 发表于 2013-5-22 11:30:00

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

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

iceman 发表于 2013-5-22 17:12:00

回复 1楼好难注册的帖子

好难注册你好，

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

    TXTextControl1.SelStart = -1
    TXTextControl1.SelLength = -1

好难注册 发表于 2013-5-27 14:39:00

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

iceman 发表于 2013-5-27 19:38:00

回复 3楼好难注册的帖子

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

iceman 发表于 2013-5-29 15:51:00

回复 3楼好难注册的帖子

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

Private Sub Command1_Click()

' 以下代码用于选取第一页最后一个字符
cur = TXTextControl1.CurrentInputPosition
deb = Str(cur(0)) + "-" + Str(cur(1)) + "-" + Str(cur(2))

' 设置当前光标位置
cur(0) = 2 ' 页
cur(1) = 1 ' 行
cur(2) = 0 ' 列

TXTextControl1.CurrentInputPosition = cur

TXTextControl1.SelStart = TXTextControl1.SelStart - 1

TXTextControl1.SelLength = 1

MsgBox Me.TXTextControl1.SelText

End Sub
页: [1]
查看完整版本: 如何获取指定页的最后一个字符位置