Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 2 sur 2
  1. #1
    Invité de passage
    Inscrit en
    février 2006
    Messages
    11
    Détails du profil
    Informations forums :
    Inscription : février 2006
    Messages : 11
    Points : 0
    Points
    0

    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 Moncef Ben Othman
    Directeur de lycée
    Inscrit en
    juillet 2009
    Messages
    1 406
    Détails du profil
    Informations personnelles :
    Nom : Homme Moncef Ben Othman
    Âge : 58
    Localisation : Tunisie

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

    Informations forums :
    Inscription : juillet 2009
    Messages : 1 406
    Points : 2 413
    Points
    2 413

    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.
    Vous pouvez voir Mes contributions

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
  •