Positionnement dans un datagridview

Version imprimable

10/08/2007, 17h39
fikou

Positionnement dans un datagridview

Bonjour, :D

Je n'arrive à me positionner dans une cellule déterminée d'un DataGridView

Mon code :

Code:

MonGrid.Rows(5).Cells(5).Selected = True

Cette ligne de code fonctionne nickel dans la procédure Load de la Form.
Mais ne fonctionne pas du tout dans la procédure CellValueChanged du DataGridView. Je n'ai aucune erreur à l'éxecution :oops:

FikoU
11/08/2007, 07h46
fikou

Je voit que le DataGridView reste un mystère pour beaucoup :mouarf:
FikoU
13/08/2007, 10h06
Pol63

.cells.selected sert à définir si la cellule est selectionnée ou non
il suffit de chercher et en moins d'une minute on trouve .FirstDisplayedScrollingRowIndex
13/08/2007, 10h36
fikou
Salut sperot51 et merci pour ta réponse,

Cela ne fonctionne pas :

Code:

MonGrid.FirstDisplayedCell = Me.MonGrid.CurrentCell

Dans le FormLoad se positionne sur sur Row(0).Cell(0)
Code:

1 2 MonGrid.FirstDisplayedCell = Me.MonGrid.Item(e.RowIndex, e.ColumnIndex)
Dans CellValidating se positionne dans la cellule suivante

J'ai fait des recherches mais sur select ou autre, en géneral je trouve que rarement ce que je cherche dans l'aide vb.net.

Ce que j'aimerai après une validation de sasie erronée me repositionner dans la cellule (dans tout les cas la cellule selectionnée est la suivante)

A l'ffichage au lancement de la Form j'aimerai dans la cellule afficher le curseur de saisie.

Merci d'avance.

FikoU

Ce coup ci je crois avoir tout essayé :

Code:

1
2
3
4
5
6
7
 
MonGrid.FirstDisplayedCell = Me.MonGrid.Item(e.RowIndex, e.ColumnIndex)''La cellule active ne peut pas être paramétrée en tant que cellule invisible
MonGrid.FirstDisplayedCell = Me.MonGrid.CurrentCell '' ne plante pas mais ne sert à rien
Me.MonGrid.CurrentCell = Me.MonGrid.Item(e.RowIndex, 5)''La cellule active ne peut pas être paramétrée en tant que cellule invisible
Me.MonGrid.CurrentCell = MonGrid.Item(e.RowIndex, e.ColumnIndex) ''La cellule active ne peut pas être paramétrée en tant que cellule invisible
Me.MonGrid.CurrentCell.Selected = True '' ne plante pas mais ne sert à rien
MonGrid.Item(MonGrid.CurrentRow.Index, 5).Selected = True ''La cellule active ne peut pas être paramétrée en tant que cellule invisible

Je rappel que ce code se trouve dans :

Code:

1
2
3
Private Sub mongrid_CellValidating(ByVal sender As Object, _
    ByVal e As DataGridViewCellValidatingEventArgs) _
    Handles MonGrid.CellValidating

Bon ben voila @+ FikoU

13/08/2007, 12h02
Pol63

et FirstDisplayedScrollingRowIndex tu l'as essayé ?
13/08/2007, 12h27
fikou

J'ai essayé ça :

Code:

Me.MonGrid.FirstDisplayedScrollingRowIndex = e.RowIndex

ça ne marche pas mais cela ne plante pas.

Tu est sur car l'aide me dit : Obtient ou définit l'index de la ligne qui est la première ligne affichée sur le DataGridView.

Ce que je veut c'est après avoir traité une erreur dans Validatig me erpositionner dans la cellule ou l'eereur c'est produite. La cellule selectionné est sytematiquement la suivante. ?????

FikoU
13/08/2007, 13h14
Pol63

j'en ai aucune idée, moi je l'utilise pas en automatique le datagridview ^^

Je ne pense pas être en automatique !!!!
J'ai peut être oublié un paramètre lors de l'initialisation ??

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
''remplis le DataGridView
        Me.MonGrid.DataSource = Cl25m_DataSet
        Me.MonGrid.DataMember = tabConcours(NomTable)
        ''Empêche l'utilisateur de redimensionner la largeur des colonnes
        Me.MonGrid.AllowUserToResizeColumns = False
 
        ''colorise le texte de la ligne 1
        Me.MonGrid.Rows(0).DefaultCellStyle.ForeColor = Color.Blue
 
        ''Affiche la valeur de la cellule indiquée
        'Label1.Text = Me.MonGrid.Rows(0).Cells(14).Value.ToString().Equals("True")
 
        Me.MonGrid.ColumnHeadersDefaultCellStyle.Font = New Font(Me.MonGrid.Font, FontStyle.Bold)
 
        Me.MonGrid.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
 
        ''Masque affiche une colonne colonne OK pour le traitement
        Me.MonGrid.Columns(0).Visible = False
        With Me.MonGrid
            .Width = 513
            .Height = 265
            '.Columns(0).Width = 120
            .Columns(1).Width = 120
            .Columns(2).Width = 100
            .Columns(3).Width = 95
            .Columns(4).Width = 65
            .Columns(5).Width = 90
            ''Titre de la colonne
            .Columns(1).HeaderText = "Nom"
            .Columns(2).HeaderText = "Prénom"
            .Columns(3).HeaderText = "Date Naiss"
            .Columns(4).HeaderText = "Licence"
            .Columns(5).HeaderText = "Pas de Tir"
            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            ''fige la colonne 1
            .Columns(1).Frozen = True
            'Label1.Text = Me.MonGrid.Rows(0).Cells(0).Value.ToString()
 
            .Columns(1).ReadOnly = True
            .Columns(2).ReadOnly = True
            .Columns(3).ReadOnly = True
            .Columns(4).ReadOnly = True
            .Columns(5).ReadOnly = False
            .SelectionMode = DataGridViewSelectionMode.CellSelect 'FullRowSelect
            .MultiSelect = False
 
        End With
        With Me.MonGrid.DefaultCellStyle
            .Font = New Font("Tahoma", 8)
            .ForeColor = Color.Blue
            .BackColor = Color.White
            .SelectionForeColor = Color.Red
            .SelectionBackColor = Color.AliceBlue
        End With
 MonGrid.Rows(0).Cells(5).Selected = True

