added btninfo

Author: OlimilO1402

Forms/Form1.frm

@@ -5,18 +5,34 @@ Begin VB.Form Form1
    ClientLeft      =   60
    ClientTop       =   450
    ClientWidth     =   7695
+   Icon            =   "Form1.frx":0000
    LinkTopic       =   "Form1"
    ScaleHeight     =   6015
    ScaleWidth      =   7695
    StartUpPosition =   3  'Windows-Standard
+   Begin VB.TextBox TxtFileName 
+      Height          =   285
+      Left            =   1920
+      TabIndex        =   0
+      Top             =   120
+      Width           =   5775
+   End
    Begin VB.CommandButton BtnFileVersion 
       Caption         =   "GetVersionInfo"
       Height          =   375
-      Left            =   0
+      Left            =   360
       TabIndex        =   2
       Top             =   120
       Width           =   1575
    End
+   Begin VB.CommandButton BtnInfo 
+      Caption         =   "?"
+      Height          =   375
+      Left            =   0
+      TabIndex        =   3
+      Top             =   120
+      Width           =   375
+   End
    Begin VB.TextBox TxtFileVersionInfo 
       BeginProperty Font 
          Name            =   "Consolas"
@@ -30,18 +46,13 @@ Begin VB.Form Form1
       Height          =   5415
       Left            =   0
       MultiLine       =   -1  'True
+      OLEDragMode     =   1  'Automatisch
+      OLEDropMode     =   1  'Manuell
       ScrollBars      =   3  'Beides
       TabIndex        =   1
       Top             =   600
       Width           =   7695
    End
-   Begin VB.TextBox TxtFileName 
-      Height          =   285
-      Left            =   1560
-      TabIndex        =   0
-      Top             =   120
-      Width           =   6135
-   End
 End
 Attribute VB_Name = "Form1"
 Attribute VB_GlobalNameSpace = False
@@ -51,6 +62,11 @@ Attribute VB_Exposed = False
 Option Explicit
 Private FileVersionInfo As New FileVersionInfo
 
+Private Sub BtnInfo_Click()
+    MsgBox App.CompanyName & " " & App.ProductName & " v" & App.Major & "." & App.Minor & "." & App.Revision & vbCrLf & _
+           App.FileDescription & vbCrLf & "Hint: " & App.Comments, vbInformation
+End Sub
+
 Private Sub Form_Load()
     TxtFileName.Text = "C:\Windows\System32\kernel32.dll"
 End Sub
@@ -85,3 +101,15 @@ Private Sub TxtFileName_KeyUp(KeyCode As Integer, Shift As Integer)
     End If
 End Sub
 
+Private Sub TxtFileName_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
+    TxtOLEDragDrop Data, Effect, Button, Shift, X, Y
+End Sub
+Private Sub TxtFileVersionInfo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
+    TxtOLEDragDrop Data, Effect, Button, Shift, X, Y
+End Sub
+Private Sub TxtOLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
+    If Data.Files.Count = 0 Then Exit Sub
+    Dim FNm As String: FNm = Data.Files(1)
+    TxtFileName.Text = FNm
+    BtnFileVersion_Click
+End Sub

Forms/Form1.frx

@@ -4,6 +4,7 @@ Form=Forms\Form1.frm
 Class=FileVersionInfo; Classes\FileVersionInfo.cls
 Module=MNew; Modules\MNew.bas
 ResFile32="Resources\MyRes.res"
+IconForm="Form1"
 Startup="Form1"
 HelpFile=""
 Title="FileVersionInfo"
@@ -13,11 +14,15 @@ Name="PFileVersionInfo"
 HelpContextID="0"
 CompatibleMode="0"
 MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
+MinorVer=2
+RevisionVer=5
+AutoIncrementVer=1
 ServerSupportFiles=0
+VersionComments="Drag'n'drop files onto the form"
 VersionCompanyName="MBO-Ing.com"
+VersionFileDescription="Reads version informations from compiled files, exe or dlls"
+VersionLegalCopyright="MBO-Ing.com"
+VersionProductName="FileVersionInfo"
 CompilationType=0
 OptimizationType=0
 FavorPentiumPro(tm)=0