VBA怎样实现TextBox1文本框写满后光标自动移动到TextBox2文本框里。

发布网友发布时间：2022-07-02 09:08

共1个回答

热心网友时间：2023-10-25 16:10

Private Sub TextBox1_Change()
Dim L&, i%, str$, arr(), StrL&
On Error Resume Next
L = TextBox1.Font.Size
str = TextBox1.Text
For i = 1 To Len(str)
    ReDim Preserve arr(i - 1)
    If Asc(Mid(str, i, 1)) < 0 Then
        arr(i - 1) = L * 2 * 0.6
    Else
        arr(i - 1) = L * 1 * 0.6
    End If
Next
StrL = Application.Sum(arr())
If StrL >= TextBox1.Width Then
    TextBox2.SetFocus
End If
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com