ListView

[Miroi Tavares]

ola pessoal

Estou fazendo um programa de gestao de estoque e esta a me complicar um pouco

tenho 2 formularios um onde coloco os pordutos e outros onde fica exposto os produtos

no formulario armazem esta tudo okey !!

eu quero transferir todos os produtos que estao no armazem para partileira que é o outro listview que esta no outro formulario..

podem me ajudar por favor

VB6

Edited April 29, 2013 at 07:21 AM by Miroi Tavares

[acao]

boas

isto deve ser feito na basedados,deveras de ter um campo parteleira tipo(sim/não) ou (numérico) e depois usas checado ou sendo numérico o algarismo ex:1 para colucar os produtos na parteleira, e depois fazes com dois passos destintos:

1- no formulário armazém fazes a transferência para parteleira, actualizando o produtos na coluna parteleira para sim ou 1.

2- a listviem deverá receber os dados filtrados pela coluna parteleira.

cumps

acao

[Miroi Tavares]

Boas obrigado pela ajuda mais o que estou fazendo é um trabalho sem banco de dados...

estou a add os items pela form com o comando listview1.additem(1) Text1.txt

[acao]

boas

veja este exemplo,

num form adicione

-2 lisbox, com o nome List1 e List2.

3 botões com o nome, Command1, cmdCopiarItensList2, cmdAdicionarUmItem.

copies o código e corra o form exemplo.

Dim vItem As Integer
Private Sub cmdAdicionarUmItem_Click()
 List2.AddItem (List1.List(vItem))
 List1.RemoveItem (vItem)
End Sub
Private Sub Command1_Click()
 List1.Clear
 List1.AddItem ("teste")
 List1.AddItem ("teste1")
 List1.AddItem ("teste2")
 List1.AddItem ("teste3")
 List1.AddItem ("teste4")
End Sub
Private Sub cmdCopiarItensList2_Click()
 Dim i As Integer
 For i = 0 To List1.ListCount - 1
	  List2.AddItem (List1.List(i))
 Next
 List1.Clear
End Sub
Private Sub List1_Click()
 'passar valor do indice do item selecionado para variável
 vItem = List1.ListIndex
End Sub

o botao cmmando1 carrega a list1

o botao cmdCopiarItensList2 , copia todos os itens da list1 para list2 depois de estar carregada elimina todos os itens da list1.

o botao cmdAdicionatUmItem copia o item depois de selecionado na list1 para a list2 e elimina-o na list1.

cumps

acao

Edited April 30, 2013 at 01:03 PM by acao

[Miroi Tavares]

Boas!!! Muito obrigado pela ajuda é isso que eu queria!!! obrigado mesmo

Agora tem como eu colocar uma lista num outro formulario e com o botao mover enviar para o outro formulario???

[acao]

boas

pode fazer assim:

colocar uma variável array publica no modulo, e num evento da list ou botão carregar a variável array, depois é só usar aonde desejar.

No modulo

Public variavelArray() as variant

No form1

 
Private Sub cmdCarregarArray_Click()
 ReDim VariavelArray(0 To (List1.ListCount - 1))
 Dim i As Integer
 For i = 0 To (List1.ListCount - 1)
	  VariavelArray(i) = List1.List(i)
 Next
 Form2.Show
End Sub

No form2

 
Private Sub Form_Load()
 Dim i As Integer
 For i = LBound(VariavelArray) To UBound(VariavelArray)
	  List1.AddItem (VariavelArray(i))
 Next
End Sub

cumps

acao

[Miroi Tavares]

Gracias Amigo era mesmo o que estava a precisar obrigado pela ajuda