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

Статья
02/20/2013

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

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

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

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

Создайте проект; для этого в меню Файл щелкните Создать проект.Откроется диалоговое окно Новый проект.
Выберите приложение Windows из списка шаблонов проектов Visual Basic для отображения нового проекта.
Добавьте в проект новый класс; для этого в меню Проект щелкните Добавление класса.Открывается диалоговое окно Добавление нового элемента.
Выберите шаблон Класс.

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

Public Class UserNameInfo
End Class

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

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

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

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

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

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

Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

Определите параметризованный конструктор для нового класса, добавив процедуру Sub New:
```
Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub
```
Конструктор Sub New вызывается автоматически при создании объекта на основе данного класса.Этот конструктор задает значение поля, в котором содержится имя пользователя.

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

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

Добавьте в главную форму кнопку и дважды щелкните ее, чтобы отобразить код обработчика событий 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)

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

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

См. также

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

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

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

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

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