Verificar se item existe em listbox + manipular texto de itens

[dipacheco 0]

boas pessoal...

tenho um select no meu prog q recebe um campo chamado codigo. quero q o programa veja se esse codigo ja existe numa listbox.. se n existir insere. se ja existir deve guardar o index desse campo. é possivel correr uma listbox ate encontrar uma string e retornar o index de onde a encontrou e, em caso de n encontrar, adicionar logo e retornar o index?? obrigado.

[ribeiro55 47]

Sim, é possível.

Itera os itens com um simples ciclo For (não for each) e compara o que queres comparar.

[dipacheco 0]

e faço o for ate quando?

for i = 0 to ...
   listbox1.selectedindex = i
   if listbox1.selecteditem.tostring = textbox1.text then
      index=i
   end if
next

mas falta-me as ...

e assim nao verifico caso nao existe... e nem sei se nao dá problemas caso a lista esteja vazia...

[ribeiro55 47]

Até te falta mais do que isso.

ListBox1.SelectedIndex vai devolver sempre o mesmo índice nesse ciclo, porque não o afectas.

Tens de utilizar o "i" como índice. Li mal, ou alteraste o código

Até quando? Que tal até não haver mais itens na ListBox? ListBox.Items.Count-1

[Andrepereira9 4]

Tens aqui uma maneira

Dim existe As Integer = 0
Dim Index as integer
For i As Integer = 0 To ListBox1.Items.Count - 1
     If ListBox1.Items.Item(i) = "André".ToString Then
         index = i
          existe = 1
     End If
Next

If existe = 0 Then
     ListBox1.Items.Add("André")
End If

[dipacheco 0]

thanks!

ja agora mais um problema...

imagina q quero insiro o andré, como inseriste! ate aqui td bem... guardei o index q foi o zero neste caso.

depois tnh d fazer uns calculos e colocar esses dados noutras 2 listboxes... q sao referentes ao andre, logo ficarao no index zero das respectivas listboxes...

sabendo que index = zero

se eu fizer listbox2.selectedindex = index e listbox3.selectedindex = index

selecciono o campo referente ao andré...

mas imagina que esse andré é um campo comum em várias pessoas da BD e o q quero é q sempre q ele encontre andré vá à listbox2 e à 3 e mediante o q recebe da bd adicione ao q ja la estava, sabendo q sao inteiros..

por exemplo.. leio andre 5 5 e nao existe andre

entao fica

andre 5 5

a seguir leio novamente andre 10 10

entao fica

andre 15 15

como faço essa adiçao em valores da listbox???

[dipacheco 0]

a primeira vez nao funciona porque a listbox n tem valores... logo, o selectedindex = 0 dá erro...

[Caça 17]

Tens de fazer a verificação

IF ListBox1.Items.Count = 0 Then Exit Sub

[dipacheco 0]

sim, isso para controlar se ja existe ou nao é suficiente.

e como faço a incrementaçao a um valor da listbox? eu fiz algo deste genero mas nao incrementa...

ListBox2.SelectedItem = Val(ListBox2.SelectedItem) + (Val(TextBox20.Text) - Val(TextBox14.Text))

[dipacheco 0]

perfect