Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click
Dim t AsLong
Dim Wallpaper AsString
Wallpaper =InputBox("Introduci il path completo")
If Wallpaper =""ThenExitSub
t = SystemParametersInfo(ByVal 20, vbnostring, ByVal Wallpaper, &H1)
If t = 0 Then
MousePointer = 0
MsgBox("Errore !")
ExitSub
EndIf
EndSub
Mi segna errore in ByVal 20, vbnostring, ByVal Wallpaper e dice prevista espressione
Mi segna errore in ByVal lpvParam As Any e dice 'As Any' non è supportato nelle istruzioni 'Declare'
comunque devi anche tenere conto del sistema operativo su cui operi.. ad esempio su xp non ci dovrebbero essere problemi, però su windows 7 non sono tanto sicuro che tu possa farlo dato i sistemi di sicurezza che ha (e che sinceramente ritengo molto invadenti :P)