Access 2010 - Affichage photo de chaque enregistrement en mosaique

Access 2010 - Affichage photo de chaque enregistrement en mosaique - VB/VBA/VBS - Programmation

Marsh Posté le 13-06-2012 à 08:47:21    

Bonjour,
J'ai une table access qui contient le nom et la photo de chaque contact.
Actuellement, j'affiche les photos dans un formulaire en continu, et au clic sur la photo, je récupère le nom du contact. Je souhaiterai afficher les photos, non pas en continu mais en mosaique, et récupérer de la même façon, sur un clic récupérer le nom du contact.
Quelqu'un peut m'aider ?
Merci d'avance.

Reply

Marsh Posté le 13-06-2012 à 08:47:21   

Reply

Marsh Posté le 14-06-2012 à 06:59:14    

Une idée pour m'aider. Est-ce possible en VBA ?

Reply

Marsh Posté le 28-06-2012 à 07:03:11    

Bonjour,
Mon problème n'est toujours pas résolu. Quelqu'un peut m'aider ?

Reply

Marsh Posté le 28-06-2012 à 16:53:26    

En VBA, suffit d'afficher les photos correspondants aux enregistrements en colonnes, mettons de 4 ou 5 colonnes.
Donc, t'as une boucle sur tes enregistrements avec un compteur et dans ta boucle :
1) t'affiches la photo de l'enregistremet courant
2) t'as un test qui vérifie si le compteur modulo le nb de colonnes souhaitées == 0. Si oui, tu passes à la ligne.


---------------
Astres, outil de help-desk GPL : http://sourceforge.net/projects/astres, ICARE, gestion de conf : http://sourceforge.net/projects/icare, Outil Planeta Calandreta : https://framalibre.org/content/planeta-calandreta
Reply

Marsh Posté le 30-06-2012 à 07:04:19    

Merci de ta réponse. Je n'ai encore jamais utilisé les tableaux en VBA. Je regarde te te tiens au courant.

Reply

Marsh Posté le 30-06-2012 à 15:25:53    

Salut, pour compléter l'algo, en fait qqch comme
 

   
    Nb : Nb Images en Horizontal
    PasDep : 1er Espace Vertical et Horizontal
    Pas : Espace Vertical et Horizontal entre Images
    W : Largeur Image
    H : Hauteur Image
 
    For i = 1 To NbTotalImages
        L = PasDep + (i Mod Nb) * (W + Pas)
        T = PasDep + (i \ Nb) * (H + Pas)
         
        With Image
            .Left = L
            .Top = T
        End With
    Next i


 
A voir également, c'est du VBA Excel, mais transposable : http://silkyroad.developpez.com/VBA/ImageList/


Message édité par kiki29 le 30-06-2012 à 15:58:57

---------------
Myanmar 90/91 : http://gadaud.gerard.free.fr/publi [...] index.html
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed