动态壁纸程序

问题描述

精选答案

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As LongPrivate Const SPI_SETDESKWALLPAPER = 20Private Const SPIF_UPDATEINIFILE = &H1Private Const SPIF_SENDWININICHANGE = &H2Private Sub Command1_Click()Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, "图片完整路径（需要BMP格式）", SPIF_SENDWININICHANGE + SPIF_UPDATEINIFILE)End Sub