1樓：匿名使用者
只能通過**實現了，新增以下**就可以
private sub text1_keypress(keyascii as integer)
if (keyascii < 48 or keyascii > 57) _
and (keyascii < 65 or keyascii > 90) _
and (keyascii < 97 or keyascii > 122) _
and keyascii <> vbkeyback _
and keyascii <> 95 then
keyascii = 0
end if
end sub
2樓：匿名使用者
textbox 無法實現
richtextbox可以
private sub command1_click()for i = 1 to len(richtextbox1.text)
if asc(ucase(mid(richtextbox1.text, i, 1))) > 64 and asc(ucase(mid(richtextbox1.text, i, 1))) < 91 then
richtextbox1.selstart = i - 1richtextbox1.sellength = 1richtextbox1.
selunderline = trueend if
next i
end sub
vb如何設定文字框輸入只為大寫字母和數字
3樓：匿名使用者
vb可在文字框的keypress事件中判斷鍵盤輸入字元的keyascii引數做取捨。
keypress事件，此事件當使用者按下和鬆開一個 ansi 鍵時發生。
private sub form_load()
text1 = ""
end sub
private sub text1_keypress(keyascii as integer)
if keyascii >= 48 and keyascii <= 57 or keyascii >= 65 and keyascii <= 90 then
else
keyascii = 0
end if
end sub
4樓：血腥藍
private sub text1_keypress(keyascii as integer)
select case keyascii
case 8
'無變化,退格鍵不遮蔽
case asc(" ") '32if text1.sellength = 0 thenkeyascii = 0
end if
case is < asc("0") '48keyascii = 0
case is <= asc("9") '57case is < asc("a") '48keyascii = 0
case is > asc("z") '57keyascii = 0
end select
end sub
5樓：匿名使用者
keyascii = asc(ucase(chr(keyascii)))
select case keyascii
case 8
case is < 48
keyascii = 0
case is < 58
case is < 65
keyascii = 0
case is > 90
keyascii = 0
end select
在vb中文字框輸入怎麼把小寫自動轉換為大寫
6樓：匿名使用者
vb6.0可以文字框的keypress事件中判斷鍵盤輸入字元的keyascii引數做判斷來自動轉換。
keypress事件，此事件當使用者按內下和鬆開一個
容 ansi 鍵時發生。
private sub text1_keypress(keyascii as integer)
if keyascii >= asc("a") and keyascii <= asc("z") then
keyascii = keyascii - 32
end if
end sub
或者使用ucase函式在文字框的keypress事件中來轉換。
ucase 函式，返回 variant (string)，其中包含轉成大寫的字串。
private sub text1_keypress (keyascii as integer)
char = chr(keyascii)
keyascii = asc(ucase(char))
end sub
7樓：小傻
如果是介面裡面的話，需要對文字內容進行監聽，才能進行轉換。具體是可以識別是否有空格，
8樓：匿名使用者
ucase（）函bai數可以
du把字串中
zhi的小寫字元大寫dao
在回 change 事件裡轉換一答下
private sub textbox1_change()textbox1.text = ucase(textbox1.text)
end sub
9樓：管懷法騫仕
vb6.0可以文字框的keypress事件copy中判斷鍵盤輸入字元的keyascii引數做判斷來
自動轉換。
keypress事件，此事件當使用者按下和鬆開一個
ansi
鍵時發生。
private sub text1_keypress(keyascii as integer)
if keyascii >= asc("a") and keyascii <= asc("z") then
keyascii = keyascii - 32
end if
end sub或者使用ucase函式在文字框的keypress事件中來轉換。
ucase
函式，返回
variant
(string)，其中包含轉成大寫的字串。
private sub text1_keypress (keyascii as integer)
char = chr(keyascii)
keyascii = asc(ucase(char))
end sub
如何用jquery驗證文字框只能輸入字母數字和下劃線
10樓：0毛毛
用keycode應該可以實現限定只能輸入數字和下劃線
在vb中，怎麼限制text中的內容只能是數字或者字母，且限制輸入的個數。
11樓：匿名使用者
在響應事件時判斷輸入的字元是否符合要求，不符合則刪除或返回0
12樓：尚心部落
private sub form_load()text1.maxlength = 10 '限制輸入字元數end sub
private sub text1_keypress(keyascii as integer)
select case keyascii
case 48 to 57 '只能輸入數字case else
keyascii = 0
end select
end sub
13樓：匿名使用者
private sub form_load()
text1.text = ""
text1.maxlength = 11
end sub
private sub text1_keypress(keyascii as integer)
if keyascii = 8 or keyascii = 46 then exit sub
if keyascii >= 48 and keyascii <= 57 then exit sub
if keyascii >= 65 and keyascii <= 90 then exit sub
if keyascii >= 97 and keyascii <= 122 then exit sub
if keyascii = 13 then sendkeys ""
keyascii = 0
end sub
vb 變數c為文字框輸入的一個字元，判斷該字元是大小寫字母、數字還是其他變數，必須用到下面的程式**
14樓：泉水
樓主，你結尾差一個end sub
15樓：操
容易， 判斷它的asc碼
vb操作題輸入一個字串,統計大小寫字母和數字個數
vb文字框問題
private sub text3 lostfocus index as integer text3 1 selstart 0text3 1 sellength len text3 0 text end sub 你寫法有錯誤private sub text3 0 gotfocus 應該寫是 text...
css文字框輸入字型顏色,css文字框輸入字型顏色
直接設定placeholder的字型顏色為紅色就行了嘛，哪來的灰 紅？input input webkit input placeholder這樣就行了 直接設定placeholder的字型顏色為紅色就行可以了。比如 input input webkit input placeholder執行效果 ...
vb文字框陣列問題文字框1有12345文字框2有
private sub command1 click dim a1 as string,a2 as string,a3 as string,a4 as string dim i as integer,j as integera1 split text1.text,a2 split text2.tex...