让光标在各文本框内自由移动的函数

这是一个早期写的函数,用于解决技术群里一个网友提出的问题.

他的问题是这样的,在一个VB窗体中,有多个文本框,用户需要在文本框里输入一些值,为了使用

方便,最好是能使用键盘来控制光标落,以便在这若干个文本框之间漫游,即,如果光标移到了文本框的开头,

此时按下左箭头,则光标移到上一个文本框中;反之,如果光标在文本框的结束位置,此时按下右箭头,则光标移动

下一个文本框中.

我给出的解决方式是一个小函数, 第一个参数obj是当前的文本框,第二个参数Tar是目标文本框,

第三个参数是键盘代码.

Private Sub NewControl()Sub NewControl(obj As TextBox, Tar As TextBox, KeyCode As Integer)
     Dim intPos As Integer    '光标位置
     Dim strLeft As String    '光标左边的字符
     Dim strRight As String   '光标右边的字符
    
     If obj.Text = "" Then
         Exit Sub
     End If
    
     intPos = obj.SelStart
     If intPos = 0 Then   '最开头
         If KeyCode = vbKeyLeft Then      '按下左箭头
             Tar.SetFocus
             Exit Sub
         End If
     End If
    
     If intPos = Len(obj.Text) Then     '在最后
         If KeyCode = vbKeyRight Then     '按下右箭头
             Tar.SetFocus
             Exit Sub
         End If
     End If
    
     If intPos > 1 Then
         strLeft = Mid(obj.Text, intPos - 1, 1)
     End If
     If intPos < Len(obj.Text) Then
         strRight = Mid(obj.Text, intPos + 1, 1)
     End If
     If strLeft = Chr(13) Then            '左边是换行,表示光标在行首
         If KeyCode = vbKeyLeft Then      '这时按左箭头,则切换
             KeyCode = 0
             Tar.SetFocus
             Exit Sub
         End If
     End If
    
     If strRight = Chr(13) Then           '右边是回车,表示光标在行尾
         If KeyCode = vbKeyRight Then     '这时按右箭头,则切换
             KeyCode = 0
             Tar.SetFocus
             Exit Sub
         End If
     End If

End Sub