none
erro procedimnento muito grande RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
     
    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 = False
    Case 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 = False
     
    Desde já agradeço.
    Sem mas,
    Elso
    quarta-feira, 5 de fevereiro de 2014 18:12
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quarta-feira, 5 de fevereiro de 2014 23:25
    |
    Moderador

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
     
    Fev 3 em 1:08 AM
    Boa 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 = False
    Case 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 = False
     
    Desde já agradeço.
    Sem mas,
    Elso
    quarta-feira, 5 de fevereiro de 2014 15:03
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
     
    Fev 3 em 1:08 AM
    Boa Noite
    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.
     
    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 = False
    Case 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 = False
     
    Desde já agradeço.
    Sem mas,
    Elso
    quarta-feira, 5 de fevereiro de 2014 15:55
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

    quarta-feira, 5 de fevereiro de 2014 23:25
    |
    Moderador