Создание и работа класса - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5
Похожие ответы