home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Weather_Of220609692011.psc / frmAnimate.frm < prev    next >
Text File  |  2011-06-01  |  6KB  |  182 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Object = "{7888C00A-4808-4D27-9AAE-BD36EC13D16F}#1.0#0"; "LVbuttons.ocx"
  4. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "ieframe.dll"
  5. Begin VB.Form frmAnimate 
  6.    Appearance      =   0  'Flat
  7.    BackColor       =   &H80000005&
  8.    BorderStyle     =   3  'Fixed Dialog
  9.    Caption         =   "Form1"
  10.    ClientHeight    =   9210
  11.    ClientLeft      =   45
  12.    ClientTop       =   375
  13.    ClientWidth     =   12885
  14.    LinkTopic       =   "Form1"
  15.    LockControls    =   -1  'True
  16.    MaxButton       =   0   'False
  17.    MinButton       =   0   'False
  18.    ScaleHeight     =   9210
  19.    ScaleWidth      =   12885
  20.    ShowInTaskbar   =   0   'False
  21.    StartUpPosition =   1  'CenterOwner
  22.    Begin MSComctlLib.StatusBar StatusBar1 
  23.       Align           =   2  'Align Bottom
  24.       Height          =   390
  25.       Left            =   0
  26.       TabIndex        =   2
  27.       Top             =   8820
  28.       Visible         =   0   'False
  29.       Width           =   12885
  30.       _ExtentX        =   22728
  31.       _ExtentY        =   688
  32.       _Version        =   393216
  33.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  34.          NumPanels       =   5
  35.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  36.             Alignment       =   1
  37.             AutoSize        =   2
  38.             Object.Width           =   5636
  39.             MinWidth        =   5644
  40.          EndProperty
  41.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  42.             Alignment       =   1
  43.             AutoSize        =   2
  44.             Object.Width           =   4048
  45.             MinWidth        =   4049
  46.          EndProperty
  47.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  48.             Alignment       =   1
  49.             AutoSize        =   2
  50.             Object.Width           =   4128
  51.             MinWidth        =   4129
  52.          EndProperty
  53.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  54.             Alignment       =   1
  55.             AutoSize        =   2
  56.             Object.Width           =   4128
  57.             MinWidth        =   4129
  58.          EndProperty
  59.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  60.             Alignment       =   1
  61.             AutoSize        =   2
  62.             Object.Width           =   4657
  63.             MinWidth        =   4657
  64.          EndProperty
  65.       EndProperty
  66.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  67.          Name            =   "MS Sans Serif"
  68.          Size            =   9.75
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.    End
  76.    Begin LVbuttons.LaVolpeButton cmdExit 
  77.       Height          =   375
  78.       Left            =   5800
  79.       TabIndex        =   1
  80.       Top             =   8280
  81.       Width           =   1215
  82.       _ExtentX        =   2143
  83.       _ExtentY        =   661
  84.       BTYPE           =   3
  85.       TX              =   "Exit"
  86.       ENAB            =   -1  'True
  87.       BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  88.          Name            =   "Times New Roman"
  89.          Size            =   8.25
  90.          Charset         =   0
  91.          Weight          =   400
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       COLTYPE         =   1
  97.       BCOL            =   15790320
  98.       FCOL            =   0
  99.       FCOLO           =   0
  100.       EMBOSSM         =   12632256
  101.       EMBOSSS         =   16777215
  102.       MPTR            =   99
  103.       MICON           =   "frmAnimate.frx":0000
  104.       ALIGN           =   1
  105.       IMGLST          =   "(None)"
  106.       IMGICON         =   "(None)"
  107.       ICONAlign       =   0
  108.       ORIENT          =   0
  109.       STYLE           =   0
  110.       IconSize        =   2
  111.       SHOWF           =   -1  'True
  112.       BSTYLE          =   0
  113.    End
  114.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  115.       Height          =   8655
  116.       Left            =   120
  117.       TabIndex        =   0
  118.       Top             =   120
  119.       Width           =   12615
  120.       ExtentX         =   22251
  121.       ExtentY         =   15266
  122.       ViewMode        =   0
  123.       Offline         =   0
  124.       Silent          =   0
  125.       RegisterAsBrowser=   0
  126.       RegisterAsDropTarget=   1
  127.       AutoArrange     =   0   'False
  128.       NoClientEdge    =   0   'False
  129.       AlignLeft       =   0   'False
  130.       NoWebView       =   0   'False
  131.       HideFileNames   =   0   'False
  132.       SingleClick     =   0   'False
  133.       SingleSelection =   0   'False
  134.       NoFolders       =   0   'False
  135.       Transparent     =   0   'False
  136.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  137.       Location        =   "http:///"
  138.    End
  139. End
  140. Attribute VB_Name = "frmAnimate"
  141. Attribute VB_GlobalNameSpace = False
  142. Attribute VB_Creatable = False
  143. Attribute VB_PredeclaredId = True
  144. Attribute VB_Exposed = False
  145. Private Sub cmdExit_Click()
  146.    Animation = False
  147.    PlayAnimation = False
  148.    bGPS = False
  149.    frmWeatherMain.Timer1.Enabled = True
  150.    Unload Me
  151. End Sub
  152.  
  153. Private Sub Form_Load()
  154.    On Error GoTo errohandler
  155.    frmWeatherMain.Timer1.Enabled = False
  156.    Set cmdExit.MouseIcon = frmWeatherMain.ImageList1.ListImages(3).Picture
  157.    If bGPS Then
  158.       StatusBar1.Visible = True
  159.       StatusBar1.Panels(1).Text = sStatArea
  160.       StatusBar1.Panels(2).Text = sStatRegion
  161.       StatusBar1.Panels(3).Text = sStatCountry
  162.       StatusBar1.Panels(4).Text = sStatState
  163.       StatusBar1.Panels(5).Text = sStatCounty
  164.       frmAnimate.Width = 12975
  165.       frmAnimate.Height = 9660
  166.       WebBrowser1.Height = 8655
  167.       WebBrowser1.Width = 12615
  168.    Else
  169.       frmAnimate.Width = 12500
  170.       frmAnimate.Height = 9330
  171.       WebBrowser1.Height = 7980
  172.       WebBrowser1.Width = 12145
  173.    End If
  174.    frmAnimate.Caption = sFrmName
  175.    WebBrowser1.Navigate AnimationLink
  176.    Exit Sub
  177. errohandler:
  178.    MsgBox "Unable To Display GPS Location", vbInformation, "Weather Of The World"
  179.    Unload Me
  180.    'Exit Sub
  181. End Sub
  182.