Ce petit demo permet d'afficher l'heure sur une feuille, mais avec effet de mirroir ou ..., vous allez voir. tout est dans le zip.
J'ai pas vu pareil sur vbfrance, je l'avais fait il y a plus de deux ans, et je l'ai retrouvé sur un de mes cds.
Zip = 3 Ko.
Contrôles : Deux boutons de commande, deux Timers et deux PictureBoxs font l'affaire.
Source / Exemple :
'Ce petit prog permer d'afficher l'heure en numérique sur votre feuille.
'il peut être inséré dans une appli plus grande.
'il ne prends pas beaucoup d'aspace.
'à vous de me donner votre avis.
'email : amajbour@hotmail.com
'déposé sur vbfrance le 13 Octobre 2003
'pour débutant(et -pourquoi pas- :pour les autres)
Private Sub cmdClose_Click()
'Quitter le demo
End
End Sub
Private Sub cmdShow_Click()
'Teste pour l'affichage :
'Si l'affichage est 'Inversion',
If cmdShow.Caption = "&Effet de Mirroir" Then
'On affiche l'affichage mirroire
Call ShowEffect("Mirror")
'et on change la caption du bouton d'affichage
cmdShow.Caption = "&Inversion"
Else
'Sinon :
'On affiche l'affichage mirroire
Call ShowEffect("Invert")
'et on change la caption du bouton d'affichage
cmdShow.Caption = "&Effet de Mirroir"
End If
End Sub
Private Sub Form_Load()
'Définir l'Interval des Timer (temps de répitition)
'ici : 1000 ==> une fois par seconde
Timer1.Interval = 1000
Timer2.Interval = 1000
'Définition de la lagreur de la feuille
Width = 3150
'Définition de la hauteur de la feuille
Height = 1990
'Définition de la couleur de l'arrière plan
BackColor = vbBlack
End Sub
Private Sub Picture1_GotFocus()
'Envoyer le focus vers le bouton de fermeture
'sur réception de ce premier
cmdShow.SetFocus
End Sub
Private Sub Picture2_GotFocus()
'Envoyer le focus vers le bouton de fermeture
'sur réception de ce premier
cmdShow.SetFocus
End Sub
Private Sub Timer1_Timer()
'Efaccer l'affichage précedent pour pouvoir afficher le suivant
Picture1.Cls
Picture2.Cls
'Ecriture de l'heure dans le premier PictureBox 'Picrture1' avec la méthode PaintPicture
Picture1.Print Format(Time, "hh:mm:ss AM/PM")
'Copie du contenu de 'Picture1' dans 'Picture2' avec Inversion avec la méthode PaintPicture
Picture2.PaintPicture Picture1.Image, Picture2.Width - 460, 0, -Picture2.Width, Picture2.Height
End Sub
Private Sub Timer2_Timer()
'Efaccer l'affichage précedent pour pouvoir afficher le suivant
Picture1.Cls
Picture2.Cls
'Ecriture de l'heure dans le premier PictureBox 'Picrture1' avec la méthode PaintPicture
Picture1.Print Format(Time, "hh:mm:ss AM/PM")
'Copie du contenu de 'Picture1' dans 'Picture2' avec Effet de mirroir avec la méthode PaintPicture
Picture2.PaintPicture Picture1.Image, 0, Picture2.Height, Picture2.Width, -Picture2.Height
End Sub
Public Static Function ShowEffect(ByVal Effect As String)
If Effect = "Mirror" Then
'Désactivation du Timer 1 (chargé de l'effet Inversion)
Timer1.Enabled = False
'Execution du timer 2 avant son activation
Timer2_Timer 'Pour ne pas avoir à attendre une seconde avant l'affichage
'Activation du Timer 2 (chargé de l'effet Inversion)
Timer2.Enabled = True
Else
'Execution du timer 1 avant son activation
Timer1_Timer 'Pour ne pas avoir à attendre une seconde avant l'affichage
'Activation du Timer 1 (chargé de l'effet Inversion)
Timer1.Enabled = True
'Désactivation du Timer 2 (chargé de l'effet Mirroire)
Timer2.Enabled = False
End If
End Function
Conclusion :
Je ne vois pas de bug, ça n'utilise ni Dll ni API, ni rien du tout d'ailleur.
même pas beaucoup d'espace mémoire.
sinon, contactez moi.
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.