动态壁纸程序

298次

问题描述:

动态壁纸程序求高手给解答

最佳答案

推荐答案

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

为你推荐