Oppure

Loading
17/08/09 12:32
ProgrMan93
Postato originariamente da Master_VB:

ecc il codice: 
If ListBox1.SelectedIndex >= 0 Then
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            MsgBox("mio comando " + ListBox1.SelectedItem.ToString())  'anche senza .tostring non funziona
        End If

ed ecco lo screen:
img5.imageshack.us/img5/7291/…


ora è molto chiaro praticamente l'errore deriva dal fatto che la riga 
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)


rimuove l'elemento a cui punta la riga di codice 

MsgBox("mio comando " + ListBox1.SelectedItem.ToString())


quindi modifica il codice così: 
        If ListBox1.SelectedItem <> Nothing Then
            Dim str As String = ListBox1.SelectedItem.ToString()
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            MsgBox(" mondo" + str)
        Else
            MsgBox("Non hai selezionato nessun elemento")
        End If
Ultima modifica effettuata da ProgrMan93 17/08/09 12:33
aaa