Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

  Все выпуски  

Visual Basic. Уроки.


Информационный Канал Subscribe.Ru

VB.NET. Программирование для Windows. Уроки с сайта http://progs.biz

Рассылка №9

VB.NET для Windows. Урок 14. Работа с MessageBox.
VB.NET для Windows. Урок 15. Работа со строками.

Полные версии уроков (с картинками) можно найти по адресам
Урок 14. Работа с MessageBox.
Урок 15. Работа со строками.

VB.NET для Windows. Урок 14. Работа с MessageBox

Ранее в VB использовалась функция MsgBox. Теперь вместо нее надо использовать класс MessageBox. Самый главный метод у этого класса - это Show. Его вызов и приводит, собственно, к показу MessageBox'а. На самом деле этих методов много - с разными параметрами. Мы рассмотрим только самые распространенные из них.

Самый простой вызов - показывает MessageBox с надписью:

MessageBox.Show("Внимание!")

Второй вызов - позволяет задать надпись и заголовок окна:

        MessageBox.Show("Внимание!", "Заголовок")

Третий вариант - позволяет задать кнопки на MessageBox'е:

        Dim res As DialogResult
        res = MessageBox.Show("Внимание!", "Заголовок", MessageBoxButtons.OKCancel)
        If res = DialogResult.OK Then
            ... //Что-то делаем, если пользователь выбрал OK
        Else
            ... //Что-то делаем, если пользователь выбрал Cancel
        End If

Как вы видите, в этом случае логично записать возвращаемое MessageBox'ом значение в переменную типа DialogResult и потом анализировать эту переменную в программе. Все константы для возможных кнопок и для возвращаемых MessageBox'ом значений можно не запоминать - все равно они появляются в качестве подсказок при наборе кода.

Следующий вариант позволяет задать значок для нашего MessageBox'а:

MessageBox.Show("Внимание!", "Заголовок", MessageBoxButtons.OKCancel, _
        MessageBoxIcon.Exclamation) 

В этом примере у MessageBox'а появится значок с восклицательным знаком.

И, наконец, последный вариант для вызова позволяет задать кнопку по умолчанию:

        res = MessageBox.Show("Внимание!", "Заголовок", _
        MessageBoxButtons.OKCancel, _
        MessageBoxIcon.Exclamation, _
        MessageBoxDefaultButton.Button2)

У данного MessageBox'а кнопкой по умолчанию будет вторая (нумерация идет с единицы).

И в конце отметим, что в приведенных выше примерах мы вызывали метод Show как статический метод (т. е. мы вызываели его для самого класса, а не для экземпляра класса). В принципе можно вызывать Show и для экзампляров класса:

        Dim b As MessageBox
        ...
        b.Show("Внимание!")
Наверх

VB.NET для Windows. Урок 15. Работа со строками

Для работы со строками в VB есть специальный тип - String. String представляет из себя класс и включает различые методы для работы со строками.

Самая распространенная операция со строками - это сложение (конкатенация). Ее мы делаем с помощью амперсанда (&):

        Dim str As String = "Преступление "
        str = str & "и наказание"
        MessageBox.Show(str)

MessageBox покажет, естественно, надпись "Преступление и наказание". Обратите внимание, что строку мы проинициализировали (т. е. записали некоторое начальное значение) при создании:

        Dim str As String = "Преступление "

Конкатенацию строк можно делать и плюсом (+), но использование амперсанда предпочтительнее - так как плюс используется для числовых типов данных.

Рассмотрим наиболее полезные методы класса String.

Метод Length. Возвращает длину строки:

        Dim k As Integer
        k = str.Length()

Метод Substring. Позволяет извлечь из данной строки подстроку с определенной позиции и определенной длины:

        Dim str As String = "Ушку ду Кашку"
        Dim str2 As String
        str2 = str.Substring(8, 5)
        MessageBox.Show(str2)

MessageBox покажет слово "Casco". Обратите внимание, что нумерация символов в строке идет с нуля.

Для замены некоторого фрагмента строки на другой используется метод Replace:

        Dim str As String = "Ушку ду Кашку"
        Dim str2 As String
        str2 = str.Replace("шк", "sc")
        MessageBox.Show(str2)

После выполнения указанного фрагмента покажется MessageBox с надписью "Уscу ду Каscу".

Метод Remove удаляет заданное число символов начиная с заданной позиции:

        Dim str As String = "Ушку ду Кашку"
        Dim str2 As String
        str2 = str.Remove(2, 9)
        MessageBox.Show(str2)

MessageBox в данном случае покажет "Ушку"

Для сравнения строк используется метод Equals. Он существует и в статическом варианте (т. е. мы применяем его не для конкретного экземпляра класса, а для самого класса):

        Dim str1 As String = "Ушку ду Кашку"
        Dim str2 As String = "Osco do Casco"
        If str1.Equals(str2) Then
            MessageBox.Show("Строки равны")
        Else
            MessageBox.Show("Строки не равны")
        End If
        'Статический вариант
        If String.Equals(str1, str2) Then
            MessageBox.Show("Строки равны")
        Else
            MessageBox.Show("Строки не равны")
        End If

При обработке введенных пользователем данных пригодятся методы Trim и ToLower или ToUpper. Первый из них отсекает лишние пробелы в начале и в конце строки, второй и третий - изменяет все буквы в строке на строчные или прописные соответственно:

        Dim str1 As String = "   Ушку   "
        str1 = str1.Trim()
        str1 &= " ду Кашку"
        Dim str2 As String
        str2 = str1.ToLower()
        MessageBox.Show(str2)

Указанный фрагмент выведет в MessageBox'е "ушку ду кашку". Обратите внимание на конструкцию

        str1 &= " ду Кашку"

Это сокращенный вариант для

        str1 = str1 & " ду Кашку"
Наверх

Другие рассылки с сайта progs.biz

Рассылки Subscribe.Ru
Уроки по C# и .NET.

Уроки по C# -новому языку от Microsoft для платформы .NET. Создание разных типов приложений (консольные, для Windows, веб-приложения), работа с базами данных, создание собственных компонентов. Примеры, исходники, статьи, FAQ.


Copyright Алексеев Игорь, 2002

Copyright сайт progs.biz, 2002



http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное