1樓：veket的小號
maxlenth屬性設為5
或者keypress事件
private sub text1_keypress(keyascii as integer)
if len(text1.text) = 5 thenif keyascii <> 8 then 'ascii碼為8的是 退格刪除鍵
keyascii = 0
end if
end if
end sub
2樓：匿名使用者
還有一種實現方法：
給文字框新增一個變化動作函式
private sub textbox1_change()var = textbox1.text
if len(var) >= 5 thentextbox1.text = left(var, 5)end if
end sub
附件是在vba裡實現的效果
3樓：難得糊塗
『簡單一句：
if len(text1) > 5 then text1 = left(text1, 5): text1.selstart = 5: text1.sellength = 5
vb中如何輸入文字框文字輸入4個字元，在這4個字元後加上一個-？
4樓：匿名使用者
private sub text1_change()
if len(text1.text) = 4 then text1.text = text1.text & "-"
end sub
5樓：匿名使用者
我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段**貼上執行就可以了。。我想了3種方法，，一個個都試了，最後還是這個分配陣列的比較正確~
dim cl as boolean
private sub form_load()
text1.text = ""
end sub
private sub text1_change()
on error resume next
if cl = true then
cl = false
else
dim a() as string
a = split(text1.text, "-")
if len(text1.text) = 4 then
text1.text = text1.text & "-"
else
if len(a(ubound(a))) > 4 then
redim preserve a(ubound(a) + 1)
a(ubound(a)) = right(a(ubound(a) - 1), len(a(ubound(a) - 1)) - 4)
a(ubound(a) - 1) = left(a(ubound(a) - 1), 4)
else
end if
if len(a(ubound(a))) < 4 then exit sub
for p = 0 to ubound(a)
v = v & a(p) & "-"
next
cl = true
text1.text = v
end if
text1.selstart = len(text1.text)
end if
end sub
private sub text1_keydown(keycode as integer, shift as integer)
if keycode = 8 then
if right(text1.text, 1) = "-" then
cl = true
end if
end if
text1.selstart = len(text1.text)
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 45 then
keyascii = 0
end if
end sub
vb怎樣禁止text1中輸入特殊字元
private sub text1 change dim s as string,ss as long,l as long s 需要禁止的字元都放這裡吧ss text1.selstart for i 1 to len s l len text1.text text1.text replace tex...
VB中如何輸入文字框文字輸入字元，在這字元後加上
private sub text1 change if len text1.text 4 then text1.text text1.text end sub 我精心寫了一段哦！現在針對的是text1這個控制元件只需要放一個text1控制元件在窗體上在複製這段 貼上執行就可以了。我想了3種方法，一個...
vb怎麼獲取文字框裡的字串，VB怎麼獲取文字框裡的字串
先定義一個變數，然後將變數設定為文字框的內容即可。如下 以獲取text1控制元件為例 dim str1 as string 定義字元變數private sub text1 change 當text1字元改變時 str1 text1.text 設定為文字框的字串end sub dim a as str...