Переменная в объявлении класса с типом класса

@art538 · Регистрация: 31.08.2013

Студворк — интернет-сервис помощи студентам

Разбираю исходник из книги. Столкнулся с такой проблемой: есть модуль класса (Class1), в нём объявляется несколько переменных стандартных типов (variant, integer и т.д.) и переменная типа самого класса

Visual Basic
1
2
Public a As Variant
Public b As Class1

С подобным объявление сталкиваюсь впервые, никак не могу разобраться для чего нужна такая переменная и как ей пользоваться. Пробовал так:

Visual Basic
1
2
Set Item = New Class1
Item.b.a = Text1.Text

ничего не выходит. Объясните, пожалуйста, как пользоваться подобной переменной, если можно, поясните примером.

@The trick · 08.12.2013, 22:26

Сообщение от art538

ничего не выходит. Объясните, пожалуйста, как пользоваться подобной переменной, если можно, поясните примером.

Откуда вызываешь код? Прежде чем обращаться к члену b, нужно его создать

Visual Basic
1
Set Item.b = New Class1

@Catstail · 09.12.2013, 19:56

art538, класс - это тип. Переменная "типа класс" - это объект. Если написано:

Visual Basic
1
  Dim b as Class1

значит переменная b есть ссылка на объект. Объект перед использованием нужно создать (оператором Set ... new):

Visual Basic
1
2
3
  Dim b as Class1
  '....
  Set b=New Class1

Создание объекта можно совместить с описанием:

Visual Basic
1
  Dim b as new Class1

Теперь переменной b можно "пользоваться" (менять свойства, вызывать методы).

Что написано у тебя:

Visual Basic
1
2
3
Set Item = New Class1  ' Item - объектная ссылка
Item.b.a = Text1.Text   ' обращение к свойству b (оно есть у Class1 ?).
                                ' Оно (судя по записи) само должно быть объектом и иметь свойство "a"...

@The trick · 09.12.2013, 19:59

Сообщение от Catstail

Создание объекта можно совместить с описанием

Visual Basic
1
Dim b as new Class1

Эта конструкция не создает объект. Это неравносильно

Visual Basic
1
2
3
  Dim b as Class1
  '....
  Set b=New Class1

@Catstail · 09.12.2013, 20:03

Сообщение от The trick

Эта конструкция не создает объект. Это неравносильно

- строго говоря, да. Но вот это:

Visual Basic
1
2
3
4
  Dim b as Class1
  '...
  Set b=New Class1
  b.нечто=...

и это

Visual Basic
1
2
3
  Dim b as New Class1
  '...
  b.нечто=...

практически равносильно.

@The trick · 09.12.2013, 20:27

В данном примере это не имеет значения, но в дальнейшем ТС не сможет присвоить Nothing этой переменной, это как в примере:

Visual Basic
1
2
3
4
5
6
7
8
9
Dim Z As New Collection
    
Set Z = Nothing
   
If Z Is Nothing Then
        Stop        ' Это никогда не выполнится
    Else
        Stop        ' Это всегда выполнится
End If

Добавлено через 16 минут
Подробней Доступ к форме

@Catstail · 09.12.2013, 21:18

The trick, и опять-таки да! Сам я никогда не использую форму Dim x as new ...

@art538 · 11.12.2013, 15:19 **[ТС]**

Всем спасибо за ответы. Если я правильно понял, когда мы в окне основного кода пишем, например:

Visual Basic
1
 Dim obj1 As Class1

создаётся объектная переменная obj1, которая пока ничего не содержит.

Visual Basic
1
Set obj1 = New Class1

Эта инструкция создаёт новый экземпляр класса и помещает ссылку на него в переменную obj1. Я ничего не путаю? Если это так, можно как-нибудь посмотреть на саму ссылку, на какой участок памяти она ссылается?

@The trick · 11.12.2013, 15:27

Сообщение от art538

Всем спасибо за ответы. Если я правильно понял, когда мы в окне основного кода пишем, например:

Visual Basic
1
 Dim obj1 As Class1

создаётся объектная переменная obj1, которая пока ничего не содержит.

Создается переменная, содержащая в себе ссылку на объект, а т.к. объект не существует, там содержится 0. Можно проверить:

Visual Basic
1
2
VarPtr(obj1) ' Адрес переменной не равен 0
ObjPtr(obj1) ' Ссылка на объект равен 0

Сообщение от art538

Visual Basic
1
Set obj1 = New Class1

Эта инструкция создаёт новый экземпляр класса и помещает ссылку на него в переменную obj1. Я ничего не путаю? Если это так, можно как-нибудь посмотреть на саму ссылку, на какой участок памяти она ссылается?

Да. Ссылку на объект можно получить через ObjPtr(obj1), также можно получить еще много чего, например ObjPtr + &H20 можно узнать количество ссылок указывающих на объект, ObjPtr + &H34 начало глобальных переменных объекта и т.п.

@art538 · 11.12.2013, 21:23 **[ТС]**

Можно поподробнее узнать, в чём принципиальная разница между кодом:

Visual Basic
1
Dim b as new Class1

и кодом

Visual Basic
1
2
Dim b as Class1
Set b=New Class1

Что в первом случае будет находиться в переменной b, если не ссылка на экземпляр класса? И почему этой переменной нельзя в дальнейшем присвоить Nothing?

@The trick · 11.12.2013, 21:26

Смотри ссылку выше давал же. Каждое явное обращение предваряется

Visual Basic
1
If Obj Is Nothing Then Set Obj = New Class

@art538 · 12.12.2013, 18:39 **[ТС]**

Что такое DAN ссылка? Ничего подобного в сети не нашёл

@The trick · 13.12.2013, 08:22

Сообщение от art538

Что такое DAN ссылка?

Declared As New

@art538 · 14.12.2013, 22:45 **[ТС]**

Большое спасибо за доходчивое объяснение! Если можно, задам ещё пару вопросов. Наблюдатель в программе показывает, что переменной, содержащей DAN ссылку, присвоить значение Nothing можно без проблем. Но как только вновь обращаешься к этой переменной (например, чтобы посмотреть её значение), экземпляр класса создаётся по новой, и ссылка на него тут же помещается в переменную. Если я правильно понял, выглядит это так:

Visual Basic
1
2
3
4
5
6
7
8
Dim Z As New Collection
 
Set Z = Nothing  'Переменная обнуляется
If Z Is Nothing Then 'создаётся новый объект, ссылка на который записывается в переменную
        Stop        ' Поэтому, это никогда не выполнится
    Else
        Stop        ' Это всегда выполнится
End If

Это верно? Я ничего не путаю?
Второй вопрос. В чём разница между инструкцией

Visual Basic
1
If Z Is Nothing Then

и инструкцией

Visual Basic
1
If Z = Nothing Then

@The trick · 14.12.2013, 23:03

Сообщение от art538

Это верно? Я ничего не путаю?

Да, при любом явном обращении создаеться объект. Но можно обратиться неявно и узнать, только это не к чему.

Сообщение от art538

Второй вопрос. В чём разница между инструкцией

Visual Basic
1
If Z Is Nothing Then

и инструкцией

Visual Basic
1
If Z = Nothing Then

Так писать нельзя (как во втором случае).

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	09.12.2013, 21:18
	The trick, и опять-таки да! Сам я никогда не использую форму Dim x as new ... 1

@art538 0 / 0 / 0 Регистрация: 31.08.2013 Сообщений: 56
	12.12.2013, 18:39 [ТС]
	Что такое DAN ссылка? Ничего подобного в сети не нашёл 0