home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / VBhelWorkS46455152002.psc / VBHelpWorkShop / About.frm (.txt) next >
Encoding:
Visual Basic Form  |  2001-12-28  |  6.6 KB  |  218 lines
  1. VERSION 5.00
  2. Begin VB.Form fAbout 
  3.    BackColor       =   &H8000000E&
  4.    BorderStyle     =   1  'Fixed Single
  5.    ClientHeight    =   3165
  6.    ClientLeft      =   15
  7.    ClientTop       =   15
  8.    ClientWidth     =   5625
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    Icon            =   "About.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3165
  16.    ScaleWidth      =   5625
  17.    StartUpPosition =   1  'CenterOwner
  18.    Begin VB.Timer Timer1 
  19.       Interval        =   1
  20.       Left            =   240
  21.       Top             =   180
  22.    End
  23.    Begin VB.CommandButton Command2 
  24.       Caption         =   "More"
  25.       Height          =   375
  26.       Left            =   4560
  27.       TabIndex        =   6
  28.       Top             =   2220
  29.       Width           =   915
  30.    End
  31.    Begin VB.CommandButton Command1 
  32.       Caption         =   "Close"
  33.       Height          =   375
  34.       Left            =   4560
  35.       TabIndex        =   3
  36.       Top             =   2640
  37.       Width           =   915
  38.    End
  39.    Begin VB.Label Label5 
  40.       Alignment       =   2  'Center
  41.       Appearance      =   0  'Flat
  42.       BackColor       =   &H80000005&
  43.       Caption         =   "Label5"
  44.       ForeColor       =   &H80000008&
  45.       Height          =   195
  46.       Left            =   1140
  47.       TabIndex        =   8
  48.       Top             =   1500
  49.       Width           =   3375
  50.    End
  51.    Begin VB.Line Line1 
  52.       X1              =   60
  53.       X2              =   5460
  54.       Y1              =   2100
  55.       Y2              =   2100
  56.    End
  57.    Begin VB.Image Image1 
  58.       Height          =   480
  59.       Index           =   1
  60.       Left            =   4740
  61.       Picture         =   "About.frx":014A
  62.       Top             =   1140
  63.       Width           =   480
  64.    End
  65.    Begin VB.Label Label4 
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "Producer, dealer and supports:"
  68.       BeginProperty Font 
  69.          Name            =   "MS Sans Serif"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   -1  'True
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   255
  78.       Left            =   60
  79.       TabIndex        =   7
  80.       Top             =   2280
  81.       Width           =   3375
  82.    End
  83.    Begin VB.Label Label3 
  84.       Alignment       =   2  'Center
  85.       BackStyle       =   0  'Transparent
  86.       Caption         =   "Label3"
  87.       BeginProperty Font 
  88.          Name            =   "Courier New"
  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.       ForeColor       =   &H000000FF&
  97.       Height          =   195
  98.       Left            =   180
  99.       TabIndex        =   5
  100.       Top             =   1860
  101.       Width           =   5235
  102.    End
  103.    Begin VB.Image Image1 
  104.       Height          =   480
  105.       Index           =   0
  106.       Left            =   300
  107.       Picture         =   "About.frx":0C04
  108.       Top             =   1020
  109.       Width           =   480
  110.    End
  111.    Begin VB.Label Label1 
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "email fabiog2@libero.it"
  114.       BeginProperty Font 
  115.          Name            =   "Tahoma"
  116.          Size            =   8.25
  117.          Charset         =   0
  118.          Weight          =   400
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       ForeColor       =   &H00808080&
  124.       Height          =   255
  125.       Index           =   2
  126.       Left            =   300
  127.       TabIndex        =   4
  128.       Top             =   2700
  129.       Width           =   3135
  130.    End
  131.    Begin VB.Label Label2 
  132.       Alignment       =   2  'Center
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "VB Help WorkShop v1.0"
  135.       BeginProperty Font 
  136.          Name            =   "MS Sans Serif"
  137.          Size            =   12
  138.          Charset         =   0
  139.          Weight          =   700
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       Height          =   315
  145.       Left            =   480
  146.       TabIndex        =   2
  147.       Top             =   1200
  148.       Width           =   4695
  149.    End
  150.    Begin VB.Label Label1 
  151.       Alignment       =   2  'Center
  152.       BackStyle       =   0  'Transparent
  153.       Caption         =   "VB CAD/Geo Tools 
  154.  2001"
  155.       BeginProperty Font 
  156.          Name            =   "Tahoma"
  157.          Size            =   9.75
  158.          Charset         =   0
  159.          Weight          =   700
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       ForeColor       =   &H00808000&
  165.       Height          =   255
  166.       Index           =   1
  167.       Left            =   960
  168.       TabIndex        =   1
  169.       Top             =   780
  170.       Width           =   3675
  171.    End
  172.    Begin VB.Label Label1 
  173.       BackStyle       =   0  'Transparent
  174.       Caption         =   "http://www.sourcecode4free.com/cgt"
  175.       BeginProperty Font 
  176.          Name            =   "Tahoma"
  177.          Size            =   8.25
  178.          Charset         =   0
  179.          Weight          =   400
  180.          Underline       =   0   'False
  181.          Italic          =   0   'False
  182.          Strikethrough   =   0   'False
  183.       EndProperty
  184.       ForeColor       =   &H00808080&
  185.       Height          =   255
  186.       Index           =   0
  187.       Left            =   300
  188.       TabIndex        =   0
  189.       Top             =   2520
  190.       Width           =   3015
  191.    End
  192. Attribute VB_Name = "fAbout"
  193. Attribute VB_GlobalNameSpace = False
  194. Attribute VB_Creatable = False
  195. Attribute VB_PredeclaredId = True
  196. Attribute VB_Exposed = False
  197. Private Sub Command1_Click()
  198.  Unload Me
  199. End Sub
  200. Private Sub Command2_Click()
  201.  Call Shell("Notepad readme.txt", 1)
  202. End Sub
  203. Private Sub Form_Load()
  204.  If Demo Then
  205.    Label3 = "Unregistered"
  206.  Else
  207.    Label3 = "License Key=" & GetSetting("VBHW", "Settings", "License")
  208.  End If
  209.  Label5 = "v" & App.Major & "." & App.Revision & " " & App.Comments
  210. End Sub
  211. Private Sub Timer1_Timer()
  212.   If Tag = "SPLASH" Then
  213.      Command2.Visible = False
  214.      Command1.Visible = False
  215.   End If
  216.   Timer1.Enabled = False
  217. End Sub
  218.