【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-frmFileInfo.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form frmFileInfo 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "File Info"
       ClientHeight    =   5190
       ClientLeft      =   45
       ClientTop       =   330
       ClientWidth     =   6135
       Icon            =   "frmFileInfo.frx":0000
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       ScaleHeight     =   5190
       ScaleWidth      =   6135
       StartUpPosition =   3  'Windows Default
       Begin VB.TextBox txtAdler32 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   23
          Top             =   4320
          Width           =   1695
       End
       Begin VB.TextBox txtLinks 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   18
          Top             =   2760
          Width           =   1695
       End
       Begin VB.TextBox txtIndexHi 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   16
          Top             =   2520
          Width           =   1695
       End
       Begin VB.TextBox txtIndexLo 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   14
          Top             =   2280
          Width           =   1695
       End
       Begin VB.TextBox txtEncryptionStatus 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   12
          Top             =   2040
          Width           =   1695
       End
       Begin VB.ComboBox cboRound 
          Height          =   315
          Left            =   4320
          TabIndex        =   10
          Top             =   1560
          Width           =   1695
       End
       Begin VB.ComboBox cboOutput 
          Height          =   315
          Left            =   4320
          TabIndex        =   8
          Top             =   1200
          Width           =   1695
       End
       Begin VB.TextBox txtSize 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   6
          Top             =   840
          Width           =   1695
       End
       Begin VB.TextBox txtCRC32 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   4320
          Locked          =   -1  'True
          TabIndex        =   21
          Top             =   4080
          Width           =   1695
       End
       Begin VB.CommandButton cmdChecksum 
          Caption         =   "Checksum"
          Height          =   350
          Left            =   5040
          TabIndex        =   24
          Top             =   4680
          Width           =   975
       End
       Begin VB.TextBox txtSelected 
          Appearance      =   0  'Flat
          BackColor       =   &H8000000F&
          BorderStyle     =   0  'None
          Height          =   285
          Left            =   120
          Locked          =   -1  'True
          TabIndex        =   1
          Top             =   360
          Width           =   5895
       End
       Begin VB.DirListBox dirFileAttributes 
          Height          =   1890
          Left            =   120
          TabIndex        =   2
          Top             =   840
          Width           =   2175
       End
       Begin VB.FileListBox fileFileAttributes 
          Height          =   2040
          Hidden          =   -1  'True
          Left            =   120
          System          =   -1  'True
          TabIndex        =   3
          Top             =   2760
          Width           =   2175
       End
       Begin VB.DriveListBox drvFileAttributes 
          Height          =   315
          Left            =   120
          TabIndex        =   4
          Top             =   4800
          Width           =   2175
       End
       Begin VB.Label lblEncryptionStatus 
          Caption         =   "Encryption Status"
          Height          =   255
          Left            =   2520
          TabIndex        =   11
          Top             =   2040
          Width           =   1575
       End
       Begin VB.Label lblRound 
          Caption         =   "Round"
          Height          =   255
          Left            =   2520
          TabIndex        =   9
          Top             =   1560
          Width           =   1575
       End
       Begin VB.Label lblOutput 
          Caption         =   "Output"
          Height          =   255
          Left            =   2520
          TabIndex        =   7
          Top             =   1200
          Width           =   1575
       End
       Begin VB.Label lblSize 
          Caption         =   "Size"
          Height          =   255
          Left            =   2520
          TabIndex        =   5
          Top             =   840
          Width           =   1575
       End
       Begin VB.Label lblIndexHi 
          Caption         =   "Index Hi"
          Height          =   255
          Left            =   2520
          TabIndex        =   15
          Top             =   2520
          Width           =   1575
       End
       Begin VB.Label lblIndexLo 
          Caption         =   "Index Lo"
          Height          =   255
          Left            =   2520
          TabIndex        =   13
          Top             =   2280
          Width           =   1575
       End
       Begin VB.Label lblLinks 
          Caption         =   "Links"
          Height          =   255
          Left            =   2520
          TabIndex        =   17
          Top             =   2760
          Width           =   1575
       End
       Begin VB.Label lblChecksum 
          Caption         =   "Checksum"
          Height          =   255
          Left            =   2520
          TabIndex        =   19
          Top             =   3720
          Width           =   1575
       End
       Begin VB.Label lblCRC32 
          Caption         =   "CRC32"
          Height          =   255
          Left            =   2520
          TabIndex        =   20
          Top             =   4080
          Width           =   1575
       End
       Begin VB.Label lblAdler32 
          Caption         =   "Adler32"
          Height          =   255
          Left            =   2520
          TabIndex        =   22
          Top             =   4320
          Width           =   1575
       End
       Begin VB.Label lblSelected 
          Caption         =   "Selected"
          Height          =   255
          Left            =   120
          TabIndex        =   0
          Top             =   120
          Width           =   1695
       End
    End
    Attribute VB_Name = "frmFileInfo"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
    
    
    Const sLocation As String = "frmFileInfo"
    
    Private Sub cboOutput_Click()
    On Error GoTo VB_Error
    
        If txtSelected.Text <> vbNullString Then
            fileFileAttributes_Click
        End If
        
    Exit Sub
    VB_Error:
    Call Error_VB(Err, sLocation & "\cboOutput_Click")
    Resume Next
    End Sub
    
    Private Sub cboRound_Click()
    On Error GoTo VB_Error
    
        If txtSelected.Text <> vbNullString Then
            fileFileAttributes_Click
        End If
        
    Exit Sub
    VB_Error:
    Call Error_VB(Err, sLocation & "\cboRound_Click")
    Resume Next
    End Sub
    
    Private Sub cmdChecksum_Click()
    On Error GoTo VB_Error
    
        If txtSelected.Text <> vbNullString Then
            If File_Size_Name(txtSelected.Text) < 2147483648# Then
                Dim sFileContents As String
                sFileContents = File_