Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

Procédure : DateKeyUpDown
Permet de faire évoluer la valeur "Date" d'un contrôle en utilisant les touches du curseur.
(Consulté 18516 fois.)

Public Sub DateKeyUpDown(objCall As Object, KeyCode As Integer, _
                        
Optional stFormat As String = "dd/mm/yy")
' Cette fonction (à appeler depuis l'évènement KeyDown d'un contrôle)
' permet de modifier la valeur d'une date (stockée donc dans l'objet
' appelant) en utilisant les touches du curseur.
' objCall est la référence de l'objet contenant la date
' KeyCode est la valeur donnée par la fonction KeyDown
' Le format est optionnel mais permet d'indiquer un type d'affichage
Dim dtDate As Date
If IsDate(objCall.Text) Then
' On s'assure que l'on a bien affaire à une date,
' puis, suivant la touche enfoncée, on modifie la valeur.
   
dtDate = CDate(objCall.Text)
   
Select Case KeyCode
       
Case vbKeyUp
            dtDate = dtDate + 1
       
Case vbKeyDown
            dtDate = dtDate - 1
       
Case vbKeyPageUp
            dtDate = DateAdd("m", 1, dtDate)
       
Case vbKeyPageDown
            dtDate = DateAdd("m", -1, dtDate)
   
End Select
   
' Modifie la date contenu dans l'objet
   
objCall.Text = Format$(dtDate, stFormat)
End If
End Sub

Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr