@CanalQb

VBA - Excel - Carregando Imagem via ListBox


CanalQb


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