CAlendrier VB6 jour passé [Résolu]

Messages postés
51
Date d'inscription
mardi 6 février 2007
Statut
Membre
Dernière intervention
25 mars 2008
- - Dernière réponse : thomassc
Messages postés
16
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
20 avril 2011
- 19 août 2010 à 16:26
Bonjour,

Est il possible, dans le Calendrier de VB6, d'empécher la sélection d'un jour passé?
Le jour sélectionné par défaut dans mon Calendrier correspond à la date du jour malheureusement on peut saisir une date passé.

Merci
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
45
3
Merci
Salut [auteur/LOSCCARTOUCHE/975004.aspx losc_cartouche],Salut[auteur/RENFIELD/2359.aspx Renfield] ,

Une autre possibilité serait de fixer la propriété MinDate du MonthView

Private Sub Form_Load()
   MonthView1.MinDate = Date
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 205 internautes nous ont dit merci ce mois-ci

Commenter la réponse de jrivet
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
Private Sub
MonthView1_SelChange(ByVal StartDate As Date, ByVal EndDate As Date, Cancel As Boolean)
   Cancel = (StartDate < DateTime.Date)
End Sub ,

----

By Renfield






Renfield





Admin CodeS-SourceS

- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
pour le coté esthétique de la chose, tu pourrais par exemple ajouter :

Private Sub MonthView1_GetDayBold(ByVal StartDate As Date, ByVal Count As Integer, State() As Boolean)
Dim i As Long
   For i = 0 To Count - 1
       If StartDate >= DateTime.Date Then
           State(i) = True
       End If
       StartDate = StartDate + 1
   Next i
End Sub , ----
By Renfield

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
oui et non...
a voir selon le contexte.

j'ai mis en date le 21/02/2007

je peux me promener "partout" depuis le 01/02/2007 jusqu'à ..... la maxDate (pas été voir en avant)

donc le calendrier ne considère que le mois et l'année de la MinDate.

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
16
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
20 avril 2011
0
Merci
je suis sous XP ac vb6 sp6 est " cancel = (startdate < datetime.date) " ne fonctionne pas, les date antérieur reste toujours actives.
Commenter la réponse de thomassc
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
le MonthView te laisse selctionner les dates antérieures ?

note bien que visuellement, ces dates n'apparaitront pas désactivées... tu ne pourras simplement pas les selectionner.

Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Commenter la réponse de Renfield
Messages postés
16
Date d'inscription
mardi 27 juillet 2010
Statut
Membre
Dernière intervention
20 avril 2011
0
Merci
ben je sui en train de finaliser une application a ce sujet et je peux toujours sélectionner une date antérieur
(de plus, il y a quelques jours, j'ai trouvé un bout de code qui permettait de rendre les jour antérieur en gris.
mais je ne l'ai pas gardé...)
Commenter la réponse de thomassc