VBA - Excel - Carregando Imagem via ListBox

---

@CanalQb que Youtube 

---

---

VBA - Excel - Carregando Imagem via ListBox

---

---

Sempre crie uma frase de segurança única para jogos, Airdrops e qualquer outra coisa de origem desconhecida, em vez de usar sua carteira principal.

---

Inserir o post: 

Processo Simplificado para Navegação de Itens com VB6

Para tornar a navegação de itens mais suave em seu aplicativo VB6, podemos melhorar o código e simplificar o processo. Aqui está um exemplo de como fazer isso:

Limpar e Refatorar o Código: Em vez de ter duas sub-rotinas praticamente idênticas, podemos criar uma única sub-rotina para atualizar os itens.

Descrição do Código:

CMD2_Click(): Avança para o próximo item na lista.

CMD3_Click(): Volta para o item anterior na lista.

AtualizarItem(): Esta sub-rotina atualiza o item selecionado com base no parâmetro incremento, que pode ser positivo (avançar) ou negativo (voltar). Além disso, exibe as informações do item selecionado e carrega a imagem correspondente.

Com essas melhorias, o código fica mais limpo, organizado e fácil de entender.

Se tiver alguma dúvida ou sugestão, sinta-se à vontade para comentar abaixo! 🚀👨‍💻

Private Sub CMD2_Click()

    ' Avançar para o próximo item na lista

    AtualizarItem (1)

End Sub

Private Sub CMD3_Click()

    ' Voltar para o item anterior na lista

    AtualizarItem (-1)

End Sub

Private Sub AtualizarItem(ByVal incremento As Integer)

    On Error Resume Next

    

    ' Limpar a imagem

    IMG1.Picture = ""

    

    ' Atualizar o índice do item selecionado

    T1.Value = T1.Value + incremento

    If T1.Value > L1.ListCount - 1 Then T1.Value = 1

    If T1.Value < 1 Then T1.Value = L1.ListCount - 1

    L1.Selected(T1.Value) = True

    

    ' Exibir informações do item selecionado

    R2.Caption = "Cod: " & L1.Column(1)

    R3.Caption = "Nome: " & L1.Column(2)

    

    ' Carregar e exibir a imagem correspondente

    Dim caminhoImagem As String

    caminhoImagem = "c:\IMAGENS\" & L1.Column(0)

    R4.Caption = caminhoImagem

    IMG1.Picture = caminhoImagem

End Sub