Das ListView-Control wird oft eingesetzt, da man hier - im Gegensatz zur Standard-Listbox - mehrere Spalten festlegen kann. Und wenn man dann das ListView in der Detail-Ansicht verwendet ähnelt es doch sehr der normalen Listbox. Beim Klick auf eine Datenzeile löst das Control u.a. das SelectedIndexChanged-Event aus, über das man den selektierten Eintrag ermitteln kann. Was aber, wenn man beim Mausklick auch feststellen will oder muss, in welche Spalte der Klick erfolgte? Über die HitTest-Eigenschaft des ListView-Controls kann man das ListItem anhand der Mauskoordinaten ermitteln. Den Code hierzu setzen wir daher am besten in das MouseClick-Ereignis, da wir hier die Mauskoordinaten schnell abrufen können. Jetzt müssen wir nur noch ermitteln, in welche Spalte der Klick erfolgte. Und das sieht dann so aus: Private Sub ListView1_MouseClick(ByVal sender As Object, _ ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick ' Datenzeile ermitteln Dim HitItem As ListViewHitTestInfo = ListView1.HitTest(e.Location) If Not HitItem.Item Is Nothing Then ' Spalte ermitteln Dim column As Integer = 1 With HitItem.Item For i As Integer = 1 To .SubItems.Count - 1 If .SubItems(i).Bounds.Contains(e.X, e.Y) Then column = i + 1 : Exit For End If Next MsgBox("Mausklick erfolgte in die " & CStr(column) & ". Spalte") End With End If End Sub Dieser Tipp wurde bereits 15.823 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
sevOutBar 4.0 Vertikale Menüleisten á la Outlook Erstellen von Outlook ähnlichen Benutzer- interfaces - mit beliebig vielen Gruppen und Symboleinträgen. Moderner OfficeXP-Style mit Farbverläufen, Balloon-Tips, u.v.m. Tipp des Monats März 2024 Dieter Otter UTF-8 Konvertierung von Dateien und Strings VB6 selbst verfügt über keine Funktionen zur UTF-8 Konvertierung von Daten. Mit Hilfe des ADODB.Stream-Objekts lassen sich diese fehlenden Funktionen aber schnell nachrüsten. TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |