| Чтобы
| Сделайте следующее
|
| Наследовать интерфейс и функциональность существующей формы
| Щелкните на команде Add Inherited Form (Добавить производную форму) в меню Project (Проект), укажите имя производной формы, а затем щелкните на Open (Открыть). Для выбора наследуемой формы используйте Inheritance Picker (Выбор наследования), а затем щелкните на OK. Чтобы наследование было возможно, базовая форма должна быть скомпилирована в.exe- или.dll-файл. Если вы хотите наследовать от формы, которая не является компонентой текущего проекта, форма должна быть скомпилирована в.dll-файл.
|
| Настроить производную форму
| Добавьте в форму элементы управления Области элементов и установите свойства. Заметьте, что вы не можете установить свойства наследуемых объектов формы. Эти объекты могут быть обнаружены по маленьким значкам и будут неактивными.
|
| Создать собственные базовые классы
| Щелкните на команде Add Class (Добавить класс) в меню Project (Проект), укажите имя класса, а затем щелкните на Open (Открыть). С помощью кода программы определите класс в модуле класса.
|
| Объявить переменные класса
| Используйте ключевое слово Private, чтобы сделать ваши переменные скрытыми при изучении класса. Например:
Private Name1 As String |
| Создать в классе новое свойство
| Определите в классе открытую процедуру свойства. Например:
Public Property FirstName() As String Get Return Name1 End Get Set(ByVal Value As String) Name1 = Value End SetEnd Property |
| Создать в классе новый метод
| Определите в классе процедуру Sub или Function. Например:
Public Function Age(ByVal Birthday As Date) _
As Integer
Return Int(Now.Subtract(Birthday).Days _
/ 365.25)
End Function
|
| Объявить переменную объекта для использования в классе
| Используйте в операторе программы ключевые слова Dim и New, имя переменной и класс, определенный пользователем. Например:
Dim Employee As New Person
|
| Установить свойства для переменной объекта
| Используйте обычный синтаксис для установки свойств объекта. Например:
Employee.FirstName = TextBox1.Text
|
| Наследовать базовый класс в новом классе
| Создайте новый класс и используйте ключевое слово Inherits для встраивания определений базового класса. Например:
Public Class Teacher
Inherits Person
Private Level As Short
Public Property Grade() As Short
Get
Return Level
End Get
Set(ByVal Value As Short)
Level = Value
End Set
End Property
End Class
|
Приложение 1
Основные сведения об операторах VB
Функция MsgBox
MsgBox(сообщение[, кнопки][, заголовок][, файл справки, контекст])
Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа Integer,указывающее, какая кнопка была нажата.
Функция InputBox
InputBox(сообщение[, заголовок][, умолчание][, Xпоз][Yпоз])
Выводит на экран диалоговое окно, содержащее сообщение и поле ввода, устанавливает режим ожидания ввода текста пользователем или нажатие кнопки, а затем возвращает значение типа String, содержащее текст, выведенный в окне.
Условный оператор IF
Для проверки одного условия и выполнения оператора или блока операторов используется оператор IF…THEN. Этот оператор можно использовать с разным синтаксисом: однострочным (линейным) и многострочным (блочным).
а) Однострочный:
If < условие > Then < оператор >
б) блочный:
If < условие > Then
< блок операторов >
End If
Для проверки одного условия и выбора одного из двух блоков операторов используется оператор вида If…Then… Else.
If < условие > Then
< блок операторов1 >
Else
< блок операторов2 >
End If
Для проверки более одного условия и выполнения одного из нескольких блоков операторов используется оператор вида
If… Then…ElseIf
If < условие 1 > Then
< блок операторов 1>
ElseIf < условие 2 > Then
< блок операторов 2 >
…………….
ElseIf< условие n > Then
< блок операторов n >
Else
< блок операторов Else >
End If
