VB怎样实现按方向键，光标在控件TEXT1和TEXT2之间移动

来源：百度知道 编辑：UC知道 时间：2024/05/18 02:42:07
当在文本框TEXT1控件里有输入字符时候
光标在字符间移动
当文本框没有字符时
光标在文本框控件text1和text2之间移动
请问具体如何实现
给思路或给代码都行

还有说明一下，以下代码是无法实现上述功能的
光标只会在字符间移动，移动到TEXT2就是不行
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then
Text2.SetFocus
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text = "" And KeyCode = 39 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If Text2.Text = "" And KeyCode = 39 Then
Text1.SetFocus
End If
End Sub

以下代码是用文本框实现的，RichTextBox同样处理。
vb '获得光标所在的行和列
' 一般的比较完善的文本编辑器一般都有在状态栏中显示当前光标所在行和列的功能?利用SendMessage向TextBox
'控件发送编辑控件类型消息。也可以实现这样的功能。下面首先来看程序，然后再分析。
' 首先在VB中建立一个新工程，并在Form1中加入一个TextBox控件和两个Label控件。将TextBox控件的MultiLine
'属性设置为True?然后在Form1的代码窗口中加入如下代码:

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Declare Function