回复 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
复制代码 |