by Sanor!tA (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 17th November 2005
Date Added: Mon 8th February 2021
Rating:
(1 Votes)
lowercase,uppercase and proper case
Private Sub optLower_Click()
Dim strText As String
strText = txtText.Text
lblAnswer.Caption = LCase(strText)
End Sub
Private Sub optProper_Click()
Dim strText As String
strText = txtText.Text
lblAnswer.Caption = StrConv(strText, vbProperCase)
End Sub
Private Sub optUpper_Click()
Dim strText As String
strText = txtText.Text
lblAnswer.Caption = UCase(strText)
End Sub
Private Sub txtText_Change()
lblAnswer.Caption = ""
End Sub
Private Sub cmdDone_Click()
Unload Me
End Sub