重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
可以试着用典型的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() //小写