Accéder à une cellule d'un tableau VB.NET

Version imprimable

23/02/2011, 09h05
ospreyyy

Accéder à une cellule d'un tableau VB.NET

Bonjour,

Je suis en train de développer un calendrier sous ASP.NET & VB.NET mais je bloque sur la gestion d'une table.

En effet, je crée ma table en ASP.NET et la remplie sous VB.NET avec les fonctions table Cells.Add() et Rows.Add().

Une fois mon calendrier dessiné, j'aimerai créer une fonction d'ajout de rendez-vous, qui changera la couleur de fond d'une cellule si un rendez-vous correspond à cette heure.

Mais je n'arrive pas à accéder à une cellule précise de mon tableau dessiné en VB. J'ai essayé cal[x][y], cal(x)(y), cal(x,y)..

Quelqu'un pourrait m'indiquer la commande qui correspondrait à "cal(1,2).backcolor=.."

Merci d'avance de votre aide!

la table que tu remplie c'est un DatagridView?

Code:

1
2
3
4
5
6
7
8
9
10
11
 
'On modifie la couleur de fond d'une cellule, on aligne au milieu, 
' on met en italique et affiche "Toro"
 
Grid.Item(3, 4).Style.BackColor = Color.Chartreuse
 
Grid.Item(3, 4).Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
Grid.Item(3, 4).Style.Font = New Font(Grid.Font, FontStyle.Italic)
 
Grid.Item(3, 4).Value = "Toro"

Code extrait du cours de M P. Lasserre ;)

Citation:

Envoyé par hunteshiva

la table que tu remplie c'est un DatagridView?

Code:

1
2
3
4
5
6
7
8
9
10
11
 
'On modifie la couleur de fond d'une cellule, on aligne au milieu, 
' on met en italique et affiche "Toro"
 
Grid.Item(3, 4).Style.BackColor = Color.Chartreuse
 
Grid.Item(3, 4).Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
Grid.Item(3, 4).Style.Font = New Font(Grid.Font, FontStyle.Italic)
 
Grid.Item(3, 4).Value = "Toro"

Code extrait du cours de M P. Lasserre ;)

Voilà mon code pour créer ma table. Je n'ai malheureusement pas de propriété Item pour ma table..

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
Protected Sub AfficheCalSemaine()
        Dim numcol As Integer = 24
        Dim numligne As Integer = 26
        Dim i As Integer
        Dim j As Integer
        cal.Rows.Clear()
 
        For j = 0 To numligne - 1
            Dim r As New TableRow()
            For i = 0 To numcol - 1
                Dim c As New TableCell()
                If j = 0 Then
                    If (i Mod 4) = 0 Then
                        c.CssClass = "tableCalHautGauche"
                    ElseIf (i Mod 4) = 3 Then
                        c.CssClass = "tableCalHautDroite"
                    Else
                        c.CssClass = "tableCalHautMilieu"
                    End If
                ElseIf j = 25 Then
                    If (i Mod 4) = 0 Then
                        c.CssClass = "tableCalBasGauche"
                    ElseIf (i Mod 4) = 3 Then
                        c.CssClass = "tableCalBasDroite"
                    Else
                        c.CssClass = "tableCalBasMilieu"
                    End If
                ElseIf (i Mod 4) = 0 Then
                    c.CssClass = "tableCalMilieuGauche"
                ElseIf (i Mod 4) = 3 Then
                    c.CssClass = "tableCalMilieuDroite"
                Else
                    c.CssClass = "tableCalMilieuMilieu"
                End If
                c.Width = "28"
                c.Height = "15"
                r.Cells.Add(c)
            Next i
            cal.Rows.Add(r)
        Next j
    End Sub

23/02/2011, 15h57
ospreyyy

Voilà la réponse que je cherchais :

Code:

cal.Rows(i).Cells(0).BackColor = Drawing.Color.Aqua