+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  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 :
    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 577
    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 577
    Points : 3 217
    Points
    3 217

    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

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •