bourleur
Messages postés15Date d'inscriptionvendredi 15 décembre 2006StatutMembreDernière intervention24 novembre 2007
-
12 août 2007 à 12:15
bourleur
Messages postés15Date d'inscriptionvendredi 15 décembre 2006StatutMembreDernière intervention24 novembre 2007
-
12 août 2007 à 19:01
bjr on ma deja aider pour mettre l'heure sur un programme qui a trés bien fonctionner
la g essayer de me debrouiller seul pour mettre la date et une barre de defilement ex: ( monprogramme qui defile) mé sa ne fonctionne pas
si vous pouvais m'aider sa serais sympas merci bcp
bourleur
Messages postés15Date d'inscriptionvendredi 15 décembre 2006StatutMembreDernière intervention24 novembre 2007 12 août 2007 à 12:37
re bjr pour la date g reussis me manque juste la barre de defilement que je trouve pas
si vous pourriez mettre le code complet sa m'aiderais merci a vous
cs_casy
Messages postés7741Date d'inscriptionmercredi 1 septembre 2004StatutMembreDernière intervention24 septembre 201440 12 août 2007 à 14:02
Un petit exemple :
Il te faut une form, avec un controle Timer dessus, appelé Timer1.
Tu configure le Timer avec un interval de 300 et Enabled= True
Tu colle ce code dans la partie code de la feuille et tu execute
Const Message As String = "VBFrance.com, le meilleur site d'entraide français sur la
programmation VB..."
Private Sub Timer1_Timer()
Static i As Integer
Dim mess_affiche As String
'construction
du message à affiché
i = i + 1
If i > Len(Message) Then i = 1
mess_affiche = Mid(Message, i) & Left(Message, i - 1)
'ici tu met le
controle dans lequel tu veux afficher,
'par
exemple la barre de titre de la form
Me.Caption = mess_affiche
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 12 août 2007 à 15:56
Et avec le lien fourni (car apparemment tu n'es pas allé voir), ça fera le même effet que le code de Casy, à la différence près que tu découvriras ce qu'est un UserControl