Question

vb:如果把字母转换成大小写字母，最好怎么转换回来，原来的字母含有大小写

vb:在窗体上添加3个命令按钮，1个文本框和1个标签。其中，标签用来保留用户原始的字符串，文本框接受来自用户的输入。3个按钮的功能分部为转换文本框内容大写。转换文本框内容小写。复原文本框内容。

Answer 1

无法转换回原样. 你只能使用一个变量保存原来的字符串, 在需要时, 从这个变量中提取原始的字符串值.

Private Sub Text1_Change()
If LCase(Label1.Caption) <> LCase(Text1.Text) Then Label1.Caption = Text1.Text
End Sub

Private Sub Command1_Click()
Text1.Text = LCase(Text.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = UCase(Text.Text)
End Sub

Private Sub Command3_Click()
Text1.Text = Label1.Caption
End Sub

Answer 2

用变量保存原来的字符串就是了
很简单的
Dim mystring As String

Private Sub Command1_Click()
a = MsgBox("保存现在的内容么？", vbQuestion + vbYesNo, "请确定")
If a = vbYes Then
mystring = Text1.Text
End If
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub Command2_Click()
a = MsgBox("保存现在的内容么？", vbQuestion + vbYesNo, "请确定")
If a = vbYes Then
mystring = Text1.Text
End If
Text1.Text = LCase(Text1.Text)
End Sub

Private Sub Command3_Click()
Text1.Text = mystring
End Sub