do loop until - schleife Verfasst am: 14.11.2003, 13:24
hallo!
ich muss (in der schule *gg*) eine do schleife programmieren!!
es soll programm sein in dem ich aus komboboxen artikel mit einem add cmdbutton in eine listbox einfüge! das habe ich geschafft *freu*!
nur stehe ich vor meinem problem:
wenn ein artikel schon in der listbox steht darf er nicht mehr eingefügt werden sprich er darf nicht 2mal in der listbox sein!
hierzu der code:
Code:
Option Explicit
Dim VEintrag
Private Sub cmdEnd_Click()
End
End Sub
Private Sub cboStyle0_LostFocus()
VEintrag = cboStyle0.Text
End Sub
Private Sub cboStyle1_LostFocus()
VEintrag = cboStyle1.Text
End Sub
Private Sub cboStyle2_LostFocus()
VEintrag = cboStyle2.Text
End Sub
Private Sub cmdRemove_Click()
Dim intIndexWert As Integer
intIndexWert = lstErgebnis.ListIndex
'Wenn Element ausgewählt, dieses entfernen
'und Zahl anzeigen
If intIndexWert > -1 Then
lstErgebnis.RemoveItem intIndexWert
lblErgebnis.Caption = lstErgebnis.ListCount
Else
Beep
End If
'Schaltfläche sperren, wenn Liste leer
If lstErgebnis.ListCount = 0 Then
cmdRemove.Enabled = False
End If
End Sub
Private Sub cmdAdd_Click()
'Eintrag hinzufügen, Zahl anzeigen
'Eintrag leer?
If Trim(VEintrag) <> "" Then
lstErgebnis.AddItem VEintrag
VEintrag = ""
lblErgebnis.Caption = lstErgebnis.ListCount
Else
Beep
End If
Private Sub lstErgebnis_DblClick()
cmdRemove.Value = True
End Sub
Private Sub lstErgebnis_GotFocus()
'Schaltfläche "Remove" entsperren,
'wenn Liste nicht leer
If lstErgebnis.ListCount > 0 Then
cmdRemove.Enabled = True
End If
End Sub
Registrieren
Login
