by Manish Saraf (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 31st July 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To convert first word in big lett. this is function which accept string
a = 1
While (a <= Len(Text))
If (a = 1) Then
Na = UCase(Mid(Text, a, 1))
GoTo l1
End If
Na = Na + Mid(Text, a, 1)
l1:
If (Asc(Mid(Text, a, 1)) = 32) Then
Na = Na + UCase(Mid(Text, a + 1, 1))
a = a + 1
End If
a = a + 1
Wend
'we return Na value back to function call
InitCap = Na
End Function
No comments have been posted about To convert first word in big lett. this is function which accept string. Why not be the first to post a comment about To convert first word in big lett. this is function which accept string.