１．データグリットビューでヘッダを右クリックする。
※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