HSCROLLBAR

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

HSCROLLBAR

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#482571 - 28/06/2018 09:58:59

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)
ListDadosForn.ListItems(HScroll1.Value)..Checked = True
End Sub



Esta linha ela fica em vermelho, acredito porque esta sem o for

ListDadosForn.ListItems(HScroll1.Value)..Checked = True



Isabella


#482572 - 28/06/2018 10:12:17

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Isto é o que uso para fazer o teste.
Private Sub HS_Change()
HS.Min = 1
HS.Max = ListView1.ListItems.Count
Image1.Picture = LoadPicture(ListView1.ListItems(HS.Value).ListSubItems(4).Text)
ListView1.ListItems(HS.Value).Checked = True
End Sub

Crie outro HScroll e coloque o código dentro dele e teste.



#482575 - 28/06/2018 10:49:43

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Isto é o que uso para fazer o teste.
Private Sub HS_Change()
HS.Min = 1
HS.Max = ListView1.ListItems.Count
Image1.Picture = LoadPicture(ListView1.ListItems(HS.Value).ListSubItems(4).Text)
ListView1.ListItems(HS.Value).Checked = True
End Sub

Crie outro HScroll e coloque o código dentro dele e teste.


OMAR2011, legal, muito certo!

Agora só vou ver se consigo, ao sair para a próxima linha ele desmarque a linha anterior e deixar marcado CheckBox somente a linha da foto,
tentei
ListView1.ListItems(HS.Value).Checked = false
mas não funcionou...

Obrigada, OMAR2011!





Isabella


#482578 - 28/06/2018 13:48:59

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


OMAR2011

Me deparei na seguinte situação,
HS.Value - 1 para que o Checked  fique = false

Quando inicio ele sempre dá um erro, e se coloco um tratamento de erro, na ultima linha ele não desmarca a check?

Quando vi seu código pensei que iria conseguir fazer, mas não é tão simples quando não se tem conhecimento...

Se puder me ajudar, lhe agradeço!

Att,

Isabella


#482580 - 28/06/2018 14:30:39

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


 Anexos estao visíveis somente para usuários registrados

Olhe isto.



#482583 - 28/06/2018 15:06:15

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


 Anexos estao visíveis somente para usuários registrados

Deu este erro ao click

Isabella


#482584 - 28/06/2018 15:46:20

LOVO12
BRASIL
Cadast. em:Maio/2012


Citação:
:
Deu este erro ao click

Isabella está dando erro porque você não tem aquela imagem .

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


#482585 - 28/06/2018 15:47:33

OMAR2011
MONTES CLAROS
Cadast. em:Setembro/2011


Mude o caminho para onde esta as  suas imagens.



#482589 - 28/06/2018 16:27:37

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Legal, as textbox percorre o valor das linhas, isto vai me ajudar bastante...

Mas deixa te fazer uma pergunta,
como eu faria para ir desmarcando as checkbox?
Exemplo:
Dei o primeiro click ele foi e ativou o  checkbox da primeira linha e no segundo click ele ativou  o segundo checkbox,  
>>>>> mas quando ele ativar o segundo queria desativar o primeiro checkbox, no terceiro desativar o segundo...




Isabella


#482590 - 28/06/2018 16:55:33

LOVO12
BRASIL
Cadast. em:Maio/2012


Última edição em 28/06/2018 17:19:11 por LOVO12

Citação:
:
Legal, as textbox percorre o valor das linhas, isto vai me ajudar bastante...

Mas deixa te fazer uma pergunta,
como eu faria para ir desmarcando as checkbox?
Exemplo:
Dei o primeiro click ele foi e ativou o  checkbox da primeira linha e no segundo click ele ativou  o segundo checkbox,  
>>>>> mas quando ele ativar o segundo queria desativar o primeiro checkbox, no terceiro desativar o segundo...




cria la no topo
Option Explicit
Dim lnLinhaGrid as Integer
  
Private Sub HS_Change()
If lnLinhaGrid = 0 Then 'Preencher a variável se estiver Zerada.
    lnLinhaGrid = HS.Value
End If
HS.Min = 1
HS.Max = ListView1.ListItems.Count
Image1.Picture = LoadPicture(ListView1.ListItems(HS.Value).ListSubItems(4).Text)
If HS.Value <> lnLinhaGrid Then 'Verifica para desmarca a linha marcada
    ListView1.ListItems(lnLinhaGrid).Checked = False
    ListView1.ListItems(HS.Value).Checked = True
Else
    ListView1.ListItems(HS.Value).Checked = True
End If
Text1.Text = HS.Value - 1
Text2.Text = HS.Value
lnLinhaGrid = HS.Value
End Sub

Isabella dessa forma ai acho que resolve seu problema.


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


 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