Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #58 da revista programar. Faz já o download aqui!

Miroi Tavares

ListView

Mensagens Recomendadas

Miroi Tavares    0
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

Editado por Miroi Tavares

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
acao    19
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Miroi Tavares    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
acao    19
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

Editado por acao

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Miroi Tavares    0
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???

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
acao    19
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.