Manipulation des jours dans un Calendar

Bonjour tout le monde.

J'ai une question sur la contrôle Calendar : je voudrais pouvoir mettre du texte en dessous de certains jours.

Et je cherche sur le net, dans la MSDN comment faire, mais je trouve pas. Là, pour l'isntant, je poursuis une piste qui passe par le DayRender, mais ça m'a l'air un peu scabreux.

Auriez vous une meilleure piste ?

Citation:

---

Envoyé par zooffy

Là, pour l'isntant, je poursuis une piste qui passe par le DayRender, mais ça m'a l'air un peu scabreux.

---

Ca me semble pourtant assez adapté...
Regarde l'exemple dans la doc de DayRender, justement ils ajoutent un texte :

Code:

---

1 2 3 4

' Add custom text to cell in the Calendar control. If e.Day.Date.Day = 18 Then e.Cell.Controls.Add(New LiteralControl("<br />Holiday")) End If

---

Merci pour ton aide.

Qaund j'ai dit "scabreux" j'ai pas dis indapaté. Efectivement, à priori, ça me semble être le seul chemin à suivre.

J'ai bien compris le principe d'ajout de contrôle directement dans la cellule.

Maintenant, un autre point où j'ai un peu de mal : dans l'exemple on texte si le jour est le numéro 18, ça m'a l'air simple. Mais dans mon cas j'ai un truc un poil différent. Je vais remonter une liste de date depuis la base de donnée et je ne vois pas trés bien comment lui injecter cette lsite de date pour qu'il ajoute le texte dans chacune des cases. Ma Table fera deux champs : une date et un texte.

Je vois bien faire un For Each pour lire la Table (qui sera sous forme de DAtaTable) mais j'ai plus de mal avec le test à effetuer.

Tu aurais une idée ?

Le plus simple c'est d'extraire de ta base une List(Of DateTime), et d'utiliser la méthode Contains...

Dans la classe :

Code:

---

Private _dates As List(Of DateTime)

---

Dans le Load :

Code:

---

1 2 3 4 5 6 7 8

' Charge les données de la base Dim dtDates As DataTable = ...   ' Extrait les dates Dim q = From row In dtDates.AsEnumerable() Select CType(row("LaColonneAvecLaDate"), DateTime) _dates = q.ToList()

---

Et dans le DayRender :

Code:

---

1 2	If _dates.Contains(e.Day.Date) Then ...

---

hop, hop, hop, on va trop vite la Monsieur tomlev.

On voudrait me faire avaler du Linq sans avoir l'air ........

Bon, ok, je pense pourvoir m'en sortir avec ton exemple de code.

Mais j'ai nu souci quand même : depuis ma base je vais remonter une lsite de date avec un texte dans le champ d'à côté. Là, je vois pas bien comment je le colle ce champ (enfin, son contenu) ou alors y a un épisode que j'ai loupé.

Tu vois ce que je vuex dire ?

Citation:

---

Envoyé par zooffy

Mais j'ai nu souci quand même : depuis ma base je vais remonter une lsite de date avec un texte dans le champ d'à côté. Là, je vois pas bien comment je le colle ce champ (enfin, son contenu) ou alors y a un épisode que j'ai loupé.

---

Ah ok... en fait j'avais extrait les dates de la DataTable pour que ce soit plus pratique à utiliser ensuite, mais effectivement s'il y une info associée à la date ça ne marche plus.

Dans ce cas, garde la DataTable dans un champ de la table, et récupère le texte dans la table à partir de la date :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private _dtDates As DataTable   Function GetTextForDate(ByVal dt As DateTime) As String   Dim query = From row In _dtDates.AsEnumerable() Let rowDate = CType(row("LaColonneAvecLaDate"), DateTime) Where rowDate = dt Select CType(row("LaColonneAvecLeTexte"), String)   Return query.FirstOrDefault()   End Function

---

Et dans le DayRender :

Code:

---

1 2 3

Dim dateText As String = GetTextForDate(e.Day.Date) If Not dateText Is Nothing Then ...

---

Bon, j'ai tenté d'implémenter ton idée, mais il doit me manquer des choses pour metre en place le Linq.

mon code bloque sur la ligne du Dim q = en me disnat qu'il lui manque une expression.

J'ai ajouté un imports tel que :

Code:

---

Imports System.Linq.Expressions

---

Mais visiblement, cela ne lui suffit pas.

Une idée ?

Non c'est pas System.Linq.Expressions qu'il te manque

Il te faut a priori 2 Imports :
- System.Linq
- System.Data

Et une référence qui n'est sans doute pas ajoutée par défaut :
- System.Data.DataSetExtensions.dll

(c'est ce qui permet de faire du Linq sur une DataTable)

Ok, merci pour l'info.
J'ai donc ajouté les deux imports et la réfrence dans mon web.config.
Mais ça ne change pas.

Dés que je tape un

Code:

---

Dim q =

---

il me lance une erreur.

J'ai recompilé le projet, refermé VS et relancé. J'ai relancé mon ISS aussi.

Je sèche.

Citation:

---

Envoyé par zooffy

J'ai donc ajouté les deux imports et la réfrence dans mon web.config.

---

Bah c'est plutôt au niveau du projet qu'il faut rajouter la référence... (clic droit, ajouter une référence)

Oui, c'est ce que j'ai fait et il me l'a collée direct dans le web.config.

Mais toujours rien. Et j'ai bien toutes les dll du Linq, je l'ai installé sur ma machine il y a plusiuers mois déjà.

Ah, ce serait pas tout simplement parce qu'il manque les "_" pour dire que tu continues sur la ligne suivante ?

Code:

---

1 2 3 4 5

Dim query = _ From row In _dtDates.AsEnumerable() _ Let rowDate = CType(row("LaColonneAvecLaDate"), DateTime) _ Where rowDate = dt _ Select CType(row("LaColonneAvecLeTexte"), String)

---

Il me semble que c'est pas nécessaire dans une requête Linq, mais c'est sans doute nécessaire après le "="...

Effectivement avec les _ ça marche mieux.

Merci pour tout Tomlev.