Discussion :

[b3nsouss]

Bonjour,

Je cherche actuellement à insérer une image animée .gif au sein d'un formulaire.

En parcourant internet j'ai vu qu'il y avait une méthode avec une .dll à ajouter, seul soucis, mon appli est destiné à être sur plusieurs PC et je ne vais pas installer la .dll sur tous les postes.

Je me suis donc dirigé vers la solution windows média player control, qui fonctionne plutôt bien mais je bloque maintenant. Je cherche à masquer la barre de lecture afin de n'avoir que l'image qui tourne en boucle ainsi que les informations juste au dessus de cette barre (sur l'image "media open" et le temps).



Avez-vous une idée de comment faire? Je bloque dessus depuis 2 jours et je rame un peu.

Sinon, avez-vous une méthode simple pour insérer un Gif (qu'il soit animé)?

[b3nsouss]

Bonjour,

Dans mon formulaire j'ai un webBrowser (Controle Active X de type Microsoft web browser) ou je charge une image GIF, jusque là tout fonctionne.

Maintenant j'aimerai changer les paramètres afin de ne plus avoir la scrollbar mais lorsque que j'exécute le code, j'ai une erreur 91 qui apparait, j'ai retourner le problème en long en large et en travers et je ne trouve pas la solution.

Avez-vous une idée?

Code:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Load()
 
With WebBrowser5
    .Navigate CurrentProject.Path & "\loader2.gif"
    .Document.body.Scroll = "no"
End With
End Sub

L'erreur se produit sur: ".Document.body.Scroll = "no""

Note: Lorsque l'erreur se produit, je fais déboggage puis continuer sans aucunes modifications et le code s'exécute sans erreur cette fois. Bizarre.

Merci d'avance pour votre aide.
Benoit.

[b3nsouss]

Je me suis répondu tout seul, il suffit de mettre la ligne dans une autre procédure qui se déclence lorsque la page est chargée.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
    Me.WebBrowser5.Object.Navigate CurrentProject.Path & "\loader2.gif"
End Sub
 
Private Sub WebBrowser5_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.WebBrowser5.Object.Document.Body.Scroll = "no"
    Me.WebBrowser5.Object.Document.Body.TopMargin = "0"
    Me.WebBrowser5.Object.Document.Body.LeftMargin = "0"
    Me.WebBrowser5.Object.Document.Body.RightMargin = "0"
End Sub

[loufab]

Bonjour,

Utiliser le lecteur multimedia pour lire un gif animé c'est comme tirer au 75mm sur une mouche. Grosse dépense de ressource pour résultat minime.

Utilise plutôt le plugin IE présent sur toutes les machines.

A partir de 2010, il fait parti des composants natifs des formulaires, en 2007 il faut utiliser l'activeX.

Il suffit d'y coller l'adresse du fichier gif, de régler les bordures et les barres de défilement.

Cordialement,