返回列表 上一主題 發帖

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-11-12 08:48 | 顯示全部帖子

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

例如有Textbox1,Textbox2,Textbox3

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

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

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2013-11-12 10:10 | 顯示全部帖子
本帖最後由 av8d 於 2013-11-12 10:37 編輯

找到方法了~
  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

目前無解中

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2013-11-12 10:47 | 顯示全部帖子
本帖最後由 av8d 於 2013-11-12 10:48 編輯

回復 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)
的意思?

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題