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 / frmSplash.frm < prev    next >
Text File  |  2011-05-31  |  12KB  |  322 lines
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomctl.ocx"
  3. Begin VB.Form frmSplash 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   7590
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   12045
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmSplash.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   7590
  17.    ScaleWidth      =   12045
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  'CenterScreen
  20.    Begin MSComctlLib.ImageList ImageList3 
  21.       Left            =   1920
  22.       Top             =   8520
  23.       _ExtentX        =   1005
  24.       _ExtentY        =   1005
  25.       BackColor       =   -2147483643
  26.       ImageWidth      =   32
  27.       ImageHeight     =   32
  28.       MaskColor       =   12632256
  29.       _Version        =   393216
  30.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  31.          NumListImages   =   6
  32.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "frmSplash.frx":000C
  34.             Key             =   ""
  35.          EndProperty
  36.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "frmSplash.frx":057E
  38.             Key             =   ""
  39.          EndProperty
  40.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "frmSplash.frx":0B71
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "frmSplash.frx":1161
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "frmSplash.frx":1729
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "frmSplash.frx":1CD2
  54.             Key             =   ""
  55.          EndProperty
  56.       EndProperty
  57.    End
  58.    Begin MSComctlLib.ImageList ImageList2 
  59.       Left            =   1080
  60.       Top             =   8520
  61.       _ExtentX        =   1005
  62.       _ExtentY        =   1005
  63.       BackColor       =   -2147483643
  64.       ImageWidth      =   59
  65.       ImageHeight     =   156
  66.       MaskColor       =   12632256
  67.       _Version        =   393216
  68.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  69.          NumListImages   =   15
  70.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  71.             Picture         =   "frmSplash.frx":226C
  72.             Key             =   ""
  73.          EndProperty
  74.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  75.             Picture         =   "frmSplash.frx":35E0
  76.             Key             =   ""
  77.          EndProperty
  78.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  79.             Picture         =   "frmSplash.frx":4780
  80.             Key             =   ""
  81.          EndProperty
  82.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  83.             Picture         =   "frmSplash.frx":5A93
  84.             Key             =   ""
  85.          EndProperty
  86.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  87.             Picture         =   "frmSplash.frx":6EBD
  88.             Key             =   ""
  89.          EndProperty
  90.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  91.             Picture         =   "frmSplash.frx":84CC
  92.             Key             =   ""
  93.          EndProperty
  94.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  95.             Picture         =   "frmSplash.frx":9B21
  96.             Key             =   ""
  97.          EndProperty
  98.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  99.             Picture         =   "frmSplash.frx":B188
  100.             Key             =   ""
  101.          EndProperty
  102.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "frmSplash.frx":C6DA
  104.             Key             =   ""
  105.          EndProperty
  106.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "frmSplash.frx":D9F5
  108.             Key             =   ""
  109.          EndProperty
  110.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "frmSplash.frx":EB2E
  112.             Key             =   ""
  113.          EndProperty
  114.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "frmSplash.frx":FE0A
  116.             Key             =   ""
  117.          EndProperty
  118.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "frmSplash.frx":1131F
  120.             Key             =   ""
  121.          EndProperty
  122.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "frmSplash.frx":12992
  124.             Key             =   ""
  125.          EndProperty
  126.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.             Picture         =   "frmSplash.frx":13FE8
  128.             Key             =   ""
  129.          EndProperty
  130.       EndProperty
  131.    End
  132.    Begin MSComctlLib.ImageList ImageList1 
  133.       Left            =   240
  134.       Top             =   8520
  135.       _ExtentX        =   1005
  136.       _ExtentY        =   1005
  137.       BackColor       =   -2147483643
  138.       ImageWidth      =   134
  139.       ImageHeight     =   99
  140.       MaskColor       =   12632256
  141.       _Version        =   393216
  142.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  143.          NumListImages   =   18
  144.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "frmSplash.frx":155E9
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "frmSplash.frx":161BD
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "frmSplash.frx":16AF0
  154.             Key             =   ""
  155.          EndProperty
  156.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  157.             Picture         =   "frmSplash.frx":17322
  158.             Key             =   ""
  159.          EndProperty
  160.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  161.             Picture         =   "frmSplash.frx":179CD
  162.             Key             =   ""
  163.          EndProperty
  164.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  165.             Picture         =   "frmSplash.frx":18067
  166.             Key             =   ""
  167.          EndProperty
  168.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  169.             Picture         =   "frmSplash.frx":187DD
  170.             Key             =   ""
  171.          EndProperty
  172.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  173.             Picture         =   "frmSplash.frx":19278
  174.             Key             =   ""
  175.          EndProperty
  176.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  177.             Picture         =   "frmSplash.frx":19C39
  178.             Key             =   ""
  179.          EndProperty
  180.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  181.             Picture         =   "frmSplash.frx":1A4AD
  182.             Key             =   ""
  183.          EndProperty
  184.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  185.             Picture         =   "frmSplash.frx":1AC9D
  186.             Key             =   ""
  187.          EndProperty
  188.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  189.             Picture         =   "frmSplash.frx":1B3C7
  190.             Key             =   ""
  191.          EndProperty
  192.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  193.             Picture         =   "frmSplash.frx":1BA73
  194.             Key             =   ""
  195.          EndProperty
  196.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  197.             Picture         =   "frmSplash.frx":1C4AA
  198.             Key             =   ""
  199.          EndProperty
  200.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  201.             Picture         =   "frmSplash.frx":1CEE4
  202.             Key             =   ""
  203.          EndProperty
  204.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  205.             Picture         =   "frmSplash.frx":1DB70
  206.             Key             =   ""
  207.          EndProperty
  208.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  209.             Picture         =   "frmSplash.frx":1E760
  210.             Key             =   ""
  211.          EndProperty
  212.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  213.             Picture         =   "frmSplash.frx":1F378
  214.             Key             =   ""
  215.          EndProperty
  216.       EndProperty
  217.    End
  218.    Begin VB.Timer Timer3 
  219.       Interval        =   90
  220.       Left            =   1680
  221.       Top             =   7800
  222.    End
  223.    Begin VB.Timer Timer2 
  224.       Interval        =   80
  225.       Left            =   960
  226.       Top             =   7800
  227.    End
  228.    Begin VB.Timer Timer1 
  229.       Interval        =   100
  230.       Left            =   240
  231.       Top             =   7800
  232.    End
  233.    Begin VB.Image Image4 
  234.       Height          =   495
  235.       Left            =   240
  236.       Top             =   6620
  237.       Width           =   615
  238.    End
  239.    Begin VB.Image Image3 
  240.       Height          =   1575
  241.       Left            =   360
  242.       Top             =   4780
  243.       Width           =   1575
  244.    End
  245.    Begin VB.Image Image2 
  246.       Appearance      =   0  'Flat
  247.       Height          =   1575
  248.       Left            =   220
  249.       Top             =   420
  250.       Width           =   1575
  251.    End
  252.    Begin VB.Image Image1 
  253.       BorderStyle     =   1  'Fixed Single
  254.       Height          =   7635
  255.       Left            =   0
  256.       Picture         =   "frmSplash.frx":1FD6F
  257.       Stretch         =   -1  'True
  258.       Top             =   0
  259.       Width           =   12060
  260.    End
  261. End
  262. Attribute VB_Name = "frmSplash"
  263. Attribute VB_GlobalNameSpace = False
  264. Attribute VB_Creatable = False
  265. Attribute VB_PredeclaredId = True
  266. Attribute VB_Exposed = False
  267. Option Explicit
  268. Dim an1 As Integer
  269. Dim an2 As Integer
  270. Dim an3 As Integer
  271. Dim x1 As Integer
  272. Dim x2 As Integer
  273. Dim x3 As Integer
  274. Dim result As Integer
  275.  
  276. Private Sub Form_Load()
  277.   x1 = 1
  278.   x2 = 1
  279.   x3 = 1
  280.   DoEvents
  281. End Sub
  282.  
  283. Private Sub Timer1_Timer()
  284.   an1 = an1 + 250
  285.   Image2.Left = an1
  286.   If an1 > Me.ScaleWidth Then
  287.     an1 = -Image2.Width
  288.     If result = 1 Then
  289.       Image2.Top = 2200
  290.     Else
  291.       Image2.Top = 1820
  292.       result = 0
  293.     End If
  294.     result = result + 1
  295.   End If
  296.   Image2.Left = an1
  297.   Image2.Picture = ImageList1.ListImages(x1).Picture
  298.   x1 = IIf(x1 = ImageList1.ListImages.Count, 1, x1 + 1)
  299. End Sub
  300.  
  301. Private Sub Timer2_Timer()
  302.   an2 = an2 + 100
  303.   Image3.Left = an2
  304.   If an2 > Me.ScaleWidth Then
  305.     an2 = -Image3.Width
  306.     Image3.Left = an2
  307.   End If
  308.   Image3.Picture = ImageList2.ListImages(x2).Picture
  309.   x2 = IIf(x2 = ImageList2.ListImages.Count, 1, x2 + 1)
  310. End Sub
  311.  
  312. Private Sub Timer3_Timer()
  313.   an3 = an3 + 95
  314.   Image4.Left = an3
  315.   If an3 > Me.ScaleWidth Then
  316.     an3 = -Image4.Width
  317.     Image4.Left = an3
  318.   End If
  319.   Image4.Picture = ImageList3.ListImages(x3).Picture
  320.   x3 = IIf(x3 = ImageList3.ListImages.Count, 1, x3 + 1)
  321. End Sub
  322.