home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / anigif / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-26  |  2.6 KB  |  86 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2715
  6.    ClientLeft      =   2820
  7.    ClientTop       =   1515
  8.    ClientWidth     =   4530
  9.    LinkTopic       =   "Form1"
  10.    LockControls    =   -1  'True
  11.    ScaleHeight     =   2715
  12.    ScaleWidth      =   4530
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Close"
  15.       Height          =   405
  16.       Left            =   2955
  17.       TabIndex        =   3
  18.       Top             =   735
  19.       Width           =   900
  20.    End
  21.    Begin VB.PictureBox Picture1 
  22.       Appearance      =   0  'Flat
  23.       BackColor       =   &H80000005&
  24.       ForeColor       =   &H80000008&
  25.       Height          =   1455
  26.       Left            =   360
  27.       ScaleHeight     =   1425
  28.       ScaleWidth      =   1995
  29.       TabIndex        =   0
  30.       Top             =   255
  31.       Width           =   2025
  32.       Begin SHDocVwCtl.WebBrowser WebBrowser1 
  33.          Height          =   1770
  34.          Left            =   -255
  35.          TabIndex        =   1
  36.          Top             =   -270
  37.          Width           =   2625
  38.          ExtentX         =   4630
  39.          ExtentY         =   3122
  40.          ViewMode        =   0
  41.          Offline         =   0
  42.          Silent          =   0
  43.          RegisterAsBrowser=   0
  44.          RegisterAsDropTarget=   1
  45.          AutoArrange     =   0   'False
  46.          NoClientEdge    =   0   'False
  47.          AlignLeft       =   0   'False
  48.          ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  49.          Location        =   ""
  50.       End
  51.    End
  52.    Begin VB.Label Label1 
  53.       Caption         =   "A work around way to use an animated gif on a form"
  54.       BeginProperty Font 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   12
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   675
  64.       Left            =   375
  65.       TabIndex        =   2
  66.       Top             =   1860
  67.       Width           =   3555
  68.    End
  69. Attribute VB_Name = "Form1"
  70. Attribute VB_GlobalNameSpace = False
  71. Attribute VB_Creatable = False
  72. Attribute VB_PredeclaredId = True
  73. Attribute VB_Exposed = False
  74. Option Explicit
  75. Public PicPath As String
  76. Private Sub Command1_Click()
  77. Unload Me
  78. End Sub
  79. Private Sub Form_Load()
  80. PicPath = App.Path & "\ani.html"
  81. WebBrowser1.Navigate PicPath
  82. End Sub
  83. Private Sub Form_Resize()
  84. WebBrowser1.Height = Me.Height
  85. End Sub
  86.