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

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

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

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