如何限制Textbox字數~當字數到了~換下一個Textbox

av8d

例如有Textbox1,Textbox2,Textbox3

Textbox1 限制字數1
Textbox2 限制字數4
Textbox3 限制字數4

我點選Textbox1
一次輸入5個數字411120848
Textbox1 出現 4
Textbox2 出現 1112
Textbox3 出現 0848

av8d

找到方法了~

1. Private Sub TextBox1_Change()
   
2.     If TextBox1.MaxLength = 1 Then
   
3.         TextBox2.SetFocus
   
4.     End If
   
5. End Sub

複製代碼

可是到這裡就卡住了
Private Sub TextBox2_Change()
    If TextBox2.MaxLength = 4 Then
        TextBox3.SetFocus
    End If
End Sub

當TextBox2輸入一個數字就會自動跳到TextBox3

目前無解中

c_c_lai

回復 2# av8d
這是你要的嗎？

1. Private Sub TextBox1_Change()
   
2.     If Len(TextBox1) = 9 Then
   
3.         TextBox2 = Mid(TextBox1, 2, 4)
   
4.         TextBox3 = Mid(TextBox1, 6, 4)
   
5.         TextBox1 = Left(TextBox1, 1)
   
6.     End If
   
7. End Sub

複製代碼

av8d

回復 3# c_c_lai


    謝謝大大的提示
目前需求解答如下
Private Sub TextBox1_Change()
    If Len(TextBox1) = 1 Then
        TextBox2.SetFocus
    End If
End Sub

Private Sub TextBox2_Change()
    If Len(TextBox2) = 4 Then
        TextBox3.SetFocus
    End If
End Sub

也學習了大大的方法~順帶詢問一下
TextBox2 = Mid(TextBox1, 2, 4)
TextBox3 = Mid(TextBox1, 6, 4)
的意思?

c_c_lai

回復 4# av8d

1. TextBox1 = "411120848"  '  假設之輸入值
   
2. 
   
3. TextBox2 = Mid(TextBox1, 2, 4)
   
4. TextBox2 = Mid("411120848", 第二個位置起開始，截取四位)
   
5. TextBox2 = "1112"
   
6. 
   
7. TextBox3 = Mid(TextBox1, 6, 4)
   
8. TextBox3 = Mid("411120848", 第六個位置起開始，截取四位)
   
9. TextBox3 = "0848"
   
10. 
    
11. TextBox1 = Left(TextBox1, 1)
    
12. TextBox1 = Left("411120848", 從左開始截取一位)
    
13. TextBox1 = "1"

複製代碼