changer le fond d'écran

Voir le sujet précédent Voir le sujet suivant Aller en bas

migau
migau

Messages : 5683
Points : 26264
Réputation : 16086
Date d'inscription : 21/10/2016
Localisation : Pays de la Loire
http://www.informaticsclubs.com/

Messagemigau le Sam 31 Aoû - 17:14

  • 18px
  • 24px
Information
les règles.
Pour toute question à propos de ce tutoriel merci  de la poser dans le forum de dépannage.
Poser une question au sujet de ce tutoriel en cliquant ICI

 n'hésitez pas à sauter le pas inscrivez-vous sur le forum, Merci.

je m'inscris


Changer le fond d'écran avec une application codée en vb net

Petite application très légère qui permet de changer le fond d'écran de votre bureau
soit au centre soit en plein écran

les images choisies sont en jpg ou bmp ou en png.

changer le fond d'écran PmGpTRu

dans l'ordre
1) choisir la position exemple(center ou Fit)
2) rechercher la photo dans son dossier
3) clic sur appliquer pour valider votre choix
4) Reset permet de changer de photo avant de valider par appliquer
5) fermer et quitter l'application

changer le fond d'écran OXJNC7z


Code:



Imports System.IO
Imports Microsoft.Win32
Public Class Form1

    Dim monImage As String

    Private Declare Auto Function SystemParametersInfo Lib "user32.dll" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Using open As New OpenFileDialog
            open.Filter = "Les images|*.jpg;*.jpeg;*.bmp;*.png"
            If open.ShowDialog() = DialogResult.OK Then
                PictureBox1.Image = Image.FromFile(open.FileName)
                monImage = open.FileName
            End If
        End Using

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        If File.Exists(monImage) Then
            Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)

            Select Case ComboBox1.SelectedIndex
                Case 1 'Tile
                    key.SetValue("WallpaperStyle", "1")
                    key.SetValue("TileWallpaper", "1")
                Case 2 'Center
                    key.SetValue("WallpaperStyle", "0")
                    key.SetValue("TileWallpaper", "0")
                Case 3 'Stretch
                    key.SetValue("WallpaperStyle", "2")
                    key.SetValue("TileWallpaper", "0")
                Case 4 'Fit
                    key.SetValue("WallpaperStyle", "6")
                    key.SetValue("TileWallpaper", "0")
                Case 5 'Fill
                    key.SetValue("WallpaperStyle", "10")
                    key.SetValue("TileWallpaper", "0")
            End Select

            key.Close()


            Const param1 As Integer = 20
            Const param2 As Integer = &H1
            Const param3 As Integer = &H2
            SystemParametersInfo(param1, 0, monImage, param2 Or param3)

        End If

    End Sub

    Private Sub BTN_Quitter_Click(sender As Object, e As EventArgs) Handles BTN_Quitter.Click
        Me.Close()
    End Sub

    Private Sub BTN_Reset_Click(sender As Object, e As EventArgs) Handles BTN_Reset.Click

        ' vider la picturebox1

        PictureBox1.Image = Nothing

    End Sub
End Class









   

Voir le sujet précédent Voir le sujet suivant Revenir en haut

Créer un compte ou se connecter pour répondre

Vous devez être membre pour répondre.

S'enregistrer

Rejoignez notre communauté ! C'est facile !


S'enregistrer

Connexion

Vous êtes déjà membre ? Aucun soucis, cliquez ici pour vous connecter.


Connexion

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum