PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WEBDEV 2024 → [WB16] Calendrier multi sélection WEBDEV
[WB16] Calendrier multi sélection WEBDEV
Débuté par Sylvain, 09 juin 2011 00:27 - 1 réponse
Membre enregistré
43 messages
Posté le 09 juin 2011 - 00:27
Bonjour,

Quelqu'un saurait t'il comment faire pour sélectionné plusieurs dates dans un champ calendrier en WEBDEV ? Malheureusement la fonction CalendrierSelectPlus n'est pas disponible en WEBDEV !!

Je voudrais faire quelque chose qui ressemble à cela : http://www.abritel.fr/location-vacances/p677123

On sélectionne un groupe de date et on y applique une couleur.

Merci,
Posté le 12 mars 2024 - 09:39
Bonjour,

Je viens déterrer ce sujet qui date un peu mais comme la sélection multiple n'est toujours pas disponible en WebDev je viens vous partager la solution que j'ai utilisé pour contourner le problème :

//*** Variable globale de la page ***
TableauDateSelect est un tableau de Dates //Pour stocker les dates sélectionnées

// *** Code Sélection d'un jour dans le Calendrier ***

indiceTableau est un entier //Indice du tableau

//On cherche dans le tableau si la date existe ou non
indiceTableau = TableauCherche(POPUP_ajout_date_formation.TableauDateSelect,tcLinéaire,CAL_DateMultiples[CAL_DateMultiples])


SI indiceTableau = -1 ALORS
//La date n'existe pas on ajoute la date dans le tableau
TableauAjouteLigne(POPUP_ajout_date_formation.TableauDateSelect,CAL_DateMultiples[CAL_DateMultiples])
//On change la couleur de fond de la cellule du calendrier pour sélectionner la date
CAL_DateMultiples[CAL_DateMultiples].CouleurFond = RGB(48,193,224)
SINON
//La date existe dans le tableau on la supprime
TableauSupprimeLigne(POPUP_ajout_date_formation.TableauDateSelect,indiceTableau)
//On change la couleur de fond de la cellule du calendrier pour dé-sélectionner la date
CAL_DateMultiples[CAL_DateMultiples].CouleurFond = Transparent
FIN

//*** Bouton dans la page pour faire un raz des dates sélectionnées
//Code clic sur le bouton

POUR i = 1 _À_ TableauDateSelect..Occurrence //On parcourt le tableau
//On désélectionne la date dans le calendrier
CAL_DateMultiples[TableauDateSelect[i]]..CouleurFond = Transparent
FIN
//On supprime tout le tableau
TableauSupprimeTout(TableauDateSelect)