home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / BeepKeyBoa206320512007.psc / frmReadMe.frm < prev    next >
Text File  |  2007-04-27  |  4KB  |  127 lines
  1. VERSION 5.00
  2. Begin VB.Form frmReadMe 
  3.    Caption         =   " READ ME"
  4.    ClientHeight    =   9705
  5.    ClientLeft      =   4500
  6.    ClientTop       =   795
  7.    ClientWidth     =   6390
  8.    Icon            =   "frmReadMe.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   9705
  11.    ScaleWidth      =   6390
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "&QUIT"
  14.       Height          =   495
  15.       Left            =   5040
  16.       TabIndex        =   1
  17.       Top             =   9120
  18.       Width           =   1215
  19.    End
  20.    Begin VB.TextBox txtReadMe 
  21.       Height          =   3975
  22.       Left            =   120
  23.       MultiLine       =   -1  'True
  24.       ScrollBars      =   2  'Vertical
  25.       TabIndex        =   0
  26.       Top             =   3720
  27.       Width           =   6135
  28.    End
  29.    Begin VB.Label Label3 
  30.       Caption         =   "Label1"
  31.       Height          =   735
  32.       Left            =   120
  33.       TabIndex        =   4
  34.       Top             =   8280
  35.       Width           =   6255
  36.    End
  37.    Begin VB.Label Label2 
  38.       Alignment       =   1  'Right Justify
  39.       Caption         =   "Label1"
  40.       BeginProperty Font 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   13.5
  43.          Charset         =   0
  44.          Weight          =   700
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   375
  50.       Left            =   2880
  51.       TabIndex        =   3
  52.       Top             =   7800
  53.       Width           =   3375
  54.    End
  55.    Begin VB.Label Label1 
  56.       Caption         =   "Label1"
  57.       BeginProperty Font 
  58.          Name            =   "MS Sans Serif"
  59.          Size            =   18
  60.          Charset         =   0
  61.          Weight          =   700
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       ForeColor       =   &H000000FF&
  67.       Height          =   495
  68.       Left            =   120
  69.       TabIndex        =   2
  70.       Top             =   7740
  71.       Width           =   3615
  72.    End
  73.    Begin VB.Image Image1 
  74.       Height          =   3615
  75.       Left            =   120
  76.       Picture         =   "frmReadMe.frx":0CCA
  77.       Stretch         =   -1  'True
  78.       ToolTipText     =   "CAVER DAVE SELF PORTRAIT"
  79.       Top             =   0
  80.       Width           =   6135
  81.    End
  82. End
  83. Attribute VB_Name = "frmReadMe"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. Option Explicit
  89.  
  90. Private Sub Command1_Click()
  91. Unload Me
  92. End Sub
  93.  
  94. Private Sub Form_Load()
  95. '**************************
  96. '   and centre the form   *
  97. '**************************
  98. Dim TopCorner As Integer
  99.   Dim LeftCorner As Integer
  100.   'centres the form on the screen
  101.   If Me.WindowState <> 0 Then Exit Sub
  102.  
  103.   TopCorner = (Screen.Height - Me.Height) \ 2
  104.   LeftCorner = (Screen.Width - Me.Width) \ 2
  105.   Me.Move LeftCorner, TopCorner
  106.   
  107.   Label1.Caption = App.ProductName
  108.   Label2.Caption = "Version: " & App.Major & ". " & App.Minor & ". " & App.Revision
  109.   Label3.Caption = App.Comments
  110.   
  111.   Call bkReadMe
  112.   
  113. End Sub
  114. Private Sub bkReadMe()
  115. Dim Filehandle As Integer
  116.   Dim FileLength
  117. Dim var1
  118.   Filehandle = FreeFile
  119.  
  120. Open App.Path & "\ReadMe.txt" For Input As #Filehandle
  121. FileLength = LOF(Filehandle)
  122. var1 = Input(FileLength, #Filehandle)
  123. txtReadMe.Text = var1
  124. Close #Filehandle
  125. End Sub
  126.  
  127.