VB.NET 修改桌面壁纸的方法

下面是VB.NET 修改桌面壁纸的方法:

Public Class Form1
    '晨彦电脑科技 www.btoss.com
    Private Const SPI_SETDESKWALLPAPER As Integer = &H14
    Private Const SPIF_UPDATEINIFILE As Integer = &H1
    Private Const SPIF_SENDWININICHANGE As Integer = &H2
    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" ( _
    ByVal uAction As Integer, ByVal uParam As Integer, _
    ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "图片地址", 1)
    End Sub
End Class

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注

Captcha Code