Soyez le premier à donner votre avis sur cette source.
Vue 9 236 fois - Téléchargée 761 fois
-> 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.
12 févr. 2003 à 09:21
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
12 févr. 2003 à 09:14
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
28 déc. 2002 à 21:57
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.