Cara Merubah Background Desktop dengan Aplikasi vb.net

Cara Merubah Background Desktop dengan Aplikasi vb.net - Sudah lama ga update, karena kesibukan di dunia real, yang akhirnya kesempatan buat rapih-rapih blog dan update konten jadi jarang, tapi ya seminggu sekali akhirnya sekarang wajiblah update konten :D

Pada tutorial kali ini, kita akan membahas sebuah aplikasi kecil-kecilan, ya lumayanlah buat awal kita belajar programan. Seperti judul diatas, disini kita akan pelajari cara merubah tampilan desktop pada pc kita dengan source code dari vb.net. Ok langsung aja kita praktek.

Berikut cara merubah Background Desktop dengan aplikasi vb.net :
Bahan-bahan :
2 Button
1 ComboBox
1 PictureBox

Langkah-langkahnya :

Buka Microsoft Visual Studio 2008 / 2010
Buat New Project lalu pilih Windows Form Applikasi
Beri nama suka-suka kalian
Setelah keluar 1 Form di project kita
Add bahan-bahan component di toolbox seperti diatas
Beri nama pada masing-masing component

Button1 : cariButton
Button2 : aturButton
ComboBox1 : styleCBox
PictureBox1 : Pic_View

Dan atur posisi suka-suka kalian, klo saya seperti contoh diatas
Add sebuah Modul dangan cara klik Poject -> Add Module -> Modul1.vb , di ToolBar atas dan beri nama "wallpaper" lalu pastekan Code berikut :

Imports System
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports Microsoft.Win32

Public Class Wallpaper
    Const SPI_SETDESKWALLPAPER As Integer = 20
    Const SPIF_UPDATEINIFILE As Integer = &H1&
    Const SPIF_SENDWININICHANGE As Integer = &H2&

    <DllImport("user32")> _
    Public Shared Function SystemParametersInfo(ByVal uAction As Integer, _
        ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    End Function

    Public Enum Style As Integer
        Tiled
        Centered
        Stretched
    End Enum

    Public Sub SetWallpaper(ByVal path As String, ByVal selectedStyle As Style)
        Dim key As RegistryKey = My.Computer.Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)

        Select Case selectedStyle
            Case Style.Stretched
                key.SetValue("WallpaperStyle", "2")
                key.SetValue("TileWallpaper", "0")

            Case Style.Centered
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "0")

            Case Style.Tiled
                key.SetValue("WallpaperStyle", "1")
                key.SetValue("TileWallpaper", "1")
        End Select

        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, path, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
    End Sub
End Class

Kembali ke Form project, klik dua pada Form dan pastekan code berikut pada Form1_Load :

        OFD_wallpaper.Filter = "JPEG Image (*.jpg)| *.jpg"
        OFD_wallpaper.InitialDirectory = "%SystemRoot%"
        styleCBox.DataSource = System.Enum.GetNames(GetType(Wallpaper.Style))

Dan tepat diatas Form1_Load pastekan code berikut :

Dim Nama_File As String
Dim OFD_Wallpaper As New OpenFileDialog
Dim w As Wallpaper = New Wallpaper()

Lalu kembali ke Form project, klik dua kali Button1 (cariButton) dan pastekan code berikut :

        If DialogResult.OK = OFD_wallpaper.ShowDialog() Then
            Nama_File = OFD_wallpaper.FileName
            Pic_View.Image = New Bitmap(Nama_File)
        End If