扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
可以试着用典型的VB字符串函数UCase解决。
成都创新互联公司专注于网站建设|成都网站维护|优化|托管以及网络推广，积累了大量的网站设计与制作经验，为许多企业提供了网站定制设计服务，案例作品覆盖轻质隔墙板等行业。能根据企业所处的行业与销售的产品，结合品牌形象的塑造，量身开发品质网站。
比如先把输入的内容放到字符串A$中，若A$="a",则经
A$=UCase(A$)转换后，结果即是A$="A"。
我在程序中是这麽处理的。行不行，试试就知道了。
VB6.0可使用UCase 函数可将小写字母变成大写。
UCase 函数，返回 Variant (String)，其中包含转成大写的字符串。
UCase 函数示例
本示例使用 UCase 函数来将某字符串转成全部大写。
说明，只有小写的字母会转成大写；原本大写或非字母之字符保持不变。
Dim LowerCase, UpperCase
LowerCase = "Hello World 1234" ' 要输送的字符串。
UpperCase = UCase(LowerCase) ' 返回 "HELLO WORLD 1234"。
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress e.KeyChar 使用参数e来控制输入字符 End Sub 追问： 能给出大小写切换程序的整段 源代码 吗 回答： 我不明白你的大小写切换程序是要实现什么功能 是输入 大写 变小写吗？ 追问： 是的 回答： If e.KeyChar.IsLower(e.KeyChar) = True Then e.KeyChar.ToUpper(e.KeyChar) 或 If e.KeyChar.IsUpper(e.KeyChar) = True Then e.KeyChar.ToLower(e.KeyChar)
String的成员函数中就有 ToUpper() 和 ToLower()啊
Dim a As String = "abcEd"
Dim b As String = a.ToUpper() //大写
Dim c As String = a.ToLower() //小写
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网