Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0525: Listview-Spalten individuell mit Menü versehen

VB 5/6-Tipp 0525: Listview-Spalten individuell mit Menü versehen

 von Yelve Yakut

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,45 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei projekt1.vbp -------------
' Die Komponente 'Microsoft Windows Common Controls 6.0 (SP6) (mscomctl.ocx)' wird benötigt.

'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Listenanzeigesteuerungselement "ListView1"
' Steuerelement: Menü "mnuGurken"
' Steuerelement: Menü "mnuGurkenGurke" (Index von 0 bis 2) auf mnuGurken
Option Explicit



Private Sub Form_Load()
    mnuGurken.Visible = False
    With ListView1.ListItems
        .Add(, , "Esse täglich eine").ListSubItems.Add , , "Sauergurke"
        .Add(, , "Das Leben ist eine einzige").ListSubItems.Add , , "Schweissgurke"
    End With
End Sub

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = 2 And lvGetColumn(ListView1, x, y) = 2 Then
        PopupMenu mnuGurken
    End If
End Sub

Private Function lvGetColumn(LV As ListView, x As Single, y As Single) As Integer
    With LV
        If .ListItems.Count > 0 Then
            Dim a As Integer
            For a = 1 To .ColumnHeaders.Count
                If .ColumnHeaders(a).Left <= x And _
                    .ColumnHeaders(a).Left + .ColumnHeaders(a).Width >= x Then
                    
                    lvGetColumn = a
                    Exit For
                End If
            Next a
        End If
    End With
End Function

Private Sub mnuGurkenGurke_Click(Index As Integer)
    ListView1.SelectedItem.ListSubItems(1).Text = mnuGurkenGurke(Index).Caption
End Sub

'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei projekt1.vbp --------------