Discussion :

[titella]

Bonsoir

J'utilise le ocx DXAnimatedGif pour montrer une gif animée.
J'utilise aussi un commdialog pour charger la gif

Code :

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

1
2
CommonDialog1.ShowOpen
DXAnimatedGIF1.FileName = CommonDialog1.FileName

Le problème c'est que si la gif é plus grande de la fenêtre DXAnimatedGif
alors les proportions de la fenêtre deviennent aussi plus grand (trop) sur le form.

Comment faire pour maintenir les mesures de la fenêtre DXAnimatedGif
même si l'image gif qui je viens de charger est très grande? Donc comme faire une resize
permanent de la fenêtre?

merci
titella

[titella]

Je suis bien sur disposé a utiliser le control GIF89a, que vous connaissez
peut etre mieux.
L'important c'est de resoudre le probleem.
Je repete le probleem:
Effettuer le resize de la fenetre d'affichage d'une gif animéé. Quel que soit la dimension de la gif la fenetre d'affichage doit rester la meme.

merci
titella

[SfJ5Rpw8]

tu veux une mise à l'échelle afin que le .gif tiennent dans ta fenêtre .. ou seulement garder la même taille de fenêtre qu' initialement en tronquant l'image..

pour la 2° solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim iWidth As Integer
Dim iHeight As Integer
 
iWidth = DXAnimatedGIF1.Width
iHeight = DXAnimatedGIF1.Height
CommonDialog1.ShowOpen
DXAnimatedGIF1.FileName = CommonDialog1.FileName
DXAnimatedGIF1.Width = iWidth
DXAnimatedGIF1.Height = iHeight

[titella]

Je veux la premiere solutions.
Avec la deuxieme solution la fenetre reste la meme, mais je ne vois pas toute la gif.
Je veux en effet que la fenetre reste toujours la meme (et ca est reussi dejà dans ta deuxieme solution,) et puis que la gif doit etre TOUTE visible.
Donc la gif, si trop grande, doit s'adapter a la fenetre. Et donc doit etre completement visible.

Mais la fenetre doit rester la meme (comme ta deuxieme solution)
Merci

titella