Public Function TitleCase(ByVal strIn As String)
Dim result As String = ""
Dim culture As New CultureInfo("en", False)
Dim tInfo As TextInfo = culture.TextInfo()
result = tInfo.ToTitleCase(strIn)
Return result
End Function
Si je saisis "TEST" dans la fonction ci-dessus. La sortie est "TEST". Idéalement, il serait sortie « Test ».ToTitleCase ne fonctionne pas sur toutes les chaînes majuscules
J'ai essayé aussi les extraits de code de ce poste en vain: Use of ToTitleCase
Pour ajouter à votre grande réponse, il est également intéressant de noter que vous pouvez simplement faire: 'System.Globalization.CultureInfo.InvariantCulture.TextInfo.ToTitleCase (myString.ToLower());' plutôt que de créer plusieurs objets. –
Merci Jamie, qui a semblé aimé une longue chaîne à mettre, et je ne supporte pas les barres de défilement dans mes blocs de code :) –