• Home
 · 
• String Manipulation
 · 
• Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Whea

Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Whea

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

Rate Do You Want To Change Your Text Into VB Proper Case Or Title Case While Entering In A Text Box Whea

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'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