fragen zur listbox

03/04/2010 - 21:46 von hotzi | Report spam
hallo zusammen,

mit code kann ich aus der listbox "lbxkat" mehrere eintràge
selektieren und in die listbox "lbxSE" übertragen:

Private Sub cmdREIN_Click()

Dim i As Integer
For i = 0 To lbxKat.ListCount - 1
If lbxKat.Selected(i) = True Then
lbxSE.AddItem lbxKat.List(i)
End If
Next i

End Sub

nun möchte ich, dass nach dem click auf cmdREIN die selektion
aufgehoben wird und ich aus der listbox lbxSE ebenso mehrfach
selektierte eintràge entfernen kann.

freue mich auf eine antwort.

klaus
 

Lesen sie die antworten

#1 Michael Franke
04/04/2010 - 15:46 | Warnen spam
Hallo Klaus,

On 3 Apr., 21:46, hotzi wrote:
hallo zusammen,

mit code kann ich aus der listbox "lbxkat" mehrere eintràge
selektieren und in die listbox "lbxSE" übertragen:

Private Sub cmdREIN_Click()

Dim i As Integer
For i = 0 To lbxKat.ListCount - 1
    If lbxKat.Selected(i) = True Then
    lbxSE.AddItem lbxKat.List(i)
    End If
Next i

End Sub

nun möchte ich, dass nach dem click auf cmdREIN die selektion
aufgehoben wird und ich aus der listbox lbxSE ebenso mehrfach
selektierte eintràge entfernen kann.

freue mich auf eine antwort.

klaus



Private Sub cmdREIN_Click()
Dim i As Integer
For i = 0 To lbxKat.ListCount - 1
If lbxKat.Selected(i) = True Then
lbxSE.AddItem lbxKat.List(i)
lbxKat.Selected(i) = False
End If
Next i
End Sub

Den zweiten Teil Deiner Frage verstehe ich nicht.
Gruß, Michael

Ähnliche fragen