()
Newbie
Messaggi:
Iscritto:
|
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 |
Private Sub Command1_Click() Dim t As Long Dim Wallpaper As String Wallpaper = app.path & "\img34.jpg" t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1) If t = 0 Then MousePointer = 0 MsgBox "Errore !" Exit Sub End If End Sub
|
inoltre c'č anche un modulo con scritto:
Codice sorgente - presumibilmente VB.NET |
Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, _ 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!! |