?????????????????????????
??CellContextMenuStripNeeded???????
?????????????
?[???]?????????
?[???]???????????
'???????????????
Private Sub dgv_CellContextMenuStripNeeded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellContextMenuStripNeededEventArgs) Handles dgv.CellContextMenuStripNeeded
If e.RowIndex < 0 Then
e.ContextMenuStrip = ContextMenuStrip1
mFrozenColumnIndex = e.ColumnIndex
End If
End Sub
'?????????????????
Private Sub ???ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ???ToolStripMenuItem.Click
??’?????
UnFrozen()
’??????
dgv.Columns(mFrozenColumnIndex).Frozen = True
End Sub
'???????
Private Sub ???ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ???ToolStripMenuItem.Click
UnFrozen()
End Sub
'?????
Private Sub UnFrozen()
With dgv
For i As Integer = 0 To .Columns.Count - 1
.Columns(i).Frozen = False
Next
End With
End Sub