home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ver.exe / VBSAMPLE.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-04-22  |  3.6 KB  |  112 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Version Browser (Ver Sample)"
  4.    ClientHeight    =   5550
  5.    ClientLeft      =   1200
  6.    ClientTop       =   1740
  7.    ClientWidth     =   4695
  8.    Height          =   5955
  9.    Left            =   1140
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5550
  12.    ScaleWidth      =   4695
  13.    Top             =   1395
  14.    Width           =   4815
  15.    Begin TextBox Text2 
  16.       Height          =   2655
  17.       Left            =   240
  18.       MultiLine       =   -1  'True
  19.       TabIndex        =   6
  20.       Top             =   2040
  21.       Width           =   4095
  22.    End
  23.    Begin TextBox Text1 
  24.       Height          =   285
  25.       Left            =   240
  26.       TabIndex        =   0
  27.       Top             =   1320
  28.       Width           =   4095
  29.    End
  30.    Begin Version Version1 
  31.       ApplicationDir  =   ""
  32.       CurrentDir      =   ""
  33.       DestinationDir  =   ""
  34.       DestinationFile =   ""
  35.       Filename        =   ""
  36.       Height          =   420
  37.       Left            =   4080
  38.       SourceDir       =   ""
  39.       SourceFile      =   ""
  40.       Top             =   240
  41.       Width           =   420
  42.    End
  43.    Begin CommandButton Command2 
  44.       Caption         =   "View Version Info"
  45.       Default         =   -1  'True
  46.       Height          =   375
  47.       Left            =   720
  48.       TabIndex        =   1
  49.       Top             =   4920
  50.       Width           =   1815
  51.    End
  52.    Begin CommandButton Command1 
  53.       Caption         =   "Exit"
  54.       Height          =   375
  55.       Left            =   2640
  56.       TabIndex        =   3
  57.       Top             =   4920
  58.       Width           =   1215
  59.    End
  60.    Begin Label Label3 
  61.       Caption         =   "Version Information:"
  62.       Height          =   255
  63.       Left            =   240
  64.       TabIndex        =   5
  65.       Top             =   1800
  66.       Width           =   3135
  67.    End
  68.    Begin Label Label2 
  69.       Caption         =   "Enter Filename Here, Then Press ""View Version Info"":"
  70.       Height          =   495
  71.       Left            =   240
  72.       TabIndex        =   4
  73.       Top             =   840
  74.       Width           =   3135
  75.    End
  76.    Begin Label Label1 
  77.       Caption         =   "Ver Sample"
  78.       FontBold        =   -1  'True
  79.       FontItalic      =   0   'False
  80.       FontName        =   "MS Sans Serif"
  81.       FontSize        =   15
  82.       FontStrikethru  =   0   'False
  83.       FontUnderline   =   0   'False
  84.       Height          =   375
  85.       Left            =   240
  86.       TabIndex        =   2
  87.       Top             =   240
  88.       Width           =   2175
  89.    End
  90. Option Explicit
  91. Sub Command1_Click ()
  92.     End
  93. End Sub
  94. Sub Command2_Click ()
  95.     Dim S As String
  96.     Version1.Filename = Text1.Text
  97.     S = "Company Name: " & Version1.CompanyName & Chr$(13) & Chr$(10)
  98.     S = S & "File Description: " & Version1.FileDescription & Chr$(13) & Chr$(10)
  99.     S = S & "File Version: " & Version1.FileVersion & Chr$(13) & Chr$(10)
  100.     S = S & "Internal Name: " & Version1.InternalName & Chr$(13) & Chr$(10)
  101.     S = S & "Language: " & Version1.Language & Chr$(13) & Chr$(10)
  102.     S = S & "Legal Copyright: " & Version1.LegalCopyright & Chr$(13) & Chr$(10)
  103.     S = S & "Legal Trademarks: " & Version1.LegalTrademarks & Chr$(13) & Chr$(10)
  104.     S = S & "Original Filename: " & Version1.OriginalFilename & Chr$(13) & Chr$(10)
  105.     S = S & "Product Name: " & Version1.ProductName & Chr$(13) & Chr$(10)
  106.     S = S & "Product Version: " & Version1.ProductVersion & Chr$(13) & Chr$(10)
  107.     Text2.Text = S
  108. End Sub
  109. Sub Form_Unload (Cancel As Integer)
  110.     End
  111. End Sub
  112.