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中，怎樣尋找字串中的第N個指定字元的位置
注意函式 findstrn option explicit private sub command1 click dim s as string s abs01b902h9dso0h2e70de210j0q dim x as integer 第1個 0 的位置 x findstrn s,0 1 pr...
VB從右邊擷取字串，vb 中如何從字串的右端第n個位置開始擷取指定長度的字串
vb 從右邊擷取字串可以使用right函式 private sub command1 click s 1234567890 s1 right s,4 print s 的右邊4個字元是 s1end sub private sub command1 click 如果是數字有很多種方法可以實現 a 888...
vb中怎麼判斷字串中包含另字串
1 啟動vb新建工程1，在form1的合適位置畫出3個label框 2個text框以及1個command按鈕 可以預先對各控制元件的caption等屬性進行修改 2 雙擊 統計 即command1 按鈕，在彈出的 框中編寫如下 privatesubcommand1 click dimxasstrin...