限制Tk條目小部件中輸入字符的數量

Question

在TCL中，如何限制entry小部件中輸入字符的數量？

我有一個用戶可以輸入一些文本的TCL字段，我希望限制文本的長度（例如不超過30個字符）。

有沒有什麼選擇呢？

Answer 1

入口驗證回調是方式，而%P替換是關鍵。從the docs：

％P
項的值，如果編輯被允許。如果您將條目窗口小部件配置爲具有新的文本變量，則這將是該文本變量的值。

這意味着我們做的只是這一點：

pack [entry .e -width 50 -validate all -validatecommand { 
    expr {[string length %P] <= 30} 
}] 

你去那裏，你將無法做任何編輯，這使得它的長度去了30（小部件這可能是最好的還添加一個-invalidcommand規範，以便用戶可以找出發生了什麼。）

Answer 2

我不認爲有一個，但你可以按照如下的輸入小工具使用驗證：

package require Tk 

pack [entry .e -validate all -validatecommand {max_length %s 30 %d}] 

proc max_length {val max act} { 
    if {[string length $val] >= $max && $act == 1} { 
    return 0 
    } 
    return 1 
} 

輸入框會嘗試驗證每個條目，並將當前字符串%s和動作%d到proc命名爲max_length

在這個過程中，檢查長度和動作。如果長度大於30並且動作是1（表示插入），則proc將返回0，從而停止再次插入。