Создание и работа класса - VB
Формулировка задачи:
Доброго дня или ночи знатокам! Помогите в проблеме!
Я новичок в ООП и VB и хотелось бы понять принцип работы классов на примере
статьи, которые я нашел в сети(http://www.codenet.ru/progr/vbasic/vb_objects.php ), где объясняется суть класса на простом примере, который приведен ниже. Я постарался в точности воспроизвести пример из статьи (за исключением некоторых своих безобидных вставок в целя трассировки)и при его прогоне выплывает ошибка(метод или член данных не найден), т.е. в Form2 этого свойства нет, а почему? Я где то ошибся или ошибка в статье? Спасибо!
------------------------ Form1 -----------------------
Решение задачи: «Создание и работа класса»
textual
Листинг программы
Option Explicit Private isCenter As Boolean Public Property Get Center() As Boolean bCenter = isCenter End Property Public Property Let Center(ByVal bCenter As Boolean) isCenter = bCenter If bCenter Then Top = (Screen.Height - Me.Height) \ 2 Left = (Screen.Width - Me.Width) \ 2 End If End Property Private Sub Form_Load() Me.Center = True End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д