VB.net 编程设置图像为桌面墙纸

先在模块开始处申明API函数： '设置墙纸所用的API函数 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 再在按钮事件中将指定的图片文件作为墙纸，若已是BMP格式的，则不必转换： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim Pic As Image = Image.FromFile("c:\test.jpg") '指定的墙纸文件 Pic.Save("c:\test.bmp", System.Drawing.Imaging.ImageFormat.Bmp) '转为BMP格式 SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "c:\55.bmp", 0) '设置为墙纸 ‘SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "", 0) '取消设置 Catch ex As Exception MsgBox("设置过程中出现错误: " & ex.Message) End Try End Sub