Hi
I'm trying to follow a tutorial from Linux Format. I have 2 list boxes 
and I'm trying to move an entry from one to the other using:

Public Sub btnLeft_Click()

    Dim i As Integer
   'transfer selected itelms to left
   For i = 0 To lstInCar.Count - 1
     If lstInCar[i].Selected Then
       lstAtHome.Add(lstInCar[i].Text)
     Endif
   Next
   'clear the entries from the left (backwards)
   For i = lstInCar.Count - 1 To 0 Step - 1
     If lstInCar[i].Selected Then
       lstInCar.Remove(i)
     Endif
   Next
End

it works fine except, If, and only if, I select the first item in the 
list after it is deleted the new top item is  automatically selected. Is 
this a bug or am I doing something wrong?
Cheers
Gary

------------------------------------------------------------------------------
Dive into the World of Parallel Programming The Go Parallel Website, sponsored
by Intel and developed in partnership with Slashdot Media, is your hub for all
things parallel software development, from weekly thought leadership blogs to
news, videos, case studies, tutorials and more. Take a look and join the 
conversation now. http://goparallel.sourceforge.net/
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to