VB中CharUpperBuff()的用法

在VB中经常用到字母的大小写转换，CharUpperBuff()是把小写字母转化为大写字母的api 函数，使用前需要声明；

Private Declare Function CharUpperBuff Lib "user32" Alias "CharUpperBuffA" (ByVal lpsz As String, ByVal cchLength As Long) As Long

其中的参数lpsz是你要进行转换的字符串变量；

cchlength是你要进行转换的字符串长度变量；

从第一个字符算起，把长度变量指出的一定长度的小写字符转换为大写字符，如果遇到了非小写字符（其他符号和大写字符）就忽略过去。

例如：

Dim c1 As Integer 

Dim s1 As String 

Private Sub Command1_Click()
s1 = Text1.Text
c1 = 5
CharUpperBuff s1, c1
Text2.Text = s1

End Sub

意思是从头开始把text1中的前5个字符变成大写如果有小写的就转化为大写，如果已经是大写了就忽略。c1也可以大于s1的实际字符数而不报错。