DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Proper case in Visual basic 6.0

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Sep 2006

Posts: 4

Reputation: seibor is an unknown quantity at this point

Solved Threads: 0

seibor

Offline

Newbie Poster

Proper case in Visual basic 6.0

Oct 12th, 2006

hi all, can anyone suggest me how to display propercase in vb
eg. HELLo WOrld is Hello World

•

Join Date: Jul 2005

Posts: 188

Reputation: aparnesh is an unknown quantity at this point

Solved Threads: 10

aparnesh

Offline

Junior Poster

Re: Proper case in Visual basic 6.0

Oct 12th, 2006

Here's the Code to display a WORD in Proper Case. You can enhance it easily to use it for a string.

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Public Function InitCapWord(ByVal mString As String) As String
Dim mRet As String
If Len(Trim(mString)) > 1 Then
    Dim mFirst As String
    Dim mRest As String
    mFirst = UCase(Mid(mString, 1, 1))
    mRest = LCase(Right(mString, Len(mString) - 1))
    mRet = mFirst & mRest
Else
    mRet = mString
End If
InitCapWord = mRet
End Function
Public Function InitCapWord(ByVal mString As String) As String
Dim mRet As String
If Len(Trim(mString)) > 1 Then
    Dim mFirst As String
    Dim mRest As String
    mFirst = UCase(Mid(mString, 1, 1))
    mRest = LCase(Right(mString, Len(mString) - 1))
    mRet = mFirst & mRest
Else
    mRet = mString
End If
InitCapWord = mRet
End Function