LoganShile (Ex-Member)
Expert
Messaggi: 350
Iscritto: 27/03/2009
|
Vorrei cambiare dopo un tot di tempo, lo sfondo del desktop con dei wallpaper che si trovano in una determinata cartella. Il percorso della cartella non deve essere cambiato successivamente, quindi può essere anche impostato nel codice senza cambiarlo successivamente. Come posso fare ?
|
|
manvb.net (Member)
Guru
Messaggi: 663
Iscritto: 28/01/2008
|
http://lmgtfy.com/?q=vb.net+cambiare+sfondo
Per tenere conto del tempo puoi usare un timer (lo imposti a 60 secondi e a ogni tick aumenti una variabile minuti).
Per quanto riguarda i wallpaper ne puoi ottenere una list con:
My.Computer.FileSystem.GetFiles(directory)
Ultima modifica effettuata da manvb.net il 20/06/2009 alle 20:16 |
|
LoganShile (Ex-Member)
Expert
Messaggi: 350
Iscritto: 27/03/2009
|
Ho messo:
_______________________________________________________________________________________________________
Public Class Form1
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Random, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const NOMESFONDO = "C:\Windows\Web\Wallpaper\img9.jpg"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PATHSFONDO As String
PATHSFONDO = App.Path & "C:\Windows\Web\Wallpaper\img9.jpg"
End Sub
End Class
_______________________________________________________________________________________________________
Ma mi da errore:
Nome App non dichiarato...
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Postato originariamente da LoganShile:
Ma mi da errore:
Nome App non dichiarato... |
AppPath(senza punto) ... se non ricordo male, si usava in Vb6 per ottenere il percorso dell'applicazione .... sosituiscilo con:
Codice sorgente - presumibilmente Plain Text |
My.Application.Info.DirectoryPath
|
Facci sapere...
Ciao
EDIT:
Ad ogni modo questa riga:
Codice sorgente - presumibilmente Plain Text |
PATHSFONDO = App.Path & "C:\Windows\Web\Wallpaper\img9.jpg"
|
non ha senso .... sostituiscila con il percorso in cui si trovano le immagini di sfondo.
Ultima modifica effettuata da Jeremy il 20/06/2009 alle 20:51 |
|
LoganShile (Ex-Member)
Expert
Messaggi: 350
Iscritto: 27/03/2009
|
OK non mi da errori ma non funziona...Leggi attentamente il codice:
Public Class Form1
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Random, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const NOMESFONDO = "C:\Windows\Web\Wallpaper\img9.jpg"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PATHSFONDO As String
PATHSFONDO = My.Application.Info.DirectoryPath & "C:\Windows\Web\Wallpaper\img9.jpg"
End Sub
End Class
|
|
manvb.net (Member)
Guru
Messaggi: 663
Iscritto: 28/01/2008
|
Scusa che senso ha questa riga:
PATHSFONDO = AppPath & "C:\Windows\Web\Wallpaper\img9.jpg"
Non può uscire un percorso valido.
Ultima modifica effettuata da manvb.net il 20/06/2009 alle 20:55 |
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
Ho modificato il post di prima .... dagli un ochhio.
Ciao
|
|
LoganShile (Ex-Member)
Expert
Messaggi: 350
Iscritto: 27/03/2009
|
Jeremy, se sostituisco diventa così:
Public Class Form1
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Random, ByVal fuWinIni As Long) As Long
Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
Private Const NOMESFONDO = "C:\Windows\Web\Wallpaper\img9.jpg"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim PATHSFONDO As String
PATHSFONDO = "C:\Windows\Web\Wallpaper\"
End Sub
End Class
E non và lo stesso
|
|
Jeremy (Normal User)
Pro
Messaggi: 134
Iscritto: 08/02/2009
|
|
|