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 ingreso "TEST" en la función anterior. La salida es "TEST". Lo ideal sería que la producción de "Prueba".ToTitleCase no funciona en todas las mayúsculas
también probé los fragmentos de código de este post fue en vano: Use of ToTitleCase
Para agregar a su gran respuesta, también vale la pena señalar que simplemente puede hacer: 'System.Globalization.CultureInfo.InvariantCulture.TextInfo.ToTitleCase (myString.ToLower());' en lugar de crear múltiples objetos. –
Gracias Jamie, que me pareció una cadena larga para poner, y no soporto barras de desplazamiento en mis bloques de código :) –