Animated GIF in MS Access 2003

[Zwoker]

Greetings,

I'm wanting to display an animated GIF on a form in MS Access 2003.

Is there a "native" way of doing this, just using standard controls and/or VBA code? Or do I need some sort of add-on?

I googled for a solution and found some Visual Basic 6 code that looked promising, but it appeared to use items that are not present in my version of MS Access to do the job.


Thanks,
Zwoker.

[ADezii]

Greetings,

I'm wanting to display an animated GIF on a form in MS Access 2003.

Is there a "native" way of doing this, just using standard controls and/or VBA code? Or do I need some sort of add-on?

I googled for a solution and found some Visual Basic 6 code that looked promising, but it appeared to use items that are not present in my version of MS Access to do the job.


Thanks,
Zwoker.

Here is a Method that I have personally tried, and whose results are very impressive.

1. Place the Attachment (Gif89.dll, once unzipped) into your C:\Windows\System32 Folder. This is an ActiveX Control.
2. Register this ActiveX Control with Windows, via:
   1. Start Menu
   2. Run
   3. C:\Windows\System32\Regsvr32.exe c:\Windows\System32\Gif89.dll
3. Register the ActiveX Control with Access, via:
   1. Tools
   2. ActiveX Controls
   3. Register
   4. Change Files of Tyoe to .dll
   5. Browse for Gif89.dll
   6. Register
4. Open a Form in Design View
5. Insert
6. ActiveX Control
7. Select Gif89 Class
8. Set the FileName Property to the Path of your Animated Gif
9. Personally, I set the Embed Property to Yes

NOTE: I know there are several steps to perform, and that they would have to be done on each PC that will support Animated Gifs in an Access Form, but I can tell you that I had no problem at all and the results were quite impressive.

[Zwoker]

They would have to be done on each PC that will support Animated Gifs in an Access Form

Thanks ADezii, but I really need an option that doesn't require any sort of installation of any "extra" things like the DLL. The environment that the final MDE will run in is very tightly controlled - putting things in the windows directories is not allowed.

Do you have any other options?


Thanks,
Zwoker.

[FishVal]

Hi, Zwoker.

You may use WebBrowser control (I guess available in all versions of windows) to represent animated GIF.

Regards,
Fish

[ADezii]

Hi, Zwoker.

You may use WebBrowser control (I guess available in all versions of windows) to represent animated GIF.

Regards,
Fish

Nice one, Fish. BTW, what is the purpose of the following line of code. Toggling the value to 'Yes' seems to have no effect, eliminating this code also seems to have no effect.

Private Sub ocxWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.ocxWebBrowser.Object.Document.Body.Scroll = "yes"
End Sub

[FishVal]

Nice one, Fish. BTW, what is the purpose of the following line of code. Toggling the value to 'Yes' seems to have no effect, eliminating this code also seems to have no effect.

Private Sub ocxWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.ocxWebBrowser.Object.Document.Body.Scroll = "yes"
End Sub

Removes vertical scrollbar. I've spent near half an hour this morning trying to figure out how it could be hidden. Do you mean you didn't notice it without this code?! 0_o

[ADezii]

Removes vertical scrollbar. I've spent near half an hour this morning trying to figure out how it could be hidden. Do you mean you didn't notice it without this code?! 0_o

Thanks Fish, I seem to be missing a lot these days (LOL)!

[Zwoker]

Thanks FishVal. That works great!
And removing the scroll bars was good too - it looks nasty with them present.

I also like the Tiger animation, even if it does have a sad ending. :(


Zwoker.

[atksamy]

hello,

The web browser method for using gif files is a cool one. But i am facing a small problem in this. My gif file is black in color. I am getting a white border on the top and left sides. Even after trying to re size the browser i am not able to get the white border in the left and top to go away. Is there any other way to do this.

thanks

[mike22183]

@atksamy
Its too late to reply, but was just going through the post and saw this query.

Here is the solution for anyone who is looking out for this.

Place this in the browser event

Me.ocxWebBrowser.Document.body.Style.Border = "none"