Discussion :

[megamario]

Bonjour à tous,

Je fait une conversion d'un gros projet de VB6 vers VB.net 2010 à mes heures perdu donc cela n'avance pas bien vite. Cela fait plusieurs moi que je n'y avais pas touché.

Dans le projet VB6 j'ai donc un MSFlexGrid (çi-joint un scan de l'apli) en haut à droite.

Il y a donc 2 colonnes et 6 lignes.

Tout est modifiables.
La 1er colonne change en fonction de la langue choisi par l'utilisateur.
En 2eme colonne cela change en fonction du choix fait par l'utilisateur sur la fenêtre de gauche.
Sur la 2éme colonne 6éme ligne (en rouge) l'utilisateur peut changer la donnée par un clique de souri qui ouvre une fenêtre de choix.

Il faut donc que je puisse remplir l'ensemble facilement, et que je puisse récupérer le clic de souri sur la cellule avec le texte en rouge.

Je voudrais bien sûr éviter d'utiliser les composants COM.

J'ai vu qu'une listview en mode détails pourrais faire l'affaire ou un DataGridView, mais je ne sais pas lequel utiliser, celui qui sera le plus facile pour mon utilisation.

Merci et bon weekend

[Pol63]

datagridview

[megamario]

C'est court comme réponse mais merci, je vais donc faire des essaies avec cet objet.
Les exemples que j'ai trouvé utilise une base de données, cela me paraissait pas vraiment mon besoin, mais je vais regarder cela.

Merci

[Pol63]

ca répond à la question

J'ai vu qu'une listview en mode détails pourrais faire l'affaire ou un DataGridView, mais je ne sais pas lequel utiliser, celui qui sera le plus facile pour mon utilisation.

un datagridview peut s'utiliser sans base de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dgv.columns.add( ... )
dgv.rows.Add(les valeurs)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim valeur = dgv.rows(y).cell(x).value ' de mémoire ca ressemble à ca pour lire (ou écrire) dans une cellule

[megamario]

Rassurer vous ce n'est pas une critique, juste court et efficace puisque c'est ce que je demandais.

Mais merci pour ce complément d'information, hier j'ai été pris sur autre chose, mais je teste dès que j'ai un peu de temps, merci encore.


[edit]

Voici ce que je viens de tester, cela fonctionne parfaitement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
  Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        'création des lignes
        DataGridView1.Rows.Add(5)
 
 
        For i As Integer = 0 To 5
            DataGridView1.Rows(i).Height = 17
            DataGridView1.Rows(i).ReadOnly = True
            DataGridView1.Rows(i).Resizable = DataGridViewTriState.False
            DataGridView1.Rows(i).Cells(0).Style.BackColor = Color.LightGray
        Next
        '1e titre
        DataGridView1.Columns(0).HeaderText = "Object"
        'La 1ere colonne
        DataGridView1.Rows(0).Cells(0).Value = "Ligne1"
        DataGridView1.Rows(1).Cells(0).Value = "Ligne2"
        DataGridView1.Rows(2).Cells(0).Value = "Ligne3"
        DataGridView1.Rows(3).Cells(0).Value = "Ligne4"
        DataGridView1.Rows(4).Cells(0).Value = "Ligne5"
        DataGridView1.Rows(5).Cells(0).Value = "Ligne6"
 
        'La donnée utilisé
        DataGridView1.Columns(1).HeaderText = "BATT_1"
        'les infos
        DataGridView1.Rows(0).Cells(1).Value = "MaLigne 1"
        DataGridView1.Rows(1).Cells(1).Value = "MaLigne 2"
        DataGridView1.Rows(2).Cells(1).Value = "MaLigne 3"
        DataGridView1.Rows(3).Cells(1).Value = "MaLigne 4"
        DataGridView1.Rows(4).Cells(1).Value = "MaLigne 5"
        DataGridView1.Rows(5).Cells(1).Value = "MaLigne 6"
 
        DataGridView1.Rows(5).Cells(1).Style.ForeColor = Color.Red
 
    End Sub

Petit détail, il faudrait que celle la cellule (5,1) (en rouge) soit sélectionnable, mais c'est qu'un détail.

Reste à capturer les Click sur la cellule rouge.


[edit 2]

Capture du click sur la cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.ColumnIndex = 1 And e.RowIndex = 5 Then
            'Pour essai
            DataGridView1.Rows(5).Cells(1).Style.ForeColor = Color.Green
 
        End If
    End Sub

Ci-joint le résultat.