Cherche ecran de veille

gillesdesantilles Messages postés 1 Date d'inscription lundi 11 juillet 2005 Statut Membre Dernière intervention 12 juillet 2005 - 12 juil. 2005 à 09:27
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 13 juil. 2005 à 19:13
Bonjour à tous,
Je suis débutant de chez débutant en VB6 et je cherche un code simple pour faire un ecran de veille avec un logo(BMP) qui se deplace sur un fond noir.
Si quelqu'un pouvait me filer un coup de main ca serait sympa.
Merci d'avance

2 réponses

jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
12 juil. 2005 à 16:05
Bonjour,

Je viens de déposer une source sur ce sujet, tu peux t'en inspirer et/où la modifier.

http://www.vbfrance.com/code.aspx?ID=32648



merci de laisser tes impressions.

jpleroisse
0
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 27
13 juil. 2005 à 19:13
Bonjour,

Tu peux aussi fabriquer ce petit écran de veille en placçant sut ta
Form un contrôle Timer et un PictureBox avec une image dedans.

Pour quitter l'écran, un click avec le bouton gauche de la souris.



Option Explicit

Dim DeltaX, DeltaY As Integer ' Déclare les variables.



Private Sub Timer1_Timer()

Picture1.Move Picture1.Left + DeltaX, Picture1.Top + DeltaY

If Picture1.Left < ScaleLeft Then DeltaX = 100

If Picture1.Left + Picture1.Width > ScaleWidth + ScaleLeft Then

DeltaX = -100

End If

If Picture1.Top < ScaleTop Then DeltaY = 100

If Picture1.Top + Picture1.Height > ScaleHeight + ScaleTop Then

DeltaY = -100

End If

End Sub



Private Sub Form_Load()

With Form1

.BorderStyle = 1

.WindowState = 2

.BackColor = vbBlack

.Caption = "Ecran de veille"

End With



With Picture1

.AutoSize = True

.BorderStyle = 0

.BackColor = vbBlack

End With



Timer1.Interval = 100 ' Définit l'intervalle.

DeltaX = 100 ' Initialise les variables.

DeltaY = 100

End Sub



Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End

End Sub



si celà te convient, clique réponse acceptée

jpleroisse
0