Verfasst am: 18.01.2008, 12:25 Aufrufe: 730
Mit Select Case hast du dich wohl noch nie befasst.
Außerdem kann man was ich gesehen habe den Gruppen bzw. den Items keinen Key zuweisen.
Und es wird auch kein key im Event übergeben sondern nur der Index.
Du könntest dir aber Konstanten erstellen stattdessen.
Private Sub OutBar1_ItemClick(ByVal Group As Long, ByVal Index As Long, Button As Integer)
If Button = vbLeftButton Then
Select Case Gro ...
[ Time: 0.2144s ][ Queries: 55 (0.0980s) ][ GZIP on - Debug on ]