能帮我看下怎么调不出来吗?
Private Const SPI_SETDESKWALLPAPER = 10
Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByValfuWinIni As Long) As Long
Sub Main()
Dim myvalue
SPIFlags% =()
Ramdomize
myvalue = 10 * Rnd
bmpfiles = "E:\zm" + CStr(Int(1 + myvalue)) + ".bmp" '图片路径是E:\zm
ret& = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, ByVal bmpfiles, SPIFlags)
End Sub
我是刚学VB的,这是一个开机变换桌面的小程序,能帮我看下吗?
不甚感激~~~