vb中在text1输入空格,用change语句立马进行判断和转换,结果显示在Text2中的也是空格。
展开全部
private sub text1_change()
text2.text=text1.text
end sub
text2.text=text1.text
end sub
追问
谢谢!!如果在空格前后还有输入其他的字符,如“aaa AAA”,而显示的结果是在在text1中的大写字母在text2中变成小写字母,小写字母变成大写字母,中间的空格不改变,如“AAA aaa”,这样又要怎么做??
追答
Private Sub text1_change()
Dim i As Integer
Dim c As String
Text2.Text = ""
For i = 1 To Len(Text1.Text)
c = Mid$(Text1.Text, i, 1)
Text2.Text = Text2.Text & IIf(Asc(c) < 92, LCase(c), UCase(c))
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询