Forum de Fandeonepiece2

Bon dev :)


    [RESOLU]Fond d'écrans

    Partagez
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Dim 4 Mai - 23:41

    Bonsoir à tous,

    Quelqu'un aurait pas une astuce qui permettrai de changer le fond d'écran de son pc avec un code vb ou avec SZ ?


    Dernière édition par Enzo koriodan le Mar 6 Mai - 18:52, édité 1 fois
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [RESOLU]Fond d'écrans

    Message par Aze (admin) le Lun 5 Mai - 6:42

    bonjour,
    je cherche
    cordialement
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Lun 5 Mai - 16:36

    Salut,

    Merci si tu trouve tu m'informe. Je cherche moi aussi de mon côté.
    avatar
    polien
    semi-modo
    semi-modo

    Messages : 33
    Date d'inscription : 03/05/2014
    Age : 21
    Localisation : Provence

    Re: [RESOLU]Fond d'écrans

    Message par polien le Lun 5 Mai - 18:21

    Bonjour,

    Dans le cas où une image est contenue dans le picturebox1:

    Code:

        PictureBox1.BackgroundImage.Save("Wallpaper.jpg", Imaging.ImageFormat.Jpeg)
        SystemParametersInfo(SETDESKWALLPAPER, 0, "Wallpaper.jpg", UPDATEINIFILE)
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Lun 5 Mai - 18:23

    re,

    Ca marche avec SZ aussi ?
    avatar
    polien
    semi-modo
    semi-modo

    Messages : 33
    Date d'inscription : 03/05/2014
    Age : 21
    Localisation : Provence

    Re: [RESOLU]Fond d'écrans

    Message par polien le Lun 5 Mai - 18:24

    re,

    avec la balise code vb, oui, normalement Wink
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Lun 5 Mai - 18:28

    re,

    merci beaucoup ce qui signifie que un nouveau soft arrive bientôt.
    avatar
    polien
    semi-modo
    semi-modo

    Messages : 33
    Date d'inscription : 03/05/2014
    Age : 21
    Localisation : Provence

    Re: [RESOLU]Fond d'écrans

    Message par polien le Lun 5 Mai - 18:28

    re,

    de rien, tiens nous au courant si ça marche Wink
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [RESOLU]Fond d'écrans

    Message par Aze (admin) le Lun 5 Mai - 18:41

    bonjour,
    tu mettra un petit résolu si cela marche stp
    cordialement
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Mar 6 Mai - 1:55

    re,

    ça marche pas avec SZ.

    Cordialement
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [RESOLU]Fond d'écrans

    Message par Aze (admin) le Mar 6 Mai - 6:31

    bonjour,
    est tu sur d'avoir mis une picturebox qui s’appelle "PictureBox1" ?
    cordialement
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Mar 6 Mai - 16:47

    re,

    Oui j'ai mis une picturebox1 dans la form.
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [RESOLU]Fond d'écrans

    Message par Aze (admin) le Mar 6 Mai - 17:50

    bonjour,
    j'ai trouvé pourquoi cela ne marche pas, il manquais une partie du code :
    code a mettre en dehors d'un sub (pour VS (pour SZ il faut mettre ce code dans la première partie de l'éditeur de fonctions)) :
    Code:
    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 SETDESKWALLPAPER = 20
    Private Const UPDATEINIFILE = &H1

    ensuite dans l'événement où on change le fond d'écran il suffit d'ajouter ce code :
    Code:
    SystemParametersInfo(SETDESKWALLPAPER, 0, "emplacement du fichier", UPDATEINIFILE)

    ou ce code si vous voulez utiliser une img se trouvant dans une picturebox :
    Code:
    PictureBox1.BackgroundImage.Save("Wallpaper.jpg", Imaging.ImageFormat.Jpeg)
    SystemParametersInfo(SETDESKWALLPAPER, 0, "Wallpaper.jpg", UPDATEINIFILE)

    cordialement
    avatar
    Ghost Eagle
    semi-modo
    semi-modo

    Messages : 174
    Date d'inscription : 03/05/2014
    Age : 15
    Localisation : Cameroun

    Re: [RESOLU]Fond d'écrans

    Message par Ghost Eagle le Mar 6 Mai - 18:01

    re,

    Merci bien fandeonepiece2. Je vais mettre un résolu dans le titre après avoir testé le code!
    avatar
    Aze (admin)
    Admin
    Admin

    Messages : 435
    Date d'inscription : 03/05/2014
    Age : 16
    Localisation : France

    Re: [RESOLU]Fond d'écrans

    Message par Aze (admin) le Mar 6 Mai - 18:10

    re,
    de rien, merci pour le résolu
    cordialement

    Contenu sponsorisé

    Re: [RESOLU]Fond d'écrans

    Message par Contenu sponsorisé


      La date/heure actuelle est Mar 21 Nov - 16:22