我对VBA还是很陌生,这次我很烦...
我正在用几个动态创建的框架构建订单,每个框架包含一个或多个动态创建的组合框。我最终希望实现的结果是,每个组合框都有一个更改事件。
我不希望有一个完整的解决方案,但是第一步的一些帮助将不胜感激。具体来说,如何确保新文本框与组合框位于同一框架中?
我把其他线程中的一些东西混在一起,并想出了下面的代码。它在“包含于”中分解,显然在子组中。然而,子组是具有正确名称的框架。如果我将“ subgroup”更改为“ Subgroep-”和aantalframes,它将起作用。
Option Explicit
Public Included As MSForms.textbox
Public subgroup As MSForms.frame
Public dinbegrepen As Long
Public dmaximum As Long
Public aantalframes As Long
Public WithEvents ChkEvents As MSForms.combobox
Private Sub ChkEvents_Change()
If dmaximum > 1 Then
Set subgroup = ConfigureProduct.Controls("Subgroep- " & aantalframes)
Set Included =
ConfigureProduct.Controls("subgroup").Add("Forms.TextBox.1", "included")
With Included
.value = dinbegrepen
.Left = 305
.Width = 25
End With
End If
End Sub