by ash (2 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 1st May 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX
API Declarations
Const SPI_SETDESKWALLPAPER = 20
Dim a(100) As String
Dim i, x As Integer
Dim lngSuccess As Long
Dim strBitmapImage As String
VBcoders
File1.Pattern = "*.bmp"
File1.Path = "c:\windows"
x = File1.ListCount
For i = 0 To x - 1
File1.ListIndex = i
y$ = File1.FileName
a(i) = y$
'MsgBox a(i)
Next i
i = 0
End Sub
Private Sub Timer1_Timer()
If i = x - 1 Then
i = 0
End If
i = i + 1
strBitmapImage = "c:\windows\" & a(i)
'MsgBox strBitmapImage
lngSuccess = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, strBitmapImage, 0)
End Sub
No comments have been posted about CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX. Why not be the first to post a comment about CHANGES WINDOWS WALLPAER AFTER CERTAIN SECONDS JUST LOAD A FORM AND FILELIST BOX.