Discussion :

[ospreyyy]

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!

[hunteshiva]

la table que tu remplie c'est un DatagridView?

Code :

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

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

[ospreyyy]

la table que tu remplie c'est un DatagridView?

Code :

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

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 :

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
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

[ospreyyy]

Voilà la réponse que je cherchais :

Code :

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

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