Kan man på något sätt "checka" att man står vid sista värdet i en listbox ?


Och att man inte kan lägga till ett värde som redan finns i listboxen (en dubblett)
Tittade på det som finns under Tips/tricks men får inte till den






Sören

Första exemplet visar hur du i eventet Click på listboxen kan kontrollera om det är sista värdet i listan

<code>
Private Sub List1_Click()
If List1.ListIndex = (List1.ListCount - 1) Then
MsgBox "Sista posten"
End If
End Sub

</code>

För att kontrollera om det nya värdet finns i listboxen måste du loopa igen alla befintliga värden och göra en jömförelse. Exemplet nedan visar hur du enkelt kan göra detta.

<code>
Private Sub btnNew_Click()
Dim sNewValue As String
Dim i As Integer

sNewValue = "nyyyy"

For i = 0 To List1.ListCount - 1
If Trim(List1.List(i)) = sNewValue Then
MsgBox "Value already exists"
Exit For
End If
Next

End Sub
</code>