FOR EACH

USUARIO.EXCLUIDOS 09/05/2006 02:05:56
#145632

Pessoal,

Estou fazendo um for each para varrer os objetos CommandButton do meu form e dentro dele um select case objeto.Index para que verifique o idex de cada objeto e indique o atributo para algumas propriedades.
Mas não esta funcionando, isso pode ser feito?
Ocorre o seguinte erro quando rodo:
Run-time error 343
Object not an array
E quando dou o debug ele seleciona a linha:
Select Case objeto.Index

Private Sub EventoInserirNovaEmpresa()

Dim objeto As Object

For Each objeto In Me.Controls
If TypeOf objeto Is CommandButton Then
Select Case objeto.Index
Case 0
objeto.Enabled = False
Case 1
objeto.Enabled = False
Case 2
objeto.Enabled = False
Case 3
objeto.Enabled = False
Case 4
objeto.Enabled = True
Case 5
objeto.Enabled = True
Case 6
objeto.Enabled = False
Case 7
objeto.Enabled = True
End Select
End If
Next
End Sub