[VB.NET][VS2005] Locker une colonne d'un Datagridview

Version imprimable

24/01/2007, 02h02
olsimare

[VB.NET][VS2005] Locker une colonne d'un Datagridview

Bonjour.

Je charge un datagridview :
- à partir d'une table
- en créant dynamiquement les colonnes du datagridview (par code)

Pour certaines colonnes, je ne souhaite pas que les données soit modifiées donc je positionne : macolonne.readonly = true
Je souhaite qu'elle soit visible ( donc macolonne.visible = true) mais par contre, je ne souhaite pas qu'il soit possible de tabuler sur cette colonne --> c'est là que je bloque !

Ma colonne est bien en readonly, visible, mais par contre elle est accessible via touches de déplacement et tabulations (je cherche en fait un truc du genre macolonne.enabled = false comme en Access)

J'ai cherché au niveau des propriétés des DataGridViewColumn et du DataGridViewTextBoxColumn mais cette fonctionnalité ne semble pas existée nativement.

Une idée ?
(Ca me décevrait de devoir gérer des sauts de colonnes à la main !)

Merci d'avance
24/01/2007, 19h41
olsimare

Aprés avoir creuser profond, il s'avère qu'effectivement, on ne peut pas locker facilement une cellule d'un datagridview !
j'ai essayé de créer un classe heritée de la Datagridviewcell mais rien à faire ! La gestion du déplacement est au niveau du datagridview (c'est lui qui trappe les touches de déplacement en fait).

Je me suis donc tourné vers une gestion à la main dans l'évènement KeyDown du datagridview... (j'évite les colonnes en readonly en positionnant la currentcell par code sur frappe d'une touche de déplacement)

C'est moyen mais ça marche en attendant plus propre.

Bon je la mets résolu avec le code :

Nota :
AppDataGrid est un DataGridView
stCorrDII est une SortedList(Of Integer, Integer) qui donne l'index des colonnes suivant leur displayindex

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
'
' Ceci permet d'interdire d'accéder à la cellule aprés l'édition de la précédente 
' ou clic de la souris
'
    Private Sub AppDataGrid_CellEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
            If e.RowIndex >= 0 And e.ColumnIndex >= 0 Then
            If AppDataGrid.Columns(e.ColumnIndex).ReadOnly Then
                SendKeys.Send(Chr(9))
            End If
        End If
    End Sub
 
    Private Sub AppDataGrid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles AppDataGrid.KeyDown
        '
        ' On force a rester sur la même ligne si la derniere colonne est en readonly
        '
        With e
            If .KeyCode <> Keys.Right _
            And .KeyCode <> Keys.Left _
            And .KeyCode <> Keys.Tab Then Exit Sub
 
            e.Handled = True
 
            Dim cCC As Integer = AppDataGrid.Columns(AppDataGrid.CurrentCell.ColumnIndex).DisplayIndex
            Dim rCC As Integer = AppDataGrid.CurrentCell.RowIndex
            '
            ' gestion déplacement vers la droite
            '
            If .KeyCode = Keys.Right Or .KeyCode = Keys.Tab Then
                Me.AppDataGrid.CurrentCell = Me.AppDataGrid(findRigthNextEnabledColumn(cCC), rCC)
            End If
            '
            ' gestion déplacement vers la gauche
            '
            If .KeyCode = Keys.Left Or (.KeyCode = Keys.Tab And .Shift) Then
                Me.AppDataGrid.CurrentCell = Me.AppDataGrid(findLeftNextEnabledColumn(cCC), rCC)
            End If
 
        End With
 
    End Sub
 
    '
    ' GESTION DES DEPLACEMENTS VERS LES COLONNES READONLY
    '
    Private Function findRigthNextEnabledColumn(ByVal CurrentColDisplayIndex As Integer) As Integer
        Dim c As Integer = CurrentColDisplayIndex
        Do
            c += 1
            If c > Me.AppDataGrid.Columns.Count - 1 Then
                Return stCorrDII(CurrentColDisplayIndex)
            End If
            If Not Me.AppDataGrid(stCorrDII(c), Me.AppDataGrid.CurrentCell.RowIndex).ReadOnly _
                And Me.AppDataGrid(stCorrDII(c), Me.AppDataGrid.CurrentCell.RowIndex).Visible Then
                Return stCorrDII(c)
            End If
        Loop
    End Function
    Private Function findLeftNextEnabledColumn(ByVal CurrentColDisplayIndex As Integer) As Integer
        Dim c As Integer = CurrentColDisplayIndex
        Do
            c -= 1
            If c < 0 Then
                Return stCorrDII(CurrentColDisplayIndex)
            End If
            If Not Me.AppDataGrid(stCorrDII(c), Me.AppDataGrid.CurrentCell.RowIndex).ReadOnly _
                And Me.AppDataGrid(stCorrDII(c), Me.AppDataGrid.CurrentCell.RowIndex).Visible Then
                Return stCorrDII(c)
            End If
        Loop
    End Function