vb大小写转化

来源：百度知道 编辑：UC知道 时间：2024/06/06 05:25:55
text文本中右键弹出菜单 有大写 小写 正常 3个选择分别实现对应的功能

前面的都会 但点击正常时 能还原回去 就不知道怎么做了 请大虾赐教 小弟不胜感激

Dim a As String
Dim C As Boolean '是否改变

Private Sub Command1_Click() '变大
If C = False Then a = Text1.Text
C = True
Text1.Text = UCase(a)
End Sub

Private Sub Command2_Click() '正常
If C Then
C = False
Text1.Text = a
End If
End Sub

Private Sub Command3_Click() '变小
If C = 0 Then a = Text1.Text
C = True
Text1.Text = LCase(a)
End Sub