因为TextBox对象没有提供按行跳转函数,所以笔者写了如下函数。
思路:计算跳转行之间的总字符数,再利用textbox的按字符跳转功能。
Friend Sub txtGoto(ByRef sender As TextBox, ByVal DestLineNo As Integer)
'文本框的按行跳转功能 徐应成
Dim charCount As Integer<
因为TextBox对象没有提供按行跳转函数,所以笔者写了如下函数。
思路:计算跳转行之间的总字符数,再利用textbox的按字符跳转功能。
Friend Sub txtGoto(ByRef sender As TextBox, ByVal DestLineNo As Integer)
'文本框的按行跳转功能 徐应成
Dim charCount As Integer<