Usuário com melhor resposta
erro procedimnento muito grande

Pergunta
-
Tem como amigo me ajudar a resolver esses problemasb esta dando este (ERRO PROCEDURE TOO LARGE).No final do código.Tem como reduzir este código? se tem como ficaria.O um outro procedimento que possa fazer a mesma coisa.Ou dividir esse esse procedimento? Sem tem como ficaria.Private Sub CBCodigo_Change()
TextPeça.Text = CBCodigo.Column("1")
TextLinha.Text = CBCodigo.Column("2")
TextModelo.Text = CBCodigo.Column("3")
Select Case CBCodigo.ListIndex
Case Is = 0
Image01.Visible = True
Image02.Visible = False
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 1
Image01.Visible = False
Image02.Visible = True
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 2
Image01.Visible = False
Image02.Visible = False
Image03.Visible = True
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseCase Is = 3
Image01.Visible = False
Image02.Visible = False
Image03.Visible = False
Image04.Visible = True
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseDesde já agradeço.Sem mas,Elso
Respostas
-
Bem vindo ao fórum
Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.
---
Sobre sua dúvida, que tal esconder todos as imagens e então mostrar só a desejada?
Image01.Visible = False Image02.Visible = False Image03.Visible = False Image04.Visible = False Image05.Visible = False Image06.Visible = False Image07.Visible = False Image08.Visible = False Image09.Visible = False Image10.Visible = False Select Case CBCodigo.ListIndex Case 0 Image01.Visible = True Case 1 Image02.Visible = True Case 2 Image03.Visible = True End Select
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:14
Todas as Respostas
-
Fev 3 em 1:08 AMBoa Noite Felipe.E criei um formulário excel vba onde ao clicar no código que esta no combox,mostra a figura que esta amarrada a este código e assim por diante.Como você pode verificar no código abaixo.Mas como eu tenho de colocar umas 100 figuras,ao chegar na 60 apresentou uma de erro(Procedure too large).Dando uma olhada na internet o erro e devido o código já esta muito grande.Tem como amigo me ajudar a resolver esses problemas.Tem como reduzir este código? se tem como ficaria.
O um outro procedimento que possa fazer a mesma coisa.
Ou dividir este código ou chamar o mesmo através de modulo, a outra seria enxugar mais este código. ficarei muito grato pela ajuda
Elso
Private Sub CBCodigo_Change()
TextPeça.Text = CBCodigo.Column("1")
TextLinha.Text = CBCodigo.Column("2")
TextModelo.Text = CBCodigo.Column("3")
Select Case CBCodigo.ListIndex
Case Is = 0
Image01.Visible = True
Image02.Visible = False
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 1
Image01.Visible = False
Image02.Visible = True
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 2
Image01.Visible = False
Image02.Visible = False
Image03.Visible = True
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseCase Is = 3
Image01.Visible = False
Image02.Visible = False
Image03.Visible = False
Image04.Visible = True
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseDesde já agradeço.Sem mas,Elso- Mesclado Felipe Costa GualbertoMVP, Moderator quarta-feira, 5 de fevereiro de 2014 23:31 Tópico repetido
-
Fev 3 em 1:08 AMBoa NoiteE criei um formulário excel vba onde ao clicar no código que esta no combox,mostra a figura que esta amarrada a este código e assim por diante.Como você pode verificar no código abaixo.Mas como eu tenho de colocar umas 100 figuras,ao chegar na 60 apresentou uma de erro(Procedure too large).Dando uma olhada na internet o erro e devido o código já esta muito grande.Tem como amigo me ajudar a resolver esses problemas.Tem como reduzir este código? se tem como ficaria.O um outro procedimento que possa fazer a mesma coisa.Private Sub CBCodigo_Change()
TextPeça.Text = CBCodigo.Column("1")
TextLinha.Text = CBCodigo.Column("2")
TextModelo.Text = CBCodigo.Column("3")
Select Case CBCodigo.ListIndex
Case Is = 0
Image01.Visible = True
Image02.Visible = False
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 1
Image01.Visible = False
Image02.Visible = True
Image03.Visible = False
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = False
Case Is = 2
Image01.Visible = False
Image02.Visible = False
Image03.Visible = True
Image04.Visible = False
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseCase Is = 3
Image01.Visible = False
Image02.Visible = False
Image03.Visible = False
Image04.Visible = True
Image05.Visible = False
Image06.Visible = False
Image07.Visible = False
Image08.Visible = False
Image09.Visible = False
Image10.Visible = FalseDesde já agradeço.Sem mas,Elso- Mesclado Felipe Costa GualbertoMVP, Moderator quarta-feira, 5 de fevereiro de 2014 23:06 Tópico repetido
-
Bem vindo ao fórum
Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.
---
Sobre sua dúvida, que tal esconder todos as imagens e então mostrar só a desejada?
Image01.Visible = False Image02.Visible = False Image03.Visible = False Image04.Visible = False Image05.Visible = False Image06.Visible = False Image07.Visible = False Image08.Visible = False Image09.Visible = False Image10.Visible = False Select Case CBCodigo.ListIndex Case 0 Image01.Visible = True Case 1 Image02.Visible = True Case 2 Image03.Visible = True End Select
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator sábado, 7 de junho de 2014 17:14