Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.85
Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста стр.85

If TextBoxl.Text = "Мир" Then Labell.Text = "вам всем" End Sub

Чтобы устранить этот недостаток, надо воспользоваться оператором LCase. Это функция, преобразующая все буквы исходной строки в строчные. В следующем примере в текстовое поле TextBox будем вводить текст, который отобразится на надписи Label только строчными буквами.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String

a = TextBoxl.Text

Labell.Text = LCase(a) End Sub

Теперь рассмотрим обратное действие. Сделаем все буквы строки прописными. Для этого используем функцию UCase. В кодах предыдущего примера заменим LCase на UCase.

Существует еще один способ смены регистра. Для этого используется метод ToLower, который переводит все буквы строки в строчные, а также метод ToUpper, осуществляющий обратный перевод.

Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String = "ЭТо ТеКСт"

Dim b As String = "СМенА реГИстРА"

Labell.Text = a.ToLower

Label2.Text = b.ToUpper End Sub

Удаление пробелов и символов

Функция Trim выполняет два действия: удаляет все пробелы в начале и конце строки, а также указанные в коде символы.

Трусов M. А. Visual Basic .NЕТ Практическое руководство для начинающего программиста

ГЛАВА 17 ▼ Работа с текстом

В приведенном ниже примере приведена строка, являющаяся значением переменной а, и символ #. Если ввести в текстовое поле несколько пробелов, затем написать любой текст и добавить знак #, то после щелчка по кнопке пробелы и знак # исчезнут.

Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String

a = TextBoxl.Text

TextBoxl.Text = Trim(a.Trim(и#и)) End Sub

Функция LTrim позволяет получать строку с отброшенными пробелами в начале. Функция Rtrim удаляет пробелы в конце строки.

Private Sub Button3_Click(ByVal sender As Systern.Object, _ ByVal e As System.EventArgs) Handles Button3.Click

Dim a As String

a = TextBoxl.Text

"TextBoxl.Text = LTrim(a)


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta