1. #1
    Invité de passage
    Inscrit en
    février 2006
    Messages
    13
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 13
    Points : 1
    Points
    1

    Par défaut LoadPicture (image par jour)

    Bonjour à tous et bonne année !

    Je débute cette année avec un petit problème d'affichage d'image :s

    Ce code me permet d'afficher l'image PIC_Wallpaper0 dans PIC_Wallpaper1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    PIC_Wallpaper1.Width = Me.Width
        PIC_Wallpaper1.Height = Me.Height
        If PIC_Wallpaper0.Width < PIC_Wallpaper1.Width And PIC_Wallpaper0.Height < PIC_Wallpaper1.Height Then
        Coeff = 1
        X = (PIC_Wallpaper1.Width - PIC_Wallpaper0.Width) / 2
        Y = (PIC_Wallpaper1.Height - PIC_Wallpaper0.Height) / 2
    GoTo Affiche_image
        End If
        'definition du coefficient selon l'orientation de l'image
        If PIC_Wallpaper0.Width > PIC_Wallpaper0.Height Then
            Coeff = PIC_Wallpaper0.Width / PIC_Wallpaper1.Width
            X = 0
            Y = (PIC_Wallpaper1.Height - (PIC_Wallpaper0.Height / Coeff)) / 2
        Else
            Coeff = PIC_Wallpaper0.Height / PIC_Wallpaper1.Height
            X = (PIC_Wallpaper1.Width - (PIC_Wallpaper0.Width / Coeff)) / 2
            Y = 0
        End If
    Affiche_image:
        NewLargeur = PIC_Wallpaper0.Width / Coeff
        NewHauteur = PIC_Wallpaper0.Height / Coeff
        PIC_Wallpaper1.PaintPicture PIC_Wallpaper0.Picture, X, Y, NewLargeur, NewHauteur
    Il fonctionne très bien, mais je souhaite que chaque chaque jour il affiche une nouvelle image (au load) dans le PIC_wallpaper0 et qu'il soit pris en compte par PIC_wallpaper1.

    Avez-vous une idée svp ?

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Directeur de lycée
    Inscrit en
    juillet 2009
    Messages
    1 639
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Directeur de lycée
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 639
    Points : 3 412
    Points
    3 412

    Par défaut

    Tu peux par exemple stocker les images à utiliser dans un contrôle ImageList(Ajoute le composant ActiveX Microsoft Windows Common Controls 6.0(SP6) ou plus simplement MSCOMCTL.OCX).
    Tu poses une condition sur l'image à afficher selon le jour de la semaine.
    A cœur vaillant rien d'impossible
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec
    Vous pouvez voir Mes contributions
    Ne pas oublier La bible de VBScript

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo