home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / verdll / verinfo2.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1994-10-15  |  1.9 KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form verinfo2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "File Version Info"
  5.    FontBold        =   0   'False
  6.    FontItalic      =   0   'False
  7.    FontName        =   "MS Sans Serif"
  8.    FontSize        =   8.25
  9.    FontStrikethru  =   0   'False
  10.    FontUnderline   =   0   'False
  11.    Height          =   3750
  12.    Left            =   6570
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form3"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2.25
  18.    ScaleMode       =   4  'Character
  19.    ScaleWidth      =   4.5
  20.    Top             =   1830
  21.    Width           =   4620
  22.    Begin CommandButton Command1 
  23.       Caption         =   "OK"
  24.       Height          =   372
  25.       Left            =   1680
  26.       TabIndex        =   0
  27.       Top             =   2880
  28.       Width           =   1452
  29.    End
  30. Sub Command1_Click ()
  31.     'Stop
  32.     verinfo2.Hide
  33. End Sub
  34. Sub Command1_GotFocus ()
  35.     Form_Paint
  36. End Sub
  37. Sub Form_Paint ()
  38.     verinfo2.CurrentX = 2
  39.     verinfo2.CurrentY = 1
  40.     verinfo2.Print "FileName:"
  41.     verinfo2.CurrentX = 2
  42.     verinfo2.Print "Directory:"
  43.     verinfo2.CurrentX = 2
  44.     verinfo2.Print "File Version:"
  45.     verinfo2.CurrentX = 2
  46.     verinfo2.Print "Product Version:"
  47.     verinfo2.CurrentX = 2
  48.     verinfo2.Print "File Flags:"
  49.     verinfo2.CurrentX = 2
  50.     verinfo2.Print "File OS:"
  51.     verinfo2.CurrentX = 2
  52.     verinfo2.Print "File Type:"
  53.     verinfo2.CurrentX = 2
  54.     verinfo2.Print "File Sub-type:"
  55.     verinfo2.CurrentX = 18
  56.     verinfo2.CurrentY = 1
  57.     verinfo2.Print FileName$
  58.     verinfo2.CurrentX = 18
  59.     verinfo2.Print Directory$
  60.     verinfo2.CurrentX = 18
  61.     verinfo2.Print FileVer$
  62.     verinfo2.CurrentX = 18
  63.     verinfo2.Print ProdVer$
  64.     verinfo2.CurrentX = 18
  65.     verinfo2.Print FileFlags$
  66.     verinfo2.CurrentX = 18
  67.     verinfo2.Print FileOS$
  68.     verinfo2.CurrentX = 18
  69.     verinfo2.Print FileType$
  70.     verinfo2.CurrentX = 18
  71.     verinfo2.Print FileSubType$
  72. End Sub
  73.