Много однотипных форм

[Boloto]

Создал проект. Создал вручную одну стартовую форму и две отдельные формы. Таких нужно 20. Создаю новую форму D. Делаю ссылку из стартовой. Копирую все коды в код новой страницы. Всюду меняю название. В результате появляется форма D точно как работающая с другим именем. Сохраняю. Запускаю - клик кнопку новой формы D - ошибка "Method or data member not found".
Если создаю форму полностью вручную все работает.
В чем ошибка?

[MIT]

Method or data member not found

ИМХО, этого уже достаточно для того, что бы понять, что ты забыл скопировать Method или data member, который, собственно, и not found (не найден).

[Mikle]

Если нужно несколько АБСОЛЮТНО ОДИНАКОВЫХ форм, может легче так:

Код: Выделить всё

Option Explicit
Dim f(7) As New Form1

Private Sub Form_Click()
  Dim n As Long
  For n = 0 To 7
    f(n).Show
  Next n
End Sub

Создай новый проект, закинь туда этот код, запусти и кликни по форме.

[Boloto]

[quote="MIT]Method or data member not found... ты забыл скопировать Method или data member...[/quote]

? Я взял код из другой работающей однотипной формы и скопировал в новый кодовый лист. Потом проверил вид этой формы в конструкторе. Ничем не отличается кроме названия и операторов имени, выгрузки. Отличается только тем, что при создании новой формы появляется пустой бланк формы без кнопок и элементов и после копирования кода все превращается в нужную форму.
Где искать эти Method или данные формы? В каталоге все перерыл и попробовал исправить как в работающих формах. Не помогает. Просто тяжело создавать 20 ОДИНАКОВЫХ форм вручную (работающих).
Автоматизация программным циклом для меня еще страшнее рисования всех 20-ти вручную. Я только начинающий. Ну и разобраться хочеться.

[Boloto]

Mikle!
Код воспроизвел в блокноте. Сохранил как .EXE. Поместил в каталог нового проекта. Указал этот файл в свойствах проекта как start program: в закладке Debugging. После запуска проекта No creatable public component detected.
Это логично, т.к. VB не С.

[Boloto]

Mikle!
Если код воспроизводить в коде формы вообще ничего не происходит. Форма ведет себя как обыкновенная - не размножающаяся.

[dr.MIG]

Если нужны однотипные формы, то делай как сказал Mikle. Если хочешь к тому же разобраться с ненайденным методом, то покажи строчку на которой выскакивает эта ошибка или прикрепи сюда весь модуль формы с ошибкой.

[Boloto]

Private Sub Cub1_Click(index As Integer)
Load Cub1
Cub1.Show
Unload Review1
End Sub


Ругается на Cub1.Show Но все работающие суброутинги такие же! Что то не прописано в форме. Или нестыковка в изображении формы, так как создавал то форму я с одним размером. а после заливки кода вышел другой размер формы.

Советом MikLy не получается. Где этот код записать?
Модуль громадный - 7 листов.

[dr.MIG]

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

Код: Выделить всё

Private Sub Cub1_Click(index As Integer) 'это ведь событие нажатия одной кнопки из массива?
Load Cub1 'Это попытка загрузить форму с именем Cub1
Cub1.Show  'Это попытка отобразить форму Cub1, да вот незадача -- кнопка вытесняет форму и здесь Cub1 -- это кнопка, у которой метода Show нет. Т.е., если мы переименуем кнопку из Cub1 в Buc2, к примеру, то всё будет работать.
Unload Review1 'Выгружаем форму Review1
End Sub

Поэтому лучше сесть и почитать для начала про переменные и массивы, а потом разобраться в примере Майкла.

[Boloto]

Dr.Mig, Вы гений и телепат. Все заработало. А ведь раньше я так и делал - давал кнопкам и формам разные названия для этого. Потом пришлось сделать перерыв в 3 месяца и продолжить писать программу. В результате все забыл и на грабли, как обычно с разбега. Спасибо.