FikoU

13/08/2007, 14h20
Pol63

quand je dis que je l'utilise pas en automatique, c'est que c'est moi meme qui gère les données, (virtualmode = true) (pas de dataset)
et aussi que je gère les modifications ailleurs, pas directement dans le grid
et je fais les requetes d'update à la volée par le code aussi

sinon ca fait fouilli est c'est lent ...

au début j'ai essayé avec un dataset, pour 30000 lignes, l'appli était bloquée pendant 30 secondes au moins
maintenant le grid est rempli (au moins partiellement) et utilisable en une demie seconde

Re,
Te en as trop dit ou pas assez, cela m'intéresse vivement ton truc, pas pour l'appli en cour pas envie de recommencer mais pour le futur.

Tu rempli ton grid comme ça :

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
''Tous les champs Tireurs + Id et nom Societe
        sGrilleTireurs = "T_Nom, T_Prenom, T_Licence,  T_DateNaiss, T_Npa, T_Localite, " & _
              "S_NomSociete, T_IdTireur, T_IdSociete, S_IdSociete "
 
        sStrSql = "SELECT " & sGrilleTireurs & "FROM Societe S, Tireurs T WHERE S.S_IdSociete = T.T_IdSociete " & _
                "ORDER BY T_Nom, T_Prenom"
        OuvreBase(sStrSql, "cl25m.mdb", "Tireurs")
 
        ''INIT GRID SELECTION TIREURS
        ''Ajoute ue ligne le DataGridView
        dgvTireurs.ColumnCount = 9
        For i = 0 To Cl25m_DataTable.Rows.Count() - 1
            dgvTireurs.Rows.Add(Cl25m_DataTable.Rows(i).Item("T_nom"), Cl25m_DataTable.Rows(i).Item("T_Prenom"), _
            Cl25m_DataTable.Rows(i).Item("T_Licence"), Cl25m_DataTable.Rows(i).Item("T_DateNaiss"), _
            Cl25m_DataTable.Rows(i).Item("T_Npa"), Cl25m_DataTable.Rows(i).Item("T_Localite"), _
            Cl25m_DataTable.Rows(i).Item("S_NomSociete"), Cl25m_DataTable.Rows(i).Item("T_IdTireur"), _
            Cl25m_DataTable.Rows(i).Item("T_IdSociete"))
        Next
 
With Me.dgvTireurs
            .Columns(2).Width = 55
            .Columns(3).Width = 85
            .Columns(4).Width = 45
            .Columns(5).Width = 131
            .Columns(6).Width = 200
            .Columns(0).HeaderText = "Nom"
            .Columns(1).HeaderText = "Rrénom"
            .Columns(2).HeaderText = "Licence"
            .Columns(3).HeaderText = "Date Naiss"
            .Columns(4).HeaderText = "Npa"
            .Columns(5).HeaderText = "Localitél"
            .Columns(6).HeaderText = "Société"
            .Columns(7).Visible = False ''T_IdTireur
            .Columns(8).Visible = False ''T_IdSociete
            .Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            .Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
            .MultiSelect = False
            ''Empêche l'utilisateur de redimensionner la largeur des colonnes
            .AllowUserToResizeColumns = False
            .RowsDefaultCellStyle.BackColor = Color.White
            .AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
 
        End With

Je me sert de ce code pour faire une liste à 2 entrées

@+FikoU

13/08/2007, 16h36
Pol63

hein ?

enfin moi je rempli le datagridview avec un datatable d'un dataview avec un datareader sur un thread séparé ^^
avec datagrid.columns.add pour chaque champ, en fonction du getschematable du reader
et ensuite tu while reader.read add pour ajouter sur dataview.table (le datatable)

enfin le datagridview est pas vraiment rempli puisque virtualmode est à true
il me demande les données à afficher ...

ensuite le dataview permet de faire des recherches ou de changer l'ordre instantannément ou presque sans refaire d'accès au données

enfin la contradiction de microsoft c'est qu'il font un framework hyper détaillé, enfin très haut niveau avec des objets pour tout faire simplement
mais c'est tellement lent qu'on est obligé de tout redévelopper pour faire des objets de meme niveau mais rapides ...
ils auraient pu le faire à notre place !

en esperant que les prochains framework seront hardware accelerated ... parce que le langage est plutot agréable à manier

Salut fikou, je ne sais pas si je saisi bien ton problème, mais je vais essayé de le résumé. Tu voudrais que lors de l'événement validating, si la valeur saisie dans la cellule n'est pas valide, que la cellule reste sélectionnée pour signifier à l'utilisateur que la valeur entrée n'est pas la bonne ?

Simplement:
Code:

1 2 3 If taValeurEstInvalide Then e.Cancel = true End If
Ça indique à ton logiciel de ne pas quitter la cellule, car la validation a échoué.

Voici un bout de code d'un truc que je développe (en C#)
Code:

1 2 3 4 5 6 7 if (!double.TryParse(e.FormattedValue.ToString(), out temp)) { // Le tag de la colonne contient le message d'erreur à afficher (facultatif) dtgItems.Rows[e.RowIndex].ErrorText = dtgItems.Columns[e.ColumnIndex].Tag.ToString(); e.Cancel = true; }