home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Global_Tor1801641062004.psc / frmSplash.frm < prev    next >
Text File  |  2004-10-04  |  5KB  |  174 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    =   3960
  6.    ClientLeft      =   255
  7.    ClientTop       =   1410
  8.    ClientWidth     =   7065
  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.    Picture         =   "frmSplash.frx":000C
  17.    ScaleHeight     =   3960
  18.    ScaleWidth      =   7065
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   2  'CenterScreen
  21.    Begin VB.Timer Timer2 
  22.       Interval        =   10
  23.       Left            =   0
  24.       Top             =   0
  25.    End
  26.    Begin VB.Timer Timer1 
  27.       Interval        =   770
  28.       Left            =   480
  29.       Top             =   0
  30.    End
  31.    Begin MSComctlLib.ProgressBar P1 
  32.       Height          =   135
  33.       Left            =   5520
  34.       TabIndex        =   0
  35.       Top             =   120
  36.       Width           =   1455
  37.       _ExtentX        =   2566
  38.       _ExtentY        =   238
  39.       _Version        =   393216
  40.       BorderStyle     =   1
  41.       Appearance      =   0
  42.       Max             =   550
  43.       Scrolling       =   1
  44.    End
  45.    Begin VB.Label lblCopyright 
  46.       Alignment       =   2  'Center
  47.       BackStyle       =   0  'Transparent
  48.       Caption         =   "Global Torrent Searcher"
  49.       BeginProperty Font 
  50.          Name            =   "Verdana"
  51.          Size            =   24
  52.          Charset         =   0
  53.          Weight          =   700
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       ForeColor       =   &H00FFFFFF&
  59.       Height          =   735
  60.       Index           =   1
  61.       Left            =   120
  62.       TabIndex        =   4
  63.       Top             =   240
  64.       Width           =   6855
  65.    End
  66.    Begin VB.Label lblLicenseTo 
  67.       Appearance      =   0  'Flat
  68.       BackColor       =   &H80000005&
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   "Auther : Ashraf Magdi"
  71.       BeginProperty Font 
  72.          Name            =   "Verdana"
  73.          Size            =   8.25
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H00FFFFFF&
  81.       Height          =   255
  82.       Index           =   1
  83.       Left            =   120
  84.       TabIndex        =   3
  85.       Top             =   3360
  86.       Width           =   2775
  87.    End
  88.    Begin VB.Label lblCopyright 
  89.       BackStyle       =   0  'Transparent
  90.       Caption         =   "Copyright ⌐ 2004 GTorrent. All Right Reserved."
  91.       BeginProperty Font 
  92.          Name            =   "Verdana"
  93.          Size            =   8.25
  94.          Charset         =   0
  95.          Weight          =   700
  96.          Underline       =   0   'False
  97.          Italic          =   0   'False
  98.          Strikethrough   =   0   'False
  99.       EndProperty
  100.       ForeColor       =   &H00FFFFFF&
  101.       Height          =   255
  102.       Index           =   0
  103.       Left            =   1080
  104.       TabIndex        =   2
  105.       Top             =   3700
  106.       Width           =   4815
  107.    End
  108.    Begin VB.Label lblLicenseTo 
  109.       Alignment       =   1  'Right Justify
  110.       Appearance      =   0  'Flat
  111.       BackColor       =   &H80000005&
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Powered by: iGate Solution"
  114.       BeginProperty Font 
  115.          Name            =   "Verdana"
  116.          Size            =   8.25
  117.          Charset         =   0
  118.          Weight          =   700
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       ForeColor       =   &H00FFFFFF&
  124.       Height          =   255
  125.       Index           =   0
  126.       Left            =   4080
  127.       TabIndex        =   1
  128.       Top             =   3360
  129.       Width           =   2775
  130.    End
  131. End
  132. Attribute VB_Name = "frmSplash"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137. Option Explicit
  138. Dim a As Integer
  139. Dim B As Integer
  140. Private Sub Form_KeyPress(KeyAscii As Integer)
  141.     Unload Me
  142. End Sub
  143.  
  144. Private Sub Form_Load()
  145.     Main.Show
  146.     Main.Hide
  147.     'lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
  148.     'lblProductName.Caption = App.Title
  149. End Sub
  150.  
  151. Private Sub Frame1_Click()
  152.     Unload Me
  153. End Sub
  154.  
  155.  
  156. Private Sub imgBG_Click()
  157.  
  158. End Sub
  159.  
  160. Private Sub Timer1_Timer()
  161. a = a + 1
  162. If a = 7 Then
  163. Main.Show
  164. Unload Me
  165. End If
  166. End Sub
  167.  
  168. Private Sub Timer2_Timer()
  169. B = B + 1
  170. P1.Value = B
  171. End Sub
  172.  
  173.  
  174.