Image est fond d'écran à partir de la picturebox ou de la form.

Question

Bonjours;

Je voudrais savoir un tout petit truc qui ne doit pas être super compliquer.
J'ai une form1 et une picturebox, j'aimerai que quand je cliquer sur mon button1
l'image de la form1 ou du picturebox devienne mon fond d'écran de pc.
Je chercher une fonction pour ca, (l'image de la form est la même que la picturebox)
Je voudrai juste une fonction qui marche pour l'un des deux.
En visual basic 8 de préférence si possible, sinon en vb6 pas grave.

Merci de votre aide.

cs_Le Pivert · Answer

Bonjour, 

En VB.Net. un PictureBox, un bouton pour ouvrir l'image nommé: btnopen et un bouton pour mettre le Wallpaper nommé: btnWallpaper.

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Public Class Form1
    'API pour définir les paramètres des systèmes pour changer le fond d'écran
    Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
    Private Const SPI_SETDESKWALLPAPER As Integer = 20
    Private Const SPIF_UPDATEINIFILE As Integer = &H1
    Private Sub btnWallpaper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWallpaper.Click
        'Constantes pour être utilisé avec l'API ci-dessus
        Dim imagePath As String = Application.StartupPath & "\myNewWallpaper.bmp"

        'chemin et un nom pour l'image dans le PictureBox       
        'L'image doit être au format bitmap pour qu'il fonctionne 
        PictureBox1.Image.Save(imagePath, ImageFormat.Bmp)

        'Papier peint, à moins d'une erreur       
        'selection
        SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, imagePath, SPIF_UPDATEINIFILE)
    End Sub
    Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click
        'Mettre l'image sélectionnée dans le PictureBox pour le voir
        Dim dlg As OpenFileDialog = New OpenFileDialog

        dlg.Filter = "Image Files (*.bmp, *.gif, *.jpg)|*.bmp;*.gif;*.jpg"
        dlg.Title = "Selectionnez une image"
        dlg.ShowDialog()

        'Définir les paramètres pour changer le papier peint à l'image que vous voulez
        PictureBox1.Image = Image.FromFile(dlg.FileName)
       
        'nettoyer
        dlg.Dispose()
    End Sub
End Class

@+

Image est fond d'écran à partir de la picturebox ou de la form.

1 réponse

Votre réponse

Discussions similaires