Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Animation
Message
From
08/09/2005 05:39:21
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
 
To
08/09/2005 04:59:11
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Environment versions
Visual FoxPro:
VFP 7
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01047631
Message ID:
01047634
Views:
13
>Hello Everbody.
> I want to add an animation file in my form who can i do this. I do every thing but my file is not work. please help me

You mean something like an animated gif? If so you could use webrowser in VFP7.ie:
lcAnimatedGif = "c:\myPath\myAnimated.gif"

Public oForm
oForm = Createobject('myForm')
oForm.Show

Define Class myForm As Form
  Add Object myBrowser As OleControl ;
    with OleClass="Shell.Explorer",;
    Height=120,Width=120

  Procedure myBrowser.Refresh
    Nodefault
  Endproc

  Procedure Init
    With This.myBrowser
      .Navigate2('file://'+m.lcAnimatedGif)
      Do While .ReadyState # 4
      Enddo
      .Document.body.Scroll="no"
    Endwith
  Endproc
Enddefine
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Reply
Map
View

Click here to load this message in the networking platform