sanryuブログ

'???????????????
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