by Deepak Ghosh (4 Submissions)
Category: String Manipulation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sun 22nd June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Wheather Cap Lock Is On or Off (Not In Lost
'Receive Your Mail.
'Make A Text Box By The Name Of Text1 And Paste The Following Code.
'=========Code=========
Private Sub Text1_Change()
PropCase Text1, Text1
End Sub
'==You Can Also Store This Following Procedure In A Module And Use It For Another Form.
Public Function PropCase(Txt_Text As String, Txt_Box As TextBox)
On Error Resume Next
Dim Proper As String
Dim ProperNo1, ProperNo2, ProperNo3, ProperNo4, ProperNo5 As Integer
ProperNo1 = 1
ProperNo2 = 1
ProperNo3 = 1
ProperNo4 = 1
ProperNo5 = 1
Proper = LCase$(Txt_Text)
Proper = UCase$(Left$(Proper, 1)) & Right$(Proper, Len(Proper) - 1)
'==Check For Space
Do While InStr(ProperNo1, Proper, " ")
ProperNo1 = InStr(ProperNo1, Proper, " ") + 1
Proper = Left$(Proper, ProperNo1 - 1) & UCase$(Mid$(Proper, ProperNo1, 1)) & Right$(Proper, Len(Proper) - ProperNo1)
Loop
'==Check For "."
Do While InStr(ProperNo2, Proper, ".")
ProperNo2 = InStr(ProperNo2, Proper, ".") + 1
Proper = Left$(Proper, ProperNo2 - 1) & UCase$(Mid$(Proper, ProperNo2, 1)) & Right$(Proper, Len(Proper) - ProperNo2)
Loop
'==Check For "("
Do While InStr(ProperNo3, Proper, "(")
ProperNo3 = InStr(ProperNo3, Proper, "(") + 1
Proper = Left$(Proper, ProperNo3 - 1) & UCase$(Mid$(Proper, ProperNo3, 1)) & Right$(Proper, Len(Proper) - ProperNo3)
Loop
'==Check For "/"
Do While InStr(ProperNo4, Proper, "/")
ProperNo4 = InStr(ProperNo4, Proper, "/") + 1
Proper = Left$(Proper, ProperNo4 - 1) & UCase$(Mid$(Proper, ProperNo4, 1)) & Right$(Proper, Len(Proper) - ProperNo4)
Loop
'==Check For "-"
Do While InStr(ProperNo5, Proper, "-")
ProperNo5 = InStr(ProperNo5, Proper, "-") + 1
Proper = Left$(Proper, ProperNo5 - 1) & UCase$(Mid$(Proper, ProperNo5, 1)) & Right$(Proper, Len(Proper) - ProperNo5)
Loop
PropCase = Proper
Txt_Box = Proper
Txt_Box.SelStart = Len(Txt_Box)
End Function
Private Sub Text1_GotFocus()
Text1.SelLength = Len(Text1)
End Sub
No comments have been posted about Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Whea. Why not be the first to post a comment about Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Whea.