Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Visualizador de ima...
 
Notifications
Clear all

Visualizador de imagem

 
2024 - VBA & Macros
Post Recente por Luk 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,187 Visualizações
RSS
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Pessoal,
se alguém puder me ajudar, fico agradecida!

tenho uma listview e uma image

cada vez que dou um click na linha da listview que tenha imagem ela carrega a image

queria fazer dois botões um para direita outro para esquerda, onde possa avançar as imagens ao click do botão
achei este código na internet que talvez possa me ajudar, mas não estou conseguindo fazer ele funcionar, onde esta o erro?

HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
HScroll1.Value = 1

   Image1.Picture = LoadPicture(ListDadosForn.SelectedItem.SubItems(16))(HScroll1.Value)
End Sub

Atenciosamente,
Isabella

 
Postado : 26/06/2018 8:09 pm
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 
Private Sub HScroll1_Change()

HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
HScroll1.Value = 1

   Image1.Picture = LoadPicture(ListDadosForn.SelectedItem.SubItems(16))(HScroll1.Value)
End Sub

código completo

 
Postado : 26/06/2018 8:10 pm
 boobymcgee
(@boobymcgee)
Posts: 84
Trusted Member
 

Oi, a imagem esta associada ao item da list, você deseja avançar no item da list com esses botões ou somente a imagem?

Tente anexar uma cópia de sua planilha para facilitar o entendimento.

 
Postado : 27/06/2018 5:31 am
 Luk
(@luk)
Posts: 44
Eminent Member
Topic starter
 

Bom dia, boobymcgee!

Eu não fiz ainda, porque precisaria ver a possibilidade de fazer,
uso o banco de dados access ou mysql e normalmente, eu capturo o caminho da imagem e envio para o banco de dados,
depois ao dar o click na linha da Listview a imagem carrega na image e assim vou dando click nas linhas da listview e se tiver o caminho da foto ele carrega a imagem...

pensei em usar dois botões < | > Onde ele percorra a Listview e se tiver caminho ele faça o mesmo trabalho do click na linha da listview...
achei este código na internet
tentei adaptar ao click ele fazer o percurso na listview mas não consegui...

Private Sub HScroll1_Change()

HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
HScroll1.Value = 1

   Image1.Picture = LoadPicture(ListDadosForn.SelectedItem.SubItems(16))(HScroll1.Value)
End Sub
 
Postado : 27/06/2018 6:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico