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
Jeśli wprowadzę "TEST" do powyższej funkcji. Wyjście to "TEST". Idealnie byłoby to wyjście „Test”.ToTitleCase nie działa na wszystkie wielkie litery
Próbowałem też fragmenty kodu z tego postu bezskutecznie: Use of ToTitleCase
Aby dodać do swojej wspaniałej odpowiedzi, warto również zauważyć, że można po prostu zrobić: 'System.Globalization.CultureInfo.InvariantCulture.TextInfo.ToTitleCase (myString.ToLower());' zamiast tworzyć wiele obiektów. –
Dzięki Jamie, wydawało się, że lubisz długi sznurek do wstawienia, i nie mogę znieść sztabek w blokach kodu :) –