none
erro procedimnento muito grande RRS feed

  • 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 = 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

  • 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

  •  
    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
  •  
    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
  • 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