关于VB中DATAGRID动态隐藏列的问题

我用DATAGRID现实我的查询结果，能不能通过双击某列或者右键菜单里面点隐藏，然后该列就隐藏了?请问具体如何实现

---

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    DataGrid1.Columns(ColIndex).Width = 0
End Sub

---

可以双击某列标头隐藏

---

单击,写错了

---

Private Sub DataGrid1_DblClick()
    With DataGrid1
        If .Col < 0 Then Exit Sub
        If .Row < 0 Then Exit Sub
        .Columns(.Col).Visible = False
    End With
End Sub

---

引用

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
    DataGrid1.Columns(ColIndex).Visible = False
End Sub

支持