Codici Programma che cambia lo sfondo del desktop

Public Class Form1
    Dim dlg As New OpenFileDialog 'dlg è un nuovo open file dialog..
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'pulsante sfoglia (...)
        ' apriamo un immagine e inseriamola nella picturebox come anteprima e inseriamo nela textbox la directory dell immagine

        dlg.Title = "Scegli l' immagine" 'è il titolo del opnfile dialog
        dlg.Filter = "Imamagini|*.png;*.jpg;*.bmp" 'è il filtro dell openfile dialog ( si possono aprire solo file immagini)
        dlg.Filter = "Imamagini|*.png;*.jpg;*.bmp"
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then 'se l utente clicca su apri nell open file dialog allora..
            TextBox1.Text = dlg.FileName 'nella textbox ci sarà la directory dell immagine
            PictureBox1.BackgroundImage = Image.FromFile(dlg.FileName)  ' l immagine della picture box = l immagine presa dal file nella directory dell open file dialog (C:\...\...\...\immagine.jpg
            PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
        End If
    End Sub
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Private Const SETDESKWALLPAPER = 20

    Private Const UPDATEINIFILE = &H1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' pulsante applica
        ' cambia lo sfondo del desktop cambiando a seconda dell immagine contenuta nella directory della textbox
        SystemParametersInfo(SETDESKWALLPAPER, 0, TextBox1.Text, UPDATEINIFILE)
        MsgBox("Sfondo del desktop correttamente cambiato", MsgBoxStyle.Information, "Sfondo cambiato") ' verrà mostrato un messagio che avviserà che l immagine di sndo è stata cambiata
    End Sub
End Class

Vai al video-tutorial...