Hello, I'm Mark. I've started a project I cannot finish, and it's qute annoying. I'm making a program where a user can change there background using my program. Here's the good bit, I don't just want to change it to a picture. I'm wanting to change it to a HTM/L file, I know this can be done because Windows it's self allows it. Any help really appreciated.
vb
Public 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
Dim FS As New FileSystemObject
Const SPI_SETDESKWALLPAPER = 20
Function SetWallPaper(Optional ByVal sFile As String) As Boolean
sFile = RTrim(sFile)
tmp$ = FS.GetTempName
Dim dat As String
Open tmp$ For Output As #1
Write #1, sFile
Close #1
SetWallPaper = (SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, tmp$, _
0) <> 0)
End Function
All this seems to be doing is removing my background? Even with Images..
thanks in advance, Mark.
P.S. I've also included my entire project for a better view.
SWF2D.zip ( 3.07k )
Number of downloads: 28This post has been edited by born2c0de: 13 Aug, 2008 - 04:03 AM
12 Aug, 2008 - 10:40 PM
| 