Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ListBox
Autor: Frank1
Datum: 14.09.03 15:09
Hall mc-wayne, versuchs mal so : Private Sub Command1_Click() 'Hinzufügen Static n As Integer n = n + 1 Call List1.AddItem(CStr(n) & " ( " & Text3.Text & " €)") End Sub Private Sub Command2_Click() 'Markierte/s Item/s entfernen Dim n As Integer n = 0 Do While n < List1.ListCount If List1.Selected(n) Then Call List1.RemoveItem(n) Else n = n + 1 End If Loop List1.Refresh End Sub

ListBox	492	mc-wayne	14.09.03 12:33
Re: ListBox	379	Frank1	14.09.03 15:09
Re: ListBox	318	mc-wayne	14.09.03 17:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen