1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Public Sub data_grid_CurrentCellChanged(ByVal sender As Object, ByVal e As MouseEventArgs) Handles data_grid.CurrentCellChanged
If data_grid.CurrentCell.ColumnNumber = 4 Then
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber) = "X"
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 1) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 2) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 3) = ""
ElseIf data_grid.CurrentCell.ColumnNumber = 5 Then
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 1) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber) = "X"
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 1) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 2) = ""
ElseIf data_grid.CurrentCell.ColumnNumber = 6 Then
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 2) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 1) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber) = "X"
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber + 1) = ""
Else
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 3) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 2) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber - 1) = ""
data_grid.Item(data_grid.CurrentCell.RowNumber, data_grid.CurrentCell.ColumnNumber) = "X"
End If
End Sub 'rempli les cases a cocher du data grid avec des X |
Partager