Поделиться через


Пошаговое руководство. Определение классов (Visual Basic)

В данном пошаговом руководстве подробно рассказано, как определить классы, на основе которых впоследствии можно создать объекты. Здесь также показано, как добавить свойства и методы в новый класс и как инициализировать объект.

Примечание

На вашем компьютере названия некоторых элементов интерфейса пользователя Visual Studio или их расположение могут отличаться от указанных в нижеследующих инструкциях. Это зависит от имеющегося выпуска Visual Studio и используемых параметров. Дополнительные сведения см. в разделе Параметры Visual Studio.

Определение класса

  1. Создайте проект; для этого в меню Файл щелкните Создать проект. Откроется диалоговое окно Создать проект.

  2. Выберите приложение Windows из списка шаблонов проектов Visual Basic для отображения нового проекта.

  3. Добавьте в проект новый класс; для этого в меню Проект щелкните Добавление класса. Откроется диалоговое окно Добавление нового элемента.

  4. Выберите шаблон Класс.

  5. Назовите новый класс UserNameInfo.vb и нажмите кнопку Добавить, чтобы отобразить код для нового класса.

    Public Class UserNameInfo
    End Class
    

    Примечание

    Можно использовать Visual Basic Редактор кода, чтобы добавить класс в форму запуска; для этого введите ключевое слово Class, следом за которым укажите имя нового класса.Редактор кода предоставляет соответствующий оператор End Class.

  6. Определите закрытое поле для класса, добавив следующий код между операторами Class и End Class:

    Private userNameValue As String
    

    Объявление полей как Private означает, что они могут использоваться только внутри класса. Можно сделать поля доступными извне класса с помощью модификаторов доступа, например Public, которые обеспечивают дополнительный доступ. Дополнительные сведения см. в разделе Уровни доступа в Visual Basic.

  7. Определите свойство для класса, добавив следующий код:

    Public Property UserName() As String
        Get
            ' Gets the property value.
            Return userNameValue
        End Get
        Set(ByVal Value As String)
            ' Sets the property value.
            userNameValue = Value
        End Set
    End Property
    
  8. Определите метод для класса, добавив следующий код:

    Public Sub Capitalize()
        ' Capitalize the value of the property.
        userNameValue = UCase(userNameValue)
    End Sub
    
  9. Определите параметризованный конструктор для нового класса, добавив процедуру Sub New:

    Public Sub New(ByVal UserName As String)
        ' Set the property value.
        Me.UserName = UserName
    End Sub
    

    Конструктор Sub New вызывается автоматически при создании объекта на основе данного класса. Этот конструктор задает значение поля, в котором содержится имя пользователя.

Создание кнопки для тестирования класса

  1. Переключите форму запуска в режим конструктора; для этого щелкните правой кнопкой мыши ее название в обозревателе решений, а затем выберите команду Конструктор представлений. По умолчанию форма запуска для проектов приложений Windows называется Form1.vb. Затем появится главная форма.

  2. Добавьте в главную форму кнопку и дважды щелкните ее, чтобы отобразить код обработчика событий Button1_Click. Добавьте следующий код, чтобы вызвать процедуру тестирования:

    ' Create an instance of the class.
    Dim user As New UserNameInfo("Moore, Bobby")
    ' Capitalize the value of the property.
    user.Capitalize()
    ' Display the value of the property.
    MsgBox("The original UserName is: " & user.UserName)
    ' Change the value of the property.
    user.UserName = "Worden, Joe"
    ' Redisplay the value of the property.
    MsgBox("The new UserName is: " & user.UserName)
    

Запуск приложения

  1. Запустите приложение, нажав клавишу F5. Нажмите кнопку в форме, чтобы вызвать процедуру тестирования. Отображается сообщение, в котором указано, что UserName имеет исходное значение "MOORE, BOBBY", поскольку процедурой вызван метод Capitalize объекта.

  2. Нажмите кнопку ОК, чтобы закрыть окно сообщения. В процедуре Button1 Click изменяется значение свойства UserName и отображается сообщение о том, что свойство UserName получает новое значение "Worden, Joe".

См. также

Основные понятия

Объектно-ориентированное программирование (C# и Visual Basic)

Другие ресурсы

Объекты и классы Visual Basic