CAlendrier VB6 jour passé [Résolu]

losc_cartouche 51 Messages postés mardi 6 février 2007Date d'inscription 25 mars 2008 Dernière intervention - 14 févr. 2008 à 15:23 - Dernière réponse : thomassc 16 Messages postés mardi 27 juillet 2010Date d'inscription 20 avril 2011 Dernière intervention
- 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 

Votre réponse

7 réponses

Meilleure réponse
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 14 févr. 2008 à 20:42
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

Merci jrivet 3

codes-sources a aidé 81 internautes ce mois-ci

Commenter la réponse de jrivet
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 14 févr. 2008 à 16:44
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
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 14 févr. 2008 à 16:47
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
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 15 févr. 2008 à 09:02
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
thomassc 16 Messages postés mardi 27 juillet 2010Date d'inscription 20 avril 2011 Dernière intervention - 19 août 2010 à 16:12
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
Renfield 17307 Messages postés mercredi 2 janvier 2002Date d'inscription 18 janvier 2017 Dernière intervention - 19 août 2010 à 16:15
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
thomassc 16 Messages postés mardi 27 juillet 2010Date d'inscription 20 avril 2011 Dernière intervention - 19 août 2010 à 16:26
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

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.