检查是否在VB6中添加/删除对象

问题描述：

我有一个查询，我有这个界面：

I have a query, I have this interface:

ComboBox位于UserControl内，按下带有ComboBox的Add this UserControl按钮可将UserControl / ComboBox添加到PictureBox中：

The ComboBox are inside a UserControl, pressing the Add this UserControl button with the ComboBox adds the UserControl / ComboBox in a PictureBox:

我想要的是，例如，当用户选择两个ComboBox的值并按下按钮时，将这些选择的值添加转到PictureBox（下面），并清理UserControl中选择的值。我留下一幅图片，假设用户选择了组合的值：

What I want is that, for example, when the user selects values of the two ComboBox and press the button add these selected values go to the PictureBox (below) and the values that are selected in the UserControl are cleaned.I leave a picture of what I say, suppose the user selected the values of the combos:

选择了它们之后，添加这些按钮已启用，它们将在下面传递，而上面的将被清除：

Once you have selected them, the add these button is enabled, they pass below and those above are cleaned:

但是，如果按下删除按钮，则必须删除最后一个加载的对象并移至顶部。我留下一个描述性图像，请按删除按钮：

But, if I press the remove button you must remove the last loaded object and move to the top. I leave a descriptive image, press the remove button:

底部消失并上升：

当前这是我用来添加的代码：

Currently this is the code I use to add:

Option Explicit
Dim indice As Integer

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

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

   Picture1.Visible = True

   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

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


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

那么，有谁知道我该怎么做？还是可以，

So, does anyone have any idea how I can do what I am looking for? Or yes, is it possible?

按钮删除：

Private Sub btnQuitar_Click()
   indice = cmbAddExample().Count - 1
   If indice > 0 Then
       Unload cmbAddExample(indice)
       End If
End Sub

答

使用此答案作为起点，您可以公平地实现这些要求容易。我已经从其他答案中复制了相关代码并对其进行了修改：

Using this answer as the starting point, you can implement these requirements fairly easily. I have copied relevant code from the other answer and modified it:

Private Sub btnAdd_Click()
   index = index + 1

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

   'copy the information down
   uc1(index).AddType = uc1(0).AddType
   uc1(0).AddType = ""

   Picture1.Visible = True
End Sub

Private Sub btnRemove_Click()
   If index = 0 Then Exit Sub

   'copy the information back up and remove the control
   uc1(0).AddType = uc1(index).AddType
   Unload uc1(index)

   index = index - 1
   If index = 0 Then Picture1.Visible = False
End Sub

我只编码了一个控件来说明这个概念。您可以根据需要添加其他控件。

I have only coded for one control to illustrate the concept. You can add other controls as needed.

检查是否在VB6中添加/删除对象

相关推荐