You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
440 lines
15 KiB
440 lines
15 KiB
VERSION 5.00
|
|
Begin VB.PropertyPage ppgGeneral
|
|
Caption = "General"
|
|
ClientHeight = 5040
|
|
ClientLeft = 0
|
|
ClientTop = 0
|
|
ClientWidth = 4650
|
|
PaletteMode = 0 'Halftone
|
|
ScaleHeight = 5040
|
|
ScaleWidth = 4650
|
|
Begin VB.CheckBox optAttributes
|
|
Caption = "&Read-only"
|
|
Enabled = 0 'False
|
|
Height = 195
|
|
Index = 0
|
|
Left = 1710
|
|
TabIndex = 4
|
|
Top = 4110
|
|
Width = 1095
|
|
End
|
|
Begin VB.CheckBox optAttributes
|
|
Caption = "Ar&chive"
|
|
Enabled = 0 'False
|
|
Height = 195
|
|
Index = 1
|
|
Left = 1710
|
|
TabIndex = 3
|
|
Top = 4380
|
|
Width = 1095
|
|
End
|
|
Begin VB.CheckBox optAttributes
|
|
Caption = "Co&mpress"
|
|
Enabled = 0 'False
|
|
Height = 195
|
|
Index = 2
|
|
Left = 1710
|
|
TabIndex = 2
|
|
Top = 4650
|
|
Width = 1095
|
|
End
|
|
Begin VB.CheckBox optAttributes
|
|
Caption = "Hi&dden"
|
|
Enabled = 0 'False
|
|
Height = 195
|
|
Index = 3
|
|
Left = 3240
|
|
TabIndex = 1
|
|
Top = 4110
|
|
Width = 1095
|
|
End
|
|
Begin VB.CheckBox optAttributes
|
|
Caption = "System"
|
|
Enabled = 0 'False
|
|
Height = 195
|
|
Index = 4
|
|
Left = 3240
|
|
TabIndex = 0
|
|
Top = 4380
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label lblLocation
|
|
Caption = "lblLocation"
|
|
Height = 255
|
|
Left = 1695
|
|
TabIndex = 20
|
|
Top = 1665
|
|
Width = 3750
|
|
End
|
|
Begin VB.Image imgDisplay
|
|
Height = 735
|
|
Left = 360
|
|
Top = 240
|
|
Width = 735
|
|
End
|
|
Begin VB.Line Line1
|
|
BorderColor = &H80000010&
|
|
Index = 0
|
|
X1 = 240
|
|
X2 = 5880
|
|
Y1 = 1170
|
|
Y2 = 1170
|
|
End
|
|
Begin VB.Line Line2
|
|
BorderColor = &H80000014&
|
|
Index = 0
|
|
X1 = 240
|
|
X2 = 5880
|
|
Y1 = 1185
|
|
Y2 = 1185
|
|
End
|
|
Begin VB.Line Line1
|
|
BorderColor = &H80000010&
|
|
Index = 1
|
|
X1 = 240
|
|
X2 = 5760
|
|
Y1 = 2400
|
|
Y2 = 2400
|
|
End
|
|
Begin VB.Line Line2
|
|
BorderColor = &H80000014&
|
|
Index = 1
|
|
X1 = 240
|
|
X2 = 5880
|
|
Y1 = 2415
|
|
Y2 = 2415
|
|
End
|
|
Begin VB.Label lblName
|
|
Caption = "lblName"
|
|
Height = 255
|
|
Left = 1530
|
|
TabIndex = 19
|
|
Top = 510
|
|
Width = 3975
|
|
End
|
|
Begin VB.Line Line1
|
|
BorderColor = &H80000010&
|
|
Index = 2
|
|
X1 = 240
|
|
X2 = 5880
|
|
Y1 = 3870
|
|
Y2 = 3870
|
|
End
|
|
Begin VB.Line Line2
|
|
BorderColor = &H80000014&
|
|
Index = 2
|
|
X1 = 240
|
|
X2 = 5880
|
|
Y1 = 3885
|
|
Y2 = 3885
|
|
End
|
|
Begin VB.Label Label2
|
|
Caption = "Type:"
|
|
Height = 255
|
|
Left = 240
|
|
TabIndex = 18
|
|
Top = 1410
|
|
Width = 1095
|
|
End
|
|
Begin VB.Label Label3
|
|
Caption = "Location:"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 17
|
|
Top = 1680
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label4
|
|
Caption = "Size:"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 16
|
|
Top = 1950
|
|
Width = 1335
|
|
End
|
|
Begin VB.Label lblType
|
|
Caption = "lblType"
|
|
Height = 255
|
|
Left = 1710
|
|
TabIndex = 15
|
|
Top = 1410
|
|
Width = 3750
|
|
End
|
|
Begin VB.Label lblSize
|
|
Caption = "lblSize"
|
|
Height = 255
|
|
Left = 1710
|
|
TabIndex = 14
|
|
Top = 1950
|
|
Width = 3750
|
|
End
|
|
Begin VB.Label Label10
|
|
Caption = "MS-DOS name:"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 13
|
|
Top = 2670
|
|
Width = 1185
|
|
End
|
|
Begin VB.Label Label11
|
|
Caption = "Created:"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 12
|
|
Top = 2940
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label12
|
|
Caption = "Modified"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 11
|
|
Top = 3210
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label13
|
|
Caption = "Accessed:"
|
|
Height = 255
|
|
Left = 270
|
|
TabIndex = 10
|
|
Top = 3480
|
|
Width = 1215
|
|
End
|
|
Begin VB.Label Label14
|
|
Caption = "Attributes:"
|
|
Height = 285
|
|
Left = 270
|
|
TabIndex = 9
|
|
Top = 4110
|
|
Width = 915
|
|
End
|
|
Begin VB.Label lblDOSName
|
|
Caption = "lblDOSName"
|
|
Height = 195
|
|
Left = 1710
|
|
TabIndex = 8
|
|
Top = 2670
|
|
Width = 3750
|
|
End
|
|
Begin VB.Label lblCreated
|
|
Caption = "lblCreated"
|
|
Height = 285
|
|
Left = 1710
|
|
TabIndex = 7
|
|
Top = 2940
|
|
Width = 3750
|
|
End
|
|
Begin VB.Label lblModified
|
|
Caption = "lblModified"
|
|
Height = 195
|
|
Left = 1710
|
|
TabIndex = 6
|
|
Top = 3210
|
|
Width = 3750
|
|
End
|
|
Begin VB.Label lblAccessed
|
|
Caption = "lblAccessed"
|
|
Height = 195
|
|
Left = 1710
|
|
TabIndex = 5
|
|
Top = 3480
|
|
Width = 3750
|
|
End
|
|
End
|
|
Attribute VB_Name = "ppgGeneral"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = True
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = True
|
|
' ===========================================================================
|
|
' | THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF |
|
|
' | ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO |
|
|
' | THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A |
|
|
' | PARTICULAR PURPOSE. |
|
|
' | Copyright (c) 1998-1999 Microsoft Corporation |
|
|
' ===========================================================================
|
|
|
|
' =============================================================================
|
|
' File: ppgGeneral.pag
|
|
' Project: FileExplorerSample
|
|
' Type: Property Page
|
|
' =============================================================================
|
|
|
|
Option Explicit
|
|
Implements IMMCPropertyPage
|
|
|
|
' When the property page is part of a multiple selection this variable holds the
|
|
' index within SelectedControls() of the particular object for which the instance of
|
|
' the property page is being displayed.
|
|
Private m_Index As Integer
|
|
|
|
' MMC API DLL function declarations
|
|
|
|
Private Declare Function MMCPropertyHelp Lib "mssnapr.dll" (ByVal HelpTopic As String) As Long
|
|
|
|
Const SZ_FILE = "File"
|
|
Const SZ_FOLDER = "Folder"
|
|
|
|
Const subReadOnly = 0
|
|
Const subArchive = 1
|
|
Const subCompressed = 2
|
|
Const subHidden = 3
|
|
Const subSystem = 4
|
|
|
|
Const SZ_SIZE_FORMAT = "#,##0 bytes"
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_Initialize
|
|
' Type: Interface method
|
|
' Description: Called when the property page is created to pass the last
|
|
' parameter from MMCPropertySheet.AddPage to the property page
|
|
'
|
|
' Parameters: Data The final parameter from MMCPropertySheet.AddPage
|
|
' Output: None
|
|
' Notes: Unlike a UserControl property page, SelectedControls(0) will
|
|
' contain the ScopeItems and/or ListItems for which the property sheet
|
|
' is being displayed. Changes can be made directly to an item's
|
|
' properties. The property page can notify the snap-in of the
|
|
' changes by calling ScopeItem.PropertyChanged or
|
|
' MMCListItem.PropertyChanged. Calling these methods will
|
|
' generate the ScopeItems_PropertyChanged or
|
|
' ResultViews_PropertyChanged event in the snap-in.
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_Initialize(ByVal Data As Variant, ByVal PropertySheet As SnapInLib.MMCPropertySheet)
|
|
|
|
m_Index = Data
|
|
|
|
Dim FolderObj As Scripting.Folder
|
|
Dim FileObj As Scripting.File
|
|
Dim FileItem As MMCListItem
|
|
Dim FolderItem As ScopeItem
|
|
|
|
' If this is a scope item then get its data and fill the fields on the page
|
|
|
|
If TypeOf SelectedControls(m_Index) Is ScopeItem Then
|
|
|
|
Set FolderItem = SelectedControls(m_Index)
|
|
Set FolderObj = FolderItem.Tag
|
|
|
|
lblName.Caption = FolderObj.Name
|
|
lblType.Caption = SZ_FOLDER
|
|
|
|
lblLocation.Caption = FolderObj.Path
|
|
lblSize.Caption = Format(FolderObj.Size, SZ_SIZE_FORMAT)
|
|
|
|
lblDOSName.Caption = FolderObj.ShortName
|
|
lblCreated.Caption = FolderObj.DateCreated
|
|
lblModified.Caption = FolderObj.DateLastModified
|
|
lblAccessed.Caption = FolderObj.DateLastAccessed
|
|
|
|
If FolderObj.Attributes And ReadOnly Then optAttributes(subReadOnly) = Checked
|
|
If FolderObj.Attributes And Archive Then optAttributes(subArchive) = Checked
|
|
If FolderObj.Attributes And System Then optAttributes(subSystem) = Checked
|
|
If FolderObj.Attributes And Hidden Then optAttributes(subHidden) = Checked
|
|
If FolderObj.Attributes And Compressed Then optAttributes(subCompressed) = Checked
|
|
|
|
' Do the same for a list item
|
|
|
|
ElseIf TypeOf SelectedControls(m_Index) Is MMCListItem Then
|
|
|
|
Set FileItem = SelectedControls(m_Index)
|
|
Set FileObj = FileItem.Tag
|
|
|
|
lblName.Caption = FileObj.Name
|
|
lblType.Caption = SZ_FILE
|
|
lblLocation.Caption = FileObj.Path
|
|
lblSize.Caption = Format(FileObj.Size, SZ_SIZE_FORMAT)
|
|
|
|
lblDOSName.Caption = FileObj.ShortName
|
|
lblCreated.Caption = FileObj.DateCreated
|
|
lblModified.Caption = FileObj.DateLastModified
|
|
lblAccessed.Caption = FileObj.DateLastAccessed
|
|
|
|
If FileObj.Attributes And ReadOnly Then optAttributes(subReadOnly) = Checked
|
|
If FileObj.Attributes And Archive Then optAttributes(subArchive) = Checked
|
|
If FileObj.Attributes And System Then optAttributes(subSystem) = Checked
|
|
If FileObj.Attributes And Hidden Then optAttributes(subHidden) = Checked
|
|
If FileObj.Attributes And Compressed Then optAttributes(subCompressed) = Checked
|
|
|
|
End If
|
|
|
|
End Sub
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_Help
|
|
' Type: Interface method
|
|
' Description: Called when the user clicks the Help button on a property sheet
|
|
'
|
|
' Parameters: None
|
|
' Output: None
|
|
' Notes: Calls the MMC API function MMCPropertyHelp() to display a topic
|
|
' from MMC's merged help file.
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_Help()
|
|
MMCPropertyHelp ("mmc.chm::/sag_MMCconcepts0_0.htm")
|
|
End Sub
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_GetDialogUnitSize
|
|
' Type: Interface method
|
|
' Description: Called when the property page is about to be created to allow
|
|
' the page to specify its size in dialog units.
|
|
'
|
|
' Parameters: None
|
|
' Output: None
|
|
' Notes: Returns the recommended height and width values for a snap-in
|
|
' property page.
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_GetDialogUnitSize(Height As Variant, Width As Variant)
|
|
Height = 218
|
|
Width = 252
|
|
End Sub
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_QueryCancel
|
|
' Type: Interface method
|
|
' Description: Called when the user cancels the property sheet or wizard by
|
|
' pressing Esc, clicking the Cancel button, or clicking the 'X'
|
|
' button in the upper right corner.
|
|
'
|
|
' Parameters: Allow - set to False to prevent the sheet or wizard from closing.
|
|
' Output: None
|
|
' Notes: None
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_QueryCancel(Allow As Boolean)
|
|
|
|
End Sub
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_Cancel
|
|
' Type: Interface method
|
|
' Description: Called when a property sheet or wizard is closed because the
|
|
' user clicked the Cancel button.
|
|
'
|
|
' Parameters: None
|
|
' Output: None
|
|
' Notes: None
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_Cancel()
|
|
|
|
End Sub
|
|
|
|
' =============================================================================
|
|
' Method: IMMCPropertyPage_Close
|
|
' Type: Interface method
|
|
' Description: Called when a property sheet or wizard is closed because the
|
|
' user clicked the 'X' button in the upper right corner.
|
|
'
|
|
' Parameters: None
|
|
' Output: None
|
|
' Notes: None
|
|
' =============================================================================
|
|
'
|
|
Private Sub IMMCPropertyPage_Close()
|
|
|
|
End Sub
|