你可以用ucase 或lcase函数 ucase()将字符串转换成大写 lcase()将字符串转换成小写 你可以把要比较的字符串都转换成大写或小写再比较,就可以实现忽略大小写了。 例如你的程序就可以这么写 Private Sub Cmd1_Click() If UCase(Text1.Text) = UCase("abcdef") Then MsgBox "相等!" End Sub
程式可以这样来写 Private Sub Cmd1_Click() If UCase(Text1.Text) = “ABCDEF” Then MsgBox "OK" ,VbOkOnly,App.Title End If End Sub
这样就可以忽略输入字符串的大小写了。
第2个回答 2007-09-30
可以用LCase()函数转换一下. 如: private sub cmd1_click() if LCase(text1.text)="abcdef" then msgbox"abcdef",vbinformation+vbokonly end if end sub text1.text的值可以大小写不必区分,但要求text1.text的值和等号后的值相符,即 "abcdef"