Discussion :

[Crachover]

Bonjour,

J'utilise Gif89_Class pour afficher des *.gif animés dans mes formulaires, à part le problème de transparence ainsi que le problème de mise en arrière ou premier plan, cela ne pose aucun problème...

Mais, j'aimerais savoir comment appeler Gif89_Class en ligne de code VBA ? Pourquoi ? Et bien simplement parce que dans les propriétés, le lien du *.gif doit être en absolu ! Et j'aimerais pouvoir définir l'image en relatif... donc un VBA

Pourriez-vous m'aider ?

EDIT :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Gif89a5.URL = Application.CurrentProject.Path & "\anim.gif"

ne fonctionne pas... ???

EDIT :

En bas de la liste des propriétés, vous trouverez les propriétés spécifiques au composant Gif89, qui sont détaillées ci-dessous :

AutoSize Si cette propriété est définie à Oui et que vous chargez une nouvelle image, le composant se redimensionnera automatiquement en fonction de la taille de l’image. Ceci ne marche pas dans FoxPro 5.0, donc si vous ne voulez pas un comportement bizarre, réglez toujours cette propriété sur Non dans FoxPro. Mais vous pouvez toujours essayer de la définir à Oui pour voir ce qui se produit. AutoSize fonctionne bien avec VB, Access.

AutoStart Si cette propriété est réglée à Oui, le composant commence automatiquement à "jouer" le fichier (c'est-à-dire animer l’image) lorsque le formulaire est chargé.

FileName Le nom du fichier Gif.

Embed Si cette propriété est réglée sur Non, vous devez distribuer le fichier Gif avec votre application; si elle vaut Oui, le fichier Gif est intégré dans votre .EXE et il n’est pas nécessaire de le distribuer séparément.

Si vous définissez la propriété Embed à Oui, le composant ignorera la propriété FileName. Ainsi, si en mode Création vous réglez Embed à Oui puis décidez de changer l’image, vous devez définir la propriété Embed à Non, puis changer le nom du fichier (FileName), et enfin redéfinir Embed à Oui à nouveau.

Speed Le délai entre deux images. 100 équivaut à un délai de 1 seconde. Si le fichier Gif lui-même comporte un réglage de vitesse, le composant ignorera cette propriété.

Glass Si la propriété Glass est réglée à Non, le rectangle qui contient le composant est rempli de la couleur de fond du container (BackColor en VB). Si vous avez une image sous le composant (en VB il est possible de définir la propriété Picture du formulaire), vous verrez un rectangle gris et l’image Gif sera animée à l’intérieur. Mais si vous souhaitez que le Gif soit animé par-dessus votre image, réglez la propriété Glass sur Oui.

Attention : quelquefois, si vous ne définissez pas la propriété ClipControls à Non, vous pouvez obtenir un trou dans votre formulaire, parce que le formulaire ne s’est pas redessiné sous le composant. Si vous placez mon composant sur un composant PictureBox, vous devez changer la propriété ClipControls de l’objet PictureBox.

[FreeAccess]

Bonjour,

et simplement avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Gif89a5.URL = CurrentProject.Path & "anim.gif"

....en prenant en compte que ton fichier Gif se situe dans le même répertoire d'installation que ton application...

[Crachover]

Non... mais problème résolu avec l'option 'Embed',

J'ai juste encore un problème avec les superpositions des éléments, comme par exemple mettre un rectangle au dessus de l'image animée, c'est toujours l'image qui est au dessus !!!!!

Info : Encore un problème avec les fonds transparents, les fonds noir, sont transparents une fois sur deux, tandis que les fonds transparents, sont transparents, mais les images de l'animation se superposent, sans s'effacer, si option 'Embed' non sélectionnée, autrement ils sont gris ??????????????????