包含1个label1 ,1个text1和3个按钮。
Private Sub Text1_KeyUp (KeyCode As Integer, Shift As Integer)
Text1.Tag=Text1.Text
End Sub
Private Sub Form_Activate()
Text1.SetFocus
End Sub
Private Sub Command1_Click()
Text1.Text=UCase (Text1.Tag)
End Sub
Private Sub Command2_Click()
Text1.Text=LCase (Text1.Tag)
End Sub
Private Sub Command3_Click()
Text1.Text=Text1.Tag
End Sub
心得体会:对KeyUp和Tag属性 不熟悉。