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
Nếu tôi nhập "TEST" vào hàm ở trên. Đầu ra là "TEST". Lý tưởng nhất là nó sẽ ra "Test".ToTitleCase không hoạt động trên tất cả các chuỗi chữ hoa
Tôi cũng đã thử các đoạn mã từ bài này không có kết quả: Use of ToTitleCase
Để thêm vào câu trả lời tuyệt vời của bạn, nó cũng đáng chú ý rằng bạn chỉ có thể làm: 'System.Globalization.CultureInfo.InvariantCulture.TextInfo.ToTitleCase (myString.ToLower());' thay vì tạo nhiều đối tượng. –
Cảm ơn Jamie, điều đó dường như thích một chuỗi dài để đặt vào, và tôi không thể đứng các thanh cuộn trong các khối mã của tôi :) –