1樓：匿名使用者
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
2樓：血腥藍
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
3樓：匿名使用者
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中文字框輸入怎麼把小寫自動轉換為大寫
4樓：匿名使用者
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
5樓：小傻
如果是介面裡面的話，需要對文字內容進行監聽，才能進行轉換。具體是可以識別是否有空格，
6樓：匿名使用者
ucase（）函bai數可以
du把字串中
zhi的小寫字元大寫dao
在回 change 事件裡轉換一答下
private sub textbox1_change()textbox1.text = ucase(textbox1.text)
end sub
7樓：管懷法騫仕
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
c文字框只能輸入數字，C 文字框只能輸入數字
大野瘦子 如下 呼叫textbox的keypress事件 private void txtuserid keypress object sender,keypresseventargs e 如果輸入的不是數字鍵，也不是回車鍵 backspace鍵，則取消該輸入 if char.isnumber e....
vb程式，怎麼樣統計文字框中大寫英文字母 小寫英文字母及數字的個數
text2設定多行private sub command1 click dim i as integer,s as string,arr 1 to 5 as integer for i 1 to len text1 s mid text1,i,1 select case s case a to z ...
VB中如何通過在文字框中輸入時間日期然後直接賦值給系統時間日期，從而達到修改系統時間的目的
這裡的關鍵點是使用isdate 函式判斷輸入的是不是正確的日期時間格式。如果正確，則使用date語句和time語句設定系統的日期和時間。如下 private sub command1 click if isdate text1.text then 設定系統日期和時間 date format cdat...