Ecran de veille

Soyez le premier à donner votre avis sur cette source.

Vue 9 236 fois - Téléchargée 761 fois

Description

Ecran de veille défilement d'images, avec gestion du bouton droit de la souris et mémorisation de la vitesse de défilement des images.

Source / Exemple :


-> Informations pour creer son ecran de veille.
-> Creer un nouveau projet 'EXE standard'
-> Dans la proprietés de votre feuille de depart (form), il faut mettre les paramètres suivant.
BorderStyle = 0 'False<br>
ClipControls =   0   'False<br>
ControlBox = 0  'False<br>
ShowInTaskbar   =   0   'False<br>
WindowState     =   2  'Maximized<br>
Compiler le projet. 
Copier l'executable dans le répertoire windows
Puis renomer votre projet "???.exe" en "???.scr"
voila votre ecran de veille.

Conclusion :


Ah, oui il faut créer un répertoire sous la racine (C:\) "ecran de veille" et dans ce repetoire un autre "mes images" puis créer avec le bloc note un fichier memoire.txt qui servira à mémoriser la vitesse de défilement des images, ce fichier et à mettre dans le répertoire "ecran de veille" précédament créer.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Papy67 Messages postés 51 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 17 mars 2008
12 févr. 2003 à 09:21
C mieux si tu te sers du dossiers des fond d'écrans non ?
voici les modifs que j'y ai apportées suites

Private Sub fichiers_Click()
strSave = String(200, Chr$(0))
Fichier$ = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) & "webwallpaper" & images.fichiers.FileName
images.Image1.Left = (Screen.Width / 2) - (images.Image1.Width / 2)
images.Image1.Top = Screen.Height / 2 - (images.Image1.Height / 2)
images.Image1.Picture = LoadPicture(Fichier$)
End Sub

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Dim Path As String, strSave As String
cs_Papy67 Messages postés 51 Date d'inscription mercredi 25 décembre 2002 Statut Membre Dernière intervention 17 mars 2008
12 févr. 2003 à 09:14
C mieux si tu te sers du dossiers des fond d'écrans non ?
voici les modifs que j'y ai apportées et tu declare GetWindowsDirectory pour avoir le dossier Windows
au quel tu ajoute "webwallpaper" et le tour est joué

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
--------------------------------------------------------------------------------
Private Sub Form_Load()
Unload Valeur
Dim Path As String, strSave As String
strSave = String(200, Chr$(0))
images.fichiers.FileName = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave))) & "webwallpaper"
images.Image1.Visible = False
Memorisation.initialise
End Sub
Guidelor Messages postés 236 Date d'inscription jeudi 31 octobre 2002 Statut Membre Dernière intervention 18 août 2006
28 déc. 2002 à 21:57
en principe, c pas le code, kon met dans la capture...

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.