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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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