VB6中的列表视图控件答案

【问题标题】：Listview control in VB6VB6中的列表视图控件
【发布时间】：2016-06-08 04:21:29
【问题描述】：

单击列表视图中的项目时，我需要使列表视图控件不可见。我写了一个例子。但它不起作用。我添加了列标题和一些项目。我用的是'windows common control 6.0(sp6)'

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

请帮帮我。

【问题讨论】：

那么会发生什么？
先生。亚历克斯，不会隐藏 ListView 。它适用于 click、DblClick 等，除了 Itemclick 事件。请帮忙
很奇怪。我尝试了您的代码示例，并且 ListView 仍然可见。我想不出这样做的理由，但你可以通过使用类似ListView1.Left = -ListView1.Width 的东西将其移出屏幕来伪造它。
谢谢。是的，这是另一种方法。但这是我需要的困难方法。

标签： listview vb6

【解决方案1】：

当ItemClick 将控制权交还给它时，ListView 似乎恢复了自己的可见性，MouseDown 似乎也是如此。

这行得通：

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

【讨论】：