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擷取字串函式，vb程式設計怎麼擷取字串？
文字框的值可以用變數代替 四個文字框 t0身份證資訊,t1取得 省前字元,t2取 省和市之間字元,t3取 市到縣之間字元 主要是計算 省市縣在不定長字串中的位置 一取 省 前字元 t1.value mid t0.value,1,instr t0.value,省 1 取省到市 之間字元到t2 t2.v...
VB如何擷取指定字元後面的N個字元
1 trim c 去掉字串c兩端的空格。2 left c,n 擷取c最左邊的n個字元。3 right c,n 擷取c最右邊的n個字元。4 mid c,m,n 擷取c中從第m個字元開始的n個字元。5 len c 返回c包含的字元數，漢字空格都算一個字元。6 lcase c 將c中的大寫字母轉化成小寫字...
vb程式設計怎麼擷取字串
己曼寒 使用mid函式 引數1是文字內容 引數2是起始位置 引數3是擷取的數量 private sub command1 click msgbox mid text1.text,val text2.text val text3.text val text2.text 1 end sub 你自己的 問...