SamuelFerreira15 Posted June 25, 2014 Report Share Posted June 25, 2014 (edited) Boas malta Tenho duas list boxs e precisava de passar itens de uma para a outra através de um botão e já testei vários códigos e não consigo. Será que alguém me poderia me ajudar ???? Edited June 25, 2014 by SamuelFerreira15 Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 A imagem que colocaste não está correcta. Terás de fazer upload para um site (ex: imgur.com) e colocar o link aqui Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Esta é a imagem : http://we.tl/eQavSwv1hU Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 Já agora, que código já testaste? Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Deste género: Listbox2.items= listbox1.selectedvalues Mas acho que não faz muito sentido e é por isso que busco ajuda! Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 Podes fazer algo assim: ' Se tiver algum item selecionado na lista 1 If List1.ListIndex >= 0 Then Dim i As Integer ' Passa por todos os items da lista 1 While i < List1.ListCount ' Se o item estiver selecionado If List1.Selected(i) Then ' Adiciona o item à lista 2 List2.AddItem List1.List(i) ' Remove o item da lista 1 List1.RemoveItem (i) Else ' Se não estava selecionado, passa para o item seguinte i = i + 1 End If Wend End If Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Este codigo é para visual basic 12? Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 Não... este topico está na secção VBA... Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Então onde peço ajuda para visual basic 12? Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 http://www.portugal-a-programar.pt/forum/112-visual-basic-net/ Mas agora não vale a pena criares outro topico igual lá. É questão de um moderador mover Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Desde já peço desculpa mas não sabia! Mas nessa secção vai-me dar codigos para o VB.net Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 While ListBox1.SelectedIndex >= 0 ListBox2.Items.Add(ListBox1.SelectedItem) ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) End While Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 ListBox1.Items.RemoveAt(ListBox1.SelectedIndex) Este código não executa pois tenho ligado a base de dados a listbox1.... Link to comment Share on other sites More sharing options...
nelsonr Posted June 25, 2014 Report Share Posted June 25, 2014 Então, mas queres remover os items da lista 1 para passar para a 2? Caso seja isso, terás de usar a listbox sem estar ligada a base de dados ou remover o item da base de dados e fazer o refresh Link to comment Share on other sites More sharing options...
SamuelFerreira15 Posted June 25, 2014 Author Report Share Posted June 25, 2014 Ok obrigado pela ajuda! Consegui resolver o problema! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now