中科新闻网仙华山旅游:VB 文本间的转换
来源：百度文库 编辑：中科新闻网 时间：2024/05/09 11:07:18
在text1中输入任意的字符和数字时,在text2中自动转换,大写字母转换为小写字母,小写字母转换为大写字母,数字及其他字符自动转换成"@",比如AbcdEf123转换为aBCDeF@@@
部分代码是这样的
option Explicit
-----------------------
private sub text1_keypress(keyAscii as integer)
dim aa as string*1
dim length as integer
length_____
aa=chr$(keyascii)
select case aa
case "A" to "Z"
aa=______
case "a" to "z"
case "____"
case Else
______________
end select
_______________
end sub
大家救命啊！！！！！！
部分代码是这样的
option Explicit
-----------------------
private sub text1_keypress(keyAscii as integer)
dim aa as string*1
dim length as integer
length_____
aa=chr$(keyascii)
select case aa
case "A" to "Z"
aa=______
case "a" to "z"
case "____"
case Else
______________
end select
_______________
end sub
大家救命啊！！！！！！
option Explicit
-----------------------
private sub text1_keypress(keyAscii as integer)
dim aa as string*1
dim length as integer
length=len(text1)
aa=chr$(keyascii)
select case aa
case "A" to "Z"
aa=chr(keyAscii-32)
case "a" to "z"
aa=chr(keyAscii+32)
case Else
aa="@"
end select
text1=text1 & aa
end sub