The “Auto-Propercase Text Box at Entry” tip [VBPJ May 1997, page 63] has a simpler solution. The StrConv function can propercase any string. You can achieve the same effect with this code in the KeyUp event of a text box:
Private Sub Text1_KeyUp(KeyCode As Integer, _ Shift As Integer) Dim iCurPos As Integer iCurPos = Text1.SelStart Text1.Text = StrConv(Text1, vbProperCase) Text1.SelStart = iCurPosEnd Sub
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
