Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - [VB.NET] Cambiare automaticamente sfondo desktop Windows...
Forum - C# / VB.NET - [VB.NET] Cambiare automaticamente sfondo desktop Windows...

Pagine: [ 1 2 3 4 ] Precedente | Prossimo
Avatar
LoganShile (Ex-Member)
Expert


Messaggi: 350
Iscritto: 27/03/2009

Segnala al moderatore
Postato alle 19:51
Sabato, 20/06/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 ?


Volere è potere.
PM Quote
Avatar
manvb.net (Member)
Guru


Messaggi: 663
Iscritto: 28/01/2008

Segnala al moderatore
Postato alle 20:10
Sabato, 20/06/2009
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


"E' facile distruggere, la vera sfida è creare!"(cit. me)

"Ricordati chi sei, non permettere a nessuno di cambiarti, non perdere mai te stesso. Farai grandi cose nella vita."(cit. me)

double penetration; //ouch
PM Quote
Avatar
LoganShile (Ex-Member)
Expert


Messaggi: 350
Iscritto: 27/03/2009

Segnala al moderatore
Postato alle 20:34
Sabato, 20/06/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...


Volere è potere.
PM Quote
Avatar
Jeremy (Normal User)
Pro


Messaggi: 134
Iscritto: 08/02/2009

Segnala al moderatore
Postato alle 20:48
Sabato, 20/06/2009
Testo quotato

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

  1. My.Application.Info.DirectoryPath



Facci sapere...
Ciao


EDIT:
Ad ogni modo questa riga:
Codice sorgente - presumibilmente Plain Text

  1. 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
PM Quote
Avatar
LoganShile (Ex-Member)
Expert


Messaggi: 350
Iscritto: 27/03/2009

Segnala al moderatore
Postato alle 20:52
Sabato, 20/06/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


Volere è potere.
PM Quote
Avatar
manvb.net (Member)
Guru


Messaggi: 663
Iscritto: 28/01/2008

Segnala al moderatore
Postato alle 20:54
Sabato, 20/06/2009
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


"E' facile distruggere, la vera sfida è creare!"(cit. me)

"Ricordati chi sei, non permettere a nessuno di cambiarti, non perdere mai te stesso. Farai grandi cose nella vita."(cit. me)

double penetration; //ouch
PM Quote
Avatar
Jeremy (Normal User)
Pro


Messaggi: 134
Iscritto: 08/02/2009

Segnala al moderatore
Postato alle 20:54
Sabato, 20/06/2009
Ho modificato il post di prima .... dagli un ochhio.
Ciao

PM Quote
Avatar
LoganShile (Ex-Member)
Expert


Messaggi: 350
Iscritto: 27/03/2009

Segnala al moderatore
Postato alle 20:59
Sabato, 20/06/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


Volere è potere.
PM Quote
Avatar
Jeremy (Normal User)
Pro


Messaggi: 134
Iscritto: 08/02/2009

Segnala al moderatore
Postato alle 21:06
Sabato, 20/06/2009
Ciao.
Non può funzionare ..... manca l'uso della funzione API che hai dichiarato.
Dai un occhio qua:
http://msdn.microsoft.com/en-us/library/ms724947(VS.85).aspx


PM Quote
Pagine: [ 1 2 3 4 ] Precedente | Prossimo