'测试代码前,请在窗体中放入一个 PicBox Option ExplicitPrivate Declare Function SystemParametersInfo Lib "user32" _ Alias "SystemParametersInfoA" _ (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2 Private Sub SetDImg(ByVal TmpImg As String) Dim Bilden() As Byte '显示图片,并转换存储格式(虽然用的还是原来的名字,但实际上。。变BMP了) Picture1.Picture = LoadPicture(TmpImg) SavePicture Picture1.Picture, TmpImgCall SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, TmpImg, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE) End SubPrivate Sub Form_Load() '请按需要更改下面路径为你的图片路径 SetDImg "C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\示例图片\Winter.jpg" End Sub
Option ExplicitPrivate Declare Function SystemParametersInfo Lib "user32" _
Alias "SystemParametersInfoA" _
(ByVal uAction As Long, ByVal uParam As Long, _
ByVal lpvParam As Any, ByVal fuWinIni As Long) As LongConst SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1
Const SPIF_SENDWININICHANGE = &H2
Private Sub SetDImg(ByVal TmpImg As String)
Dim Bilden() As Byte
'显示图片,并转换存储格式(虽然用的还是原来的名字,但实际上。。变BMP了)
Picture1.Picture = LoadPicture(TmpImg)
SavePicture Picture1.Picture, TmpImgCall SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, TmpImg, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End SubPrivate Sub Form_Load()
'请按需要更改下面路径为你的图片路径
SetDImg "C:\Documents and Settings\All Users.WINDOWS\Documents\My Pictures\示例图片\Winter.jpg"
End Sub