Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - cambiare sfondo del desktop
Forum - Visual Basic 6 - cambiare sfondo del desktop

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedė, 01/01/1970
salve a tutti ragazzi.. ho bisogno di sapere come cambiare lo sfondo del desktop tramite una command Button.



Questo č il codice che ho inserito

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command1_Click()
  2. Dim t As Long
  3. Dim Wallpaper As String
  4. Wallpaper = app.path & "\img34.jpg"
  5.  
  6. t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
  7.  
  8. If t = 0 Then
  9.  
  10.    MousePointer = 0
  11.     MsgBox "Errore !"
  12.     Exit Sub
  13.  
  14. End If
  15.  
  16. End Sub


inoltre c'č anche un modulo con scritto:


Codice sorgente - presumibilmente VB.NET

  1. Declare Function SystemParametersInfo Lib "user32" Alias _
  2. "SystemParametersInfoA" (ByVal uAction As Long, _
  3. ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long



Il problema č che il programma accetta solo le immagini BITMAP, Io invece devo usare le JPG... So che posso portarle a BITMAP con Paint.. ma non si tratta di poche immagini... pių di 40

Qualcuno sa come aiutarmi?

Attendo Risposte...

Grazie Mille!!

PM Quote
Avatar
Galatolo_Federico (Ex-Member)
Pro


Messaggi: 91
Iscritto: 23/06/2007

Segnala al moderatore
Postato alle 11:40
Domenica, 30/09/2007
penso che l'esempio di Sir Dark possa esserti utile:

http://www.pierotofy.it/pages/download.php?filename=100p97 ...
;)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 11:48
Domenica, 30/09/2007
Ciao fede grazie per avere risposto.
č lo stesso codice che ho usato io...
:-|

Comunque nn preoccuparti... Ho risolto LoL... Ciao! e grazie per avere risposto!!

PM Quote