[RESOLVED] How To Change Desktop Background Using jpg Image

[DeadlyMan]

hi

how to change desktop back using jpg

i got vb code to change it but Accept just bmp

this is the code

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 Long


Private Const SPI_SETDESKWALLPAPER = 20
Private Const SPIF_UPDATEINIFILE = &H1
    

Private imagePath As String
    
Private Sub cmdBrowse_Click()

        
    'set a custom title to the dialog
    dlg.DialogTitle = "Select the image to load."

    'show the dialog
    dlg.ShowOpen

    'the path to get the image from
    imagePath = dlg.FileName

    'view the selected picture into the picturebox
    'control
    pic.Picture = LoadPicture(imagePath)
        
End Sub

Private Sub cmdSetWallPaper_Click()

    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE

End Sub

and i want it to change the background and Accept the both type of image

BMP & JPG

[abhijit]

You could convert the jpg to a bmp in your code.

'Code Not tested by me.
If Right$(imagePath, 3) = "jpg" Or Right$(imagePath, 3) = "JPG" Or Right$(imagePath, 3) = _
      "gif" Or Right$(imagePath, 3) = "GIF" Then
            pic.Picture = LoadPicture(imagePath)
            SavePicture pic, App.path & "\wallpaper.bmp"
End If

[kpmsivachand]

Take a look this article :

http://support.microsoft.com/kb/313596

[kpmsivachand]

You could convert the jpg to a bmp in your code.

'Code Not tested by me.
If Right$(imagePath, 3) = "jpg" Or Right$(imagePath, 3) = "JPG" Or Right$(imagePath, 3) = _
      "gif" Or Right$(imagePath, 3) = "GIF" Then
            pic.Picture = LoadPicture(imagePath)
            SavePicture pic, App.path & "\wallpaper.bmp"
End If

Works i checked myself!

[DeadlyMan]

Thanx For Ur Help It's Worked Fine