Vb.Net Masa Üstü Görseli Değiştirmek

ads

ads

Visual Basic ile masa üstü resim değiştirmek

Forma eklemeniz gereken eklenti:

1 tane button ekleyin. Kodların içinde değiştirmek istediğiniz  resmin URL'sini   yapıştırıp değiştirme işlemini yapabilirsiniz. 

Imports System.Runtime.InteropServices

Public Class Form1
    <DllImport("user32.DLL", CharSet:=CharSet.Auto)> Public Shared Function SystemParametersInfo(ByVal intAction As Integer, ByVal intParam As Integer, ByVal strParam As String, ByVal intWinIniFlag As Integer) As Integer

    End Function
    Private Shared SPI_SETDESKWALLPAPER As UInt32 = 20
    Private Shared SPIF_UPDATEINIFILE As UInt32 = &H1
    Private dosyaadi As [String] = "https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgLNg1vmNwlNcHj8mZ_Jdf7AtWuK97pU10EaUNC694Ljeng2eZwxdV_tx0psxLACeYIRoLPwVj2iOiOK6v43WZzMT62UpIqvLiPJruf3QJGElFYoU9tYDeRKm8xGzliH960WyboR9eVE4g/h93/logo.png" ' resim adresini bu bölüme ekleyiniz.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, dosyaadi, SPIF_UPDATEINIFILE)

    End Sub
End Class

ads