HSCROLLBAR

 Tópico anterior Próximo tópico Novo tópico

HSCROLLBAR

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482542 - 26/06/2018 16:40:50

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


   Olá,
  Primeiramente peço desculpa por meu pouco entendimento,
sei que aqui só tem pessoas muito capacidade, e as vezes venho com algumas dúvidas idiotas, mas tenho muita vontade em aprender e este fórum tem me ajudado muito...

Se alguém puder me ajudar

tenho uma listview onde em uma determinada coluna tem o caminho de uma foto
ao r o clik na listview carrego a imagem em uma image, até aqui consegui fazer, ao dar o click na listview carrego a imagem

mas queria usar um HScrollBar para adiantar a foto ou voltar a foto,

no meu pouco conhecimento tentei usar dessa forma, mas esta dando erro

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

se alguém puder me ajudar...

atenciosamente,





Isabella


#482543 - 26/06/2018 17:01:59

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Adiantar ou voltar a foto? Não entendi isso.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#482544 - 26/06/2018 23:14:23

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


digo, avançar a foto
exemplo, ao click na HScroll,  imagem1, proximo click imagem2 ...

Isabella


Resposta escolhida #482546 - 27/06/2018 09:54:36

LOVO12
BRASIL
Cadast. em:Maio/2012


Última edição em 27/06/2018 10:22:50 por LOVO12

Private Sub HScroll1_Change()
Dim lnLinha as String
If HScroll1.Value => 1 Then
    lnLinha = HScroll1.value 'Captura o valor do HScroll
    ListDadosForn.ListItems(lnLinha).Selected = True 'Seleciona a linha no ListView
    Image1.Picture = LoadPicture(ListDadosForn.SelectedItem.SubItems(16))
End if
End Sub


Não sei se é isso que você precisa, mas tenta assim talvez resolva seu problema rs.


--------------------------------------------------------------------------------------------------
Antes do software poder ser reutilizável ele primeiro tem de ser utilizável.


#482547 - 27/06/2018 10:11:35

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Lovo12, não deu certo,
Deu erro:
ListDadosForn.Value    >>> para ListDadosForn.ListItems

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 < | >  ou HScroll que já tem o formato de avanço. Onde ele percorra a Listview e se tiver caminho ele faça o mesmo trabalho do click na linha da listview...

Tentei adaptar este código que tinha, que ele percorre a ImageList
Private Sub Form_Load()
HScroll1.Min = 1
HScroll1.Max = ImageList1.ListImages.Count
HScroll1.Value = 1
End Sub
Private Sub HScroll1_Change()
   Image1.Picture = ImageList1.ListImages.Item(HScroll1.Value).Picture
End Sub

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




Isabella


#482548 - 27/06/2018 10:23:58

LOVO12
BRASIL
Cadast. em:Maio/2012


Última edição em 27/06/2018 10:30:01 por LOVO12

Citação:
:
Lovo12, não deu certo,
Deu erro:
ListDadosForn.Value    >>> para ListDadosForn.ListItems

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 < | >  ou HScroll que já tem o formato de avanço. Onde ele percorra a Listview e se tiver caminho ele faça o mesmo trabalho do click na linha da listview...

Tentei adaptar este código que tinha, que ele percorre a ImageList
Private Sub Form_Load()
HScroll1.Min = 1
HScroll1.Max = ImageList1.ListImages.Count
HScroll1.Value = 1
End Sub
Private Sub HScroll1_Change()
   Image1.Picture = ImageList1.ListImages.Item(HScroll1.Value).Picture
End Sub

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



Private Sub HScroll1_Change()
Dim lnLinha as String
If HScroll1.Value => 1 Then
    lnLinha = HScroll1.value 'Captura o valor do HScroll
    ListDadosForn.ListItems(lnLinha).Selected = True 'Seleciona a linha no ListView
    Image1.Picture = LoadPicture(ListDadosForn.SelectedItem.SubItems(16))
End if
End Sub


Tenta agora com esse ai, arrumei onde tava selecionado a linha rs

Add isso no Form Load


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


--------------------------------------------------------------------------------------------------
Antes do software poder ser reutilizável ele primeiro tem de ser utilizável.


#482549 - 27/06/2018 10:52:11

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


LOVO12, Obrigada pela atenção!

Esta dando erro este linha ao carregar o formulário

ListDadosForn.ListItems(lnLinha).Selected = True 'Seleciona a linha no ListView

Isabella


#482550 - 27/06/2018 11:03:01

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Tente assim.

Private Sub HScroll1_Change()
HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
   Image1.Picture = LoadPicture(ListDadosForn.ListItems(HScroll1.Value).ListSubItems(16).Text)
End Sub



#482552 - 27/06/2018 12:14:02

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


OMAR2011, Deu certo!
Agradeço pela ajuda dos amigos,
Obrigada!
Att,

Isabella


#482567 - 28/06/2018 09:05:50

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Tente assim.

Private Sub HScroll1_Change()
HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
   Image1.Picture = LoadPicture(ListDadosForn.ListItems(HScroll1.Value).ListSubItems(16).Text)
End Sub


Bom dia, OMAR2011!

Neste código acima, ele esta percorrendo as imagens da Listview,
mas precisaria ainda que ele ao percorrer a linha da List, fosse marcando a ChekBox,

tentei
ListFoto.ListItems(Item.Index).Selected = True

Tentei tb. colocar um loop

         For i = 1 To ListFoto.ListItems.Count
                         ListFoto.ListItems.Item(i).Checked = True
         Next i

Mas não deu certo,

Se alguém puder me ajudar...




Isabella


#482570 - 28/06/2018 09:51:29

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Tente assim.
Private Sub HScroll1_Change()
HScroll1.Min = 1
HScroll1.Max = ListDadosForn.ListItems.Count
   Image1.Picture = LoadPicture(ListDadosForn.ListItems(HScroll1.Value).ListSubItems(16).Text)
ListDadosForn.ListItems(HScroll1.Value)..Checked = True
End Sub




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 28/06/2018 21:14:35