Selecteur de date

Soyez le premier à donner votre avis sur cette source.

Vue 8 590 fois - Téléchargée 636 fois

Description

Il s'agit d'une fonction affichant une feuille modale pour sélectionner une date
Retourne un type date
Attribut de l'interface écran de la séléection :

Titre de la fenêtre
Optional ByVal Titre As String = ""

Borne minimal pour l'année
Optional ByVal YearMin As Integer = 100

Borne maximale pour l'année
Optional ByVal YearMax As Integer = 9999

Date à mettre a jour défaut = date systeme
Optional ByVal DateAlias As Date

Format d'affichage des années
Optional ByVal FmtYear As Enum_FormatYear = Full_Year

Format d'affichage des mois
Optional ByVal FmtMonth As Enum_FormatMonth = Full_Alpha_Month

Police d'affichage des éléments de l'interface
Optional ByVal Police As StdFont

Couleur fond des cellules pour les jours du mois en cours
Optional ByVal Day_BackColor As OLE_COLOR = vbWhite

Couleur des caractères du texte des cellules pour les jours du mois en cours
Optional ByVal Day_Forecolor As OLE_COLOR = vbWindowText

Couleur du fond de la cellule du jour sélectionné
Optional ByVal SelectedDay_BackColor As OLE_COLOR = vbGreen

Couleur des caractères du texte de la cellule du jour sélectionné
Optional ByVal SelectedDay_Forecolor As OLE_COLOR = vbWindowText

Couleur fond des cellules des autres jours de la période affichée
Optional ByVal OtherDay_BackColor As OLE_COLOR = vbScrollBars

Couleur des caractères du texte des cellules des autres jours de la période affichée
Optional ByVal OtherDay_Forecolor As OLE_COLOR = vbGrayText

Couleur fond des cellules des jours fériés (Français / belges)
Optional ByVal HolliDay_BackColor As OLE_COLOR = vbRed

Couleur des caractères du texte des cellules des jours fériés (Français / belges)
Optional ByVal HolliDay_Forecolor As OLE_COLOR = vbWindowText

Paramettres booléen conditionnant le fonctionnement de l'interface
Optional ByVal BoolFlags As Enum_DateSelectBoolFlags = _
AutoNavigation + _
CircularYear + _
CircularMonth + _
DisplayAllDays + _
SelectOtherDays + _
ShowWeek + _
SelectHollidays + _
ShowHollidays) As Date

Signification des éléments de l'énuméré Enum_DateSelectBoolFlags
ShowWeek = 1 'Affiche les semaines
SelectOtherDays = 2 'Autorise la sélection des autre jours que ceux du mois
DisplayAllDays = 4 'N'affiche que les jours du mois en cours
AutoNavigation = 8 'Permet de passer d'une année à l'autre par les mois
CircularYear = 16 'Rotation sur les années
CircularMonth = 32 'Rotation sur les mois
NavButtonAuto = 64 'Répétition auto. au click de souris sur les bouttons
ShowHollidays = 128 'Affiche les jours fériés
SelectHollidays = 256 'Permet de sélectionner les jours fériés

Source / Exemple :


'Exemple d'utilisation :
Dim ol      As New CoreDLL

  GetDate = ol.Guis.Date_Select(Txt_TITRE, _
                                Txt_YearLimit(0), _
                                Txt_YearLimit(1), _
                                 , _
                                Cbx_FmtYear.ItemData(Cbx_FmtYear.ListIndex), _
                                Cbx_FmtMonth.ItemData(Cbx_FmtMonth.ListIndex), _
                                Police, _
                                Cmd_Color(1).BackColor, _
                                Cmd_Color(0).BackColor, _
                                Cmd_Color(3).BackColor, _
                                Cmd_Color(2).BackColor, _
                                Cmd_Color(5).BackColor, _
                                Cmd_Color(4).BackColor, _
                                Cmd_Color(7).BackColor, _
                                Cmd_Color(6).BackColor, _
                                BoolFlagsValue)

Conclusion :


Le projet est de type ActiveX c'est plus simple sous cette forme pour tester en mode developpement la conception d'une DLL
Mais en final l'intégralité du projet à l'exeception du module de starter et de la feuille de démo finirons en DLL ActiveX

Bon Dev à tous.

Codes Sources

A voir également

Ajouter un commentaire

Commentaire

crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
18 -
C'est peut-être bien ta source, mais faire tout cela, alors que le controle DTPicker existe !!! Cela me parait un peu "Inutile". Sauf a dire que c'est un très bonne exercice de programmation.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.