1樓：
在keypress中加入：
if keyascii=8 then exit sub '按的是刪除鍵則不處理
if lenb(text1.text)+iif(keyascii<0,2,1)>限定位元組數 then keyascii=0 '當keyascii<0時輸入的是兩位元組的字元（如漢字）
2樓：匿名使用者
給你一個簡單的辦法：
private sub text1_change()dim l as integer, i as integerfor i = 1 to len(text1.text)if asc(mid(text1.text, i, 1)) > 0 then
l = l + 1
else
l = l + 2
end if
next i
if l > 10 then msgbox "輸入長度超標！"
end sub
3樓：匿名使用者
option explicit
private sub text1_keypress(keyascii as integer)
dim strd as string
strd = strconv(text1, vbfromunicode)
if lenb(strd) >= 8 then keyascii = 0'假如限定8個位元組,注意英漢搭配時,位元組數的限定
end sub
4樓：匿名使用者
private sub text1_keypress(keyascii as integer)
if keyascii = 8 then exit subif lenb(text1) >= 4 then keyascii = 0
end sub
5樓：
只能輸入 4 位元組數的例子：
private sub text1_change()dim nstr as string
nstr = text1.text '假如是： "12控制元件"
nstr = strconv(nstr, vbfromunicode)
nstr = leftb(nstr, 4)text1.text = strconv(nstr, vbunicode) '返回：12控
end sub
vb中在text中輸出的資料,怎麼限制其輸出位數 求救
有點記不清了.在屬性視窗中就可以設定的.或是在text change 動作中新增 判斷然後截斷 iflen text1.text 5 then msgbox 只允許輸入5位字串 text1.text substring text1.text,0,5 endif 好像是這樣,很久沒寫vb了 設定tex...
vb中如何讀取textbox中某一行內容
最好是放在listbox中，方便，如果你非要用textbox，你可以嘗試下面的 文字最後不能有空行，否則會有空白 參考private sub command1 click dim a dim i as integer a split trim text1.text vbcrlf randomize ...
vb輸入三位數顯示倒序，如何使用vb程式設計輸入一個三位數，將其倒序輸出？
dim s,n,m,p,t as stringif isnumeric text1.text thenn text1.text m n 100 s n mod 100 10 t n mod 100 mod 10p t s 10 m 100text2.text p text1.text strreve...