Ich wollte abschlieend noch mitteilen, was ich fr mich als Lsung genommen habe.
In der Listbox habe ich ein MouseDown-Event angelegt. Darin ist nur:
Return true
Zustzlich in MouseUp-Event angelegt und dort ein Men erzeugt:
[code]// Display menu if clicked in PopupMenu column
Dim row As Integer = Me.RowFromXY(x, y)
Dim col As Integer = Me.ColumnFromXY(x, y)
If col = 0 Then
Me.ListIndex = row
Me.Selected(row) = True
Dim base As New MenuItem
base.Append(New MenuItem(“Test 1”))
base.Append(New MenuItem(“Test 2”))
base.Append(New MenuItem(“Test 3”))
Dim selectedMenu As MenuItem
selectedMenu = base.PopUp
If selectedMenu <> Nil Then
me.AddRow selectedMenu.Text
End If
End If
[/code]
Das ist zwar kein Popupmen, damit kann ich aber auch ganz gut leben.
Danke fr die Untersttzung!
Gru, Stefan Mettenbrink.