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és51Date d'inscriptionmercredi 25 décembre 2002StatutMembreDernière intervention17 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és236Date d'inscriptionjeudi 31 octobre 2002StatutMembreDernière intervention18 août 2006 28 déc. 2002 à 21:57
en principe, c pas le code, kon met dans la capture...
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