Ошибка при добавлении динамических элементов управления в кадр в пользовательской форме Excel VBA - PullRequest
Новая
       23

Ошибка при добавлении динамических элементов управления в кадр в пользовательской форме Excel VBA

0 голосов
/ 06 июня 2019

У меня есть пользовательская форма с двумя фреймами. Давайте назовем их «Frame1» и «Frame2». Если я добавляю элементы управления в один из двух фреймов с помощью модуля класса (мне нужны события), то я получаю ошибку времени выполнения.

Если я удаляю «Frame2» или добавляю его во время выполнения, он работает просто отлично (нет решения. Мне нужны элементы управления в обоих кадрах).

В приведенном ниже коде я даже не использую "Frame2" ... все та же проблема

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

код в пользовательской форме: 

Option Explicit
Dim oKlasseExcel(30) As CControls

Private Sub UserForm_Activate()

  Dim i As Integer

    For i = 1 To 30
        Set oKlasseExcel(i) = New CControls
        Set oKlasseExcel(i).TestFrames = Me.Frame1.Controls.Add("Forms.Frame.1", , True)
    Next

End Sub

модуль класса "CControls": 

Option Explicit
Public WithEvents TestFrames As MSForms.frame


Sub TestFrames_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

    'Code after DblClick

End Sub

Кто-нибудь знает, почему это не работает?

...