vedi se può andare
codice:
'------------------------------------------------------------------------
'Data una stringa di parole le trasforma con la prima lettera maiuscolo
'------------------------------------------------------------------------
Public Function Capitalize(ByVal stringa As String) As String
If stringa Is Nothing OrElse stringa = "" Then Return ""
Dim cc As CultureInfo = CultureInfo.CurrentCulture
'Return cc.TextInfo.ToTitleCase(cc.TextInfo.ToLower(stringa))
'utilizzo la vecchia versione perchè non voglio maiuscole le parole
'con una sola lettera
'vecchia versione----------------------------------------
If stringa Is Nothing OrElse stringa = "" Then Return ""
Dim vs$() = stringa.Split(" "c)
Dim i%
For i = vs.GetLowerBound(0) To vs.GetUpperBound(0)
stringa = vs(i)
If stringa.Length = 0 Then
ElseIf stringa.Length = 1 Then
stringa = stringa.ToLower
Else
stringa = stringa.Substring(0, 1).ToUpper & stringa.Substring(1).ToLower
End If
vs(i) = stringa
Next
Return String.Join(" ", vs)
'vecchia versione----------------------------------------
End Function