2016-06-08 13 views
0

Ich muss das ListView-Steuerelement unsichtbar, wenn Sie auf ein Element in ListView klicken. Ich habe ein Beispiel geschrieben. Aber es funktioniert nicht. Ich habe Spaltenüberschriften und wenige Elemente hinzugefügt. habe ich 'Fenster gemeinsame Steuerung 6.0 (SP6)'Listview Steuerelement in VB6

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem) 
    ListView1.Visible = False 
End Sub 

mir bitte helfen.

+1

Also, was geschehen ist? –

+0

Herr Alex, Ist die ListView nicht unsichtbar. Es funktioniert für Click, DblClick etc. außer Itemclick Event. bitte helfen –

+1

Sehr seltsam. Ich habe Ihr Codebeispiel ausprobiert und das ListView bleibt nur sichtbar. Ich kann mir keinen Grund vorstellen, so etwas zu tun, aber Sie können es fälschen, indem Sie es mit etwas wie "ListView1.Left = -ListView1.Width" vom Bildschirm entfernen. – jac

Antwort

1

Es scheint, dass das ListView seine eigene Sichtbarkeit wiederherstellt, wenn ItemClick die Steuerung zurückgibt, das gleiche scheint für MouseDown wahr zu sein.

Dies funktioniert:

Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 
    Dim clickedItem As MSComctlLib.ListItem 
    Set clickedItem = ListView1.HitTest(x, y) 
    If Not clickedItem Is Nothing Then ListView1.Visible = False 
End Sub 
+0

Es funktioniert. Danke für Ihre Hilfe. –