# Re: vb6.0中文普及版能够更换桌布吗?

Posted by Windows NT user on February 01, 1999 at 09:15:45:

In Reply to: vb6.0中文普及版能够更换桌布吗? posted by Luke on January 25, 1999 at 14:55:03:

: 我是一个VB程式设计新手,同学找我帮忙以VB开发一个程式用以更换WIN95的桌面底色图案,但我翻遍资料也找不到方法,请高手们帮忙(越详细越好)
: THANKS!

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPI_SETDESKWALLPAPER = 20

Private Const SPIF_UPDATEINIFILE = &H1

Private Const SPIF_SENDWININICHANGE = &H2

Private Sub Command1_Click()
Dim filepath As String
SystemParametersInfo SPI_SETDESKWALLPAPER, 0, filepath, SPIF_SENDWININICHANGE Or SPIF_UPDATEINIFILE
End Sub

Follow Ups: