Копируй объекты кнопкой vb6

Question

Структура проекта и UserControl:

Formularios = Form = Form1
Controles de Usuario = User Controls = uc1

Все UserControl Код:

Option Explicit

Public Property Get AddType() As String
   AddType = cmbAddExample.Text
End Property

Public Property Let AddType(ByVal Value As String)
   cmbAddExample.Text = Value
End Property

Public Property Get AddNumber() As String
   AddNumber = Text1.Text
End Property

Public Property Let AddNumber(ByVal Value As String)
   Text1.Text = Value
End Property

Button Добавить (Añadir) код:

Option Explicit
Dim indice As Integer

Private Sub btnAñadir_Click()
   indice = indice + 1

   Load uc1(indice)
   Set uc1(indice).Container = Picture1 
   uc1(indice).Visible = True
   uc1(indice).Top = IIf(indice = 1, 0, uc1(indice - 1).Top + uc1(indice - 1).Height + 20)

   Load cmbAddExample(indice)
   Set cmbAddExample(indice).Container = uc1(indice)
   cmbAddExample(indice).Visible = True
   cmbAddExample(indice).Top = cmbAddExample(indice - 1).Top
   CargaIDTipoNumero

   Load Text1(indice)
   Set Text1(indice).Container = uc1(indice)
   Text1(indice).Visible = True
   Text1(indice).Top = Text1(indice - 1).Top

   uc1(indice).AddType = uc1(0).AddType
   uc1(indice).AddType = ""

   Picture1.Visible = True

   If indice = 3 Then
   Me.btnAñadir.Enabled = False
   End If
End Sub

Черный круг - это UserControl с TextBox и ComboBox внутри. Красный круг - это PictureBox.

Итак, проблема в том, что мне нужно скопировать значения из uc1 в PictureBox, когда я нажимаю кнопку добавления. Но когда я нажимаю кнопку, появляется следующая ошибка:

Compilation Error: Method or data member not found.

В этой строке:

uc1(index).AddType = uc1(0).AddType

Итак, какое суеверие?

Answer 1

В своем посте вы говорите, что объект, обведенный черным, является UserControl, тогда как на самом деле это PictureBox с именем uc1(0). Поскольку PictureBox не имеет свойства AddType, вы получаете сообщение об ошибке.

Замена этого PictureBox на UserControl устранит ошибку.