Criei uma lista de CheckBox conforme cada categoria é inserida na base de dados. Porém, não estou conseguindo capturar o evento click desses CheckBox criados dinamicamente. Alguém sabe onde está o erro?
Public Sub CarregarCheckBoxCategoria(Categoria As String)
Dim Cont As Integer
Set chkCheckBox = frmProdutos.Frame3.Controls.Add("Forms.CheckBox.1", "NovoCheckBox", True)
PositionTop = PositionTop + 12
With chkCheckBox
.Name = RemoverCaracter(Categoria)
.Caption = Categoria
.Width = 72
.Height = 18
.Top = .Top + PositionTop
.Left = 186
End With
End Sub
Private Sub NovoCheckBox_Click()
If CheckBox1.Value = True Then
MsgBox "CheckBox has selected"
Else
MsgBox "CheckBox has not selected"
End If
End Sub
Alterei o código acima, porém, só o último checkbox executa o evento Click. Segue o meu código:
UserForm
Public Sub CarregarCheckBoxCategoria(Categoria As String)
Dim CheckBox As Control
ReDim CheckBoxs(iChk)
Set CheckBox = frmProdutos.Frame3.Controls.Add("Forms.CheckBox.1", "NovoCheckBox", True)
PositionTop = PositionTop + 12
With CheckBox
.Name = RemoverCaracter(Categoria)
.Caption = Categoria
.Width = 72
.Height = 18
.Top = .Top + PositionTop
.Left = 186
End With
Set CheckBoxs(iChk).Ctrl = CheckBox
iChk = iChk + 1
End Sub
Módulo
Option Explicit
Public CheckBoxs() As New CheckBoxHandler
Public iChk As Integer
Public PositionTop As Integer
Private Conn As ADODB.Connection
Private rst As ADODB.Recordset
Public Sub ExtrairCategoria()
iChk = 0
Dim strQuery As String
strQuery = "SELECT CategoryName FROM dbo.Categories ORDER BY CategoryName"
Set rst = New ADODB.Recordset
rst.Open strQuery, Conn, adOpenForwardOnly, adLockOptimistic
frmProdutos.cmbCategoria.Clear
Do While Not rst.EOF()
frmProdutos.cmbCategoria.AddItem rst!CategoryName
Call frmProdutos.CarregarCheckBoxCategoria(rst!CategoryName)
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
Na Classe CheckBoxHandler
Option Explicit
Public WithEvents Ctrl As MSForms.CheckBox
Private Sub Ctrl_Click()
MsgBox "Você clicou no CheckBox de nome " & Ctrl.Name
End Sub
ReDim
tá errado. Compare no meu código original lá na outra pergunta. Ele usa o Redim apenas para definir o tamanho final do array. No seu caso, vc tá tentando fazer ele crescer dinamicamente (a cada chamada). Nesse caso, o array perde todo o conteúdo já existente. Vc devia ter usado oPreserve
na chamada doReDim
(dá uma olhada na documentação).ReDim
espera os índices ou o tamanho do array. Como vc usa o tamanho, acho que deveria seriChk+1
(senão ele vai sempre ter um a menos do que o necessário).