Notifications
Clear all

Indexador variável

4 Posts
2 Usuários
0 Reactions
1,744 Visualizações
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Em post anterior sobre imagens aprendi como usar o indexador de um controle através de variável, ex:

Me.Controls("CommandButton" & x).Picture Is Nothing onde x é minha variável. Funciona numa boa.

Agora tentei fazer o mesmo para Me.Controls("CommandButton" & x).Enable = False, só que o controle não aceita o método.

Queria fazer um loop para bloquear e desbloquear objetos, ex:

For x = 1 to 50
Me.Controls("CommandButton" & x).Enable = False
Next

Alguém tem outra idéia?

At

 
Postado : 23/09/2013 6:59 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!!

Sub Chess()
Dim ctl As Control

For Each ctl In Me.Controls
ctl.Enabled = False
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/09/2013 7:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em post anterior sobre imagens aprendi como usar o indexador de um controle através de variável, ex:

Me.Controls("CommandButton" & x).Picture Is Nothing onde x é minha variável. Funciona numa boa.

Agora tentei fazer o mesmo para Me.Controls("CommandButton" & x).Enable = False, só que o controle não aceita o método.

Queria fazer um loop para bloquear e desbloquear objetos, ex:

For x = 1 to 50
Me.Controls("CommandButton" & x).Enable = False
Next

Alguém tem outra idéia?

At

Faltou a letra "d", o correto é Enabled e não Enable.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/09/2013 10:33 pm
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Em post anterior sobre imagens aprendi como usar o indexador de um controle através de variável, ex:

Me.Controls("CommandButton" & x).Picture Is Nothing onde x é minha variável. Funciona numa boa.

Agora tentei fazer o mesmo para Me.Controls("CommandButton" & x).Enable = False, só que o controle não aceita o método.

Queria fazer um loop para bloquear e desbloquear objetos, ex:

For x = 1 to 50
Me.Controls("CommandButton" & x).Enable = False
Next

Alguém tem outra idéia?

At

Faltou a letra "d", o correto é Enabled e não Enable.

[]s

Estou precisando descançar. :shock:

Obrigado pela lembrança. :lol:

At

 
Postado : 24/09/2013 5:02 pm