TOGGLE CASE Для текстового поля?

Question

Как добавить tOGGLE cASE в текстовые поля, например, я нажимаю кнопку, и он меняет текст в текстовом поле на TOGGLE cASE (hello -> hELLO), в основном он принимает первые буквы и нижние регистры, а остальные верхние регистры Это.

Answer 1

Вот метод, использующие функции .NET Culture сначала преобразовать в заглавный, а затем инвертировать случай к вашей «ПЕРЕКЛЮчЕНИЮ дЕЛУ»

Private Sub btn_ConvertTotOGGLEcASE_Click(sender As Object, e As EventArgs) Handles btn_ConvertTotOGGLEcASE.Click 

    'Get the current value of the textbox 
    Dim MyText As String = MyTextBox.Text 

    'Convert it to Title Case using built in .NET tools 
    Dim MyTextInfo As System.Globalization.TextInfo = New System.Globalization.CultureInfo("en-US", False).TextInfo 
    MyText = MyTextInfo.ToTitleCase(MyText) 

    'Then invert the case of all the characters 
    Dim InvertedText As Char() = MyText.Select(Function(c) If(Char.IsLetter(c), If(Char.IsUpper(c), Char.ToLower(c), Char.ToUpper(c)), c)).ToArray() 

    'Finally convert it back to a string 
    MyTextBox.Text = New String(InvertedText) 

End Sub 

Answer 2

Вы можете разделить строку в массиве, итерации в массиве с помощью lcase (mid (string, 1,1) & ucase (mid (string, 2, len (string) -1)) и перекомпонуйте массив в строке

Public function ToogleText(myStr as string) as string 

    dim str() as string 
    str = split(myStr," ") 
    dim toogleStr as string 
    toogleStr = "" 

    for each substr as string in str 
     toogleStr = toogleStr & lcase(mid(substr,1,1)) & ucase(mid(substr, 2,len(substr)-1)) & " " 
    next substr 
    if len(toogleStr) > 0 then 
     ToogleText = mid(toogleStr,1,len(toogleStr)-1) 
    else 
     ToogleText ="" 

    end if 

end function