admin 管理员组

文章数量: 1087135


2024年1月4日发(作者：数据分析师好考吗)

VB中字母大小写转换的三种方法

方法一：用VB的函数LCase和UCase

用三个TextBox来展现一下这两个函数的大小写转换功能[运行之前在TextBox1中输入几个大写字母，也可混合输入]：

PrivateSubCommand1_Click()

=LCase()'将Text1的文本全换成小写

=UCase()'将Text1的文本全换成大写

EndSub

说明：

LCase仅将是大写的转换为小写，UCase则仅将是小写的转换为大写，故当字符串中有其它不符合转换的内容时将对其忽略。可以在TextBox1中输入汉字、阿拉伯数字等观察效果。

方法二：用API函数

user32提供两个用于大小写转换的API函数：Charlower[大写-小写]、Charupper[小写-大写]，其原形分别为：

DeclareFunctionCharLowerLib"user32"Alias"CharLowerA"(ByVallpszAsString)AsLong

DeclareFunctionCharUpperLib"user32"Alias"CharUpperA"(ByVallpszAsString)AsLong

继续用三个文本框来观察效果：

PrivateSubCommand1_Click()

DimaAsString

a='给变量赋初值

CharUppera'变为大写

=a

CharLowera'变为小写

=a

EndSub

说明：与方法一的效果完全一样。实际上，VB的LCase和UCase函数调用的也就是这两个API函数，是封装了这两个API函数的内部函数。

方法三：用算法

可以利用Ascii码对大小写字母字符代码的定义来强制输入的字母只能为大写的或者小写的，而不管CapsLock键是打开的还是关闭的。就象安装Windows时用户输入CD-KEY一样。请看：

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

'输入的字母通通为小写

IfKeyAscii>64AndKeyAscii<91ThenKeyAscii=KeyAscii 32

EndSub

PrivateSubText2_KeyPress(KeyAsciiAsInteger)

'输入的字母通通为大写

IfKeyAscii>96AndKeyAscii<123ThenKeyAscii=KeyAscii-32

EndSub

说明：在Ascii字符集里，大写A--Z对应于字符代码65--90，小写a--z对应于97--122。以A为例，小写a[95]与大写A[65]的字符代码相差32，其它字母也是如此。当然可以借此编制一个函数来完成象方法一、二一样将字符串进行大小写互换，略显复杂些，也没什么必要。


本文标签： 大写 转换 函数 输入 小写

版权声明：本文标题：VB中字母大小写转换的三种方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1704298188a453673.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。