|
|
VERSION 5.00Begin {B3E55942-FFD8-11D1-9788-44A620524153} FileViewer ClientHeight = 9330 ClientLeft = 0 ClientTop = 0 ClientWidth = 10740 _ExtentX = 18944 _ExtentY = 16457 m_iNextNodeNumber= 0 Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 BeginProperty ImageLists {FFF9A8F6-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {87BC1809-C8FB-11D1-B44A-30F4BC000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Name = "imgToolbar" Index = 1 Key = "imgToolbar" MaskColor = 0 BeginProperty ListImages {87BC180B-C8FB-11D1-B44A-30F4BC000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {87BC180D-C8FB-11D1-B44A-30F4BC000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Index = 1 Key = "" Tag = "0" Picture = "FileViewerExtension.dsx":0000 EndProperty EndProperty DISPID = 1002 EndProperty EndProperty BeginProperty Menus {11517450-27FE-11D3-AA41-00104B880587} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {91CC37D5-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Caption = "Menu1" Visible = -1 Checked = 0 Enabled = -1 Grayed = 0 MenuBreak = 0 MenuBarBreak = 0 Default = 0 Index = 1 Name = "ViewerMenu" Tag = 0 StatusBarText = "" BeginProperty Children {11517450-27FE-11D3-AA41-00104B880587} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {91CC37D5-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Caption = "View File..." Visible = -1 Checked = 0 Enabled = -1 Grayed = 0 MenuBreak = 0 MenuBarBreak = 0 Default = 0 Index = 1 Name = "ViewFile" Tag = 0 StatusBarText = "View the selected file" BeginProperty Children {11517450-27FE-11D3-AA41-00104B880587} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty Key = "1" DISPID = 1001 EndProperty EndProperty Key = "1" DISPID = 1000 EndProperty EndProperty BeginProperty Toolbars {FFF9A8FA-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 2 KeysOnly = 0 BeginProperty Item1 {91CC37E1-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Index = 1 Key = "tbrViewer" Name = "tbrViewer" Tag = "0" BeginProperty Buttons {8B034115-FBB2-11D1-9785-EAA220524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {91CC37E6-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 BeginProperty ButtonMenus {91CC37E7-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty Caption = "View File..." Enabled = -1 Image = 1 Index = 1 Key = "" MixedState = 0 Style = 0 Tag = "" ToolTipText = "View File Contents..." Value = 0 Visible = -1 EndProperty EndProperty Images = "imgToolbar" DISPID = 1003 EndProperty BeginProperty Item2 {91CC37E1-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Index = 2 Key = "tbrMenuButton" Name = "tbrMenuButton" Tag = 0 BeginProperty Buttons {8B034115-FBB2-11D1-9785-EAA220524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {91CC37E6-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 BeginProperty ButtonMenus {91CC37E7-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 1 KeysOnly = 0 BeginProperty Item1 {91CC37E9-CE2B-11D1-B44D-7E92AF000000} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Enabled = -1 Index = 1 Key = "" Tag = "" Text = "View File..." Visible = -1 Checked = 0 Grayed = 0 Separator = 0 MenuBreak = 0 MenuBarBreak = 0 EndProperty EndProperty Caption = "FileViewer" Enabled = -1 Image = "" Index = 1 Key = "" MixedState = 0 Style = 16 Tag = "" ToolTipText = "" Value = 0 Visible = -1 EndProperty EndProperty Images = "" DISPID = 1004 EndProperty EndProperty BeginProperty ViewDefs {FFF9A8E1-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 BeginProperty ListViews {FFF9A8FC-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty BeginProperty OCXViews {FFF9A8FF-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty BeginProperty URLViews {FFF9A902-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty BeginProperty TaskpadViews {FFF9A904-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty EndProperty BeginProperty DataFormats {91FE14C5-7370-11D2-97D8-00104B880587} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty BeginProperty SnapInDef {FFF9A8E4-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Name = "FileViewer" NodeTypeName = "FileViewerExtension" NodeTypeGUID = "{D42F4543-CD95-11d2-97ED-00104B880587}" DisplayName = "FileViewerExtension" Type = 1 HelpFile = "" LinkedTopics = "" Description = "Visual Basic Sample Extension Snap-in for FileExplorer" Provider = "Microsoft Corporation" Version = "1.0" SmallFolders = "" SmallFoldersOpen= "" LargeFolders = "" Icon = "FileViewerExtension.dsx":0352 Watermark = "FileViewerExtension.dsx":03B0 Header = "FileViewerExtension.dsx":040E Palette = "FileViewerExtension.dsx":046C StretchWatermark= 0 StaticFolder = 0 DefaultView = "" Extensible = 0 BeginProperty ViewDefs {FFF9A8E1-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 BeginProperty ListViews {FFF9A8FC-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 1 EndProperty BeginProperty OCXViews {FFF9A8FF-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 1 EndProperty BeginProperty URLViews {FFF9A902-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 1 EndProperty BeginProperty TaskpadViews {FFF9A904-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 1 EndProperty EndProperty BeginProperty Children {FFF9A8F4-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty IID = "{B51C28E4-22E9-4DE4-AD63-18E947617268}" Preload = 0 EndProperty BeginProperty ExtensionDefs {FFF9A8E6-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 ExtendsNewMenu = 0 ExtendsTaskMenu = 0 ExtendsTopMenu = 0 ExtendsViewMenu = 0 ExtendsPropertyPages= 0 ExtendsToolbar = 0 ExtendsNameSpace= 0 BeginProperty ExtendedSnapIns {BDA4B9D1-0872-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 3 KeysOnly = 0 BeginProperty Item1 {FFF9A8E8-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Name = "" Index = 1 Key = "{119067F7-4DBC-11D2-8873-0080C7E0ACE4}" CLSID = "{119067F7-4DBC-11D2-8873-0080C7E0ACE4}" DisplayName = "Directory" Dynamic = 0 ExtendsNameSpace= 0 ExtendsNewMenu = 0 ExtendsTaskMenu = 0 ExtendsPropertyPages= -1 ExtendsToolbar = 0 ExtendsTaskpad = 0 EndProperty BeginProperty Item2 {FFF9A8E8-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Name = "" Index = 2 Key = "{873CAEF3-4DA3-11D2-8873-0080C7E0ACE4}" CLSID = "{873CAEF3-4DA3-11D2-8873-0080C7E0ACE4}" DisplayName = "FileExplorer" Dynamic = 0 ExtendsNameSpace= 0 ExtendsNewMenu = 0 ExtendsTaskMenu = 0 ExtendsPropertyPages= 0 ExtendsToolbar = 0 ExtendsTaskpad = -1 EndProperty BeginProperty Item3 {FFF9A8E8-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Name = "" Index = 3 Key = "{D2B294B2-9F64-11d2-97E1-00104B880587}" CLSID = "{D2B294B2-9F64-11d2-97E1-00104B880587}" DisplayName = "lvExporerFiles" Dynamic = 0 ExtendsNameSpace= 0 ExtendsNewMenu = 0 ExtendsTaskMenu = -1 ExtendsPropertyPages= -1 ExtendsToolbar = -1 ExtendsTaskpad = 0 EndProperty EndProperty EndProperty BeginProperty AutoCreateNodes {FFF9A8F4-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty BeginProperty OtherNodes {FFF9A8F4-06CB-11D2-9791-50C320524153} Persistence.MajorVersion= 0 Persistence.MinorVersion= 12 Count = 0 KeysOnly = 0 EndProperty TypeinfoCookie = 24 ProjectName = "FileViewerExtensionProj"EndAttribute VB_Name = "FileViewer"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = TrueOption Explicit
' ===========================================================================' | 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: FileViewerExtension.dsr' Project: FileViewerExtensionProj' Type: SnapIn Designer' =============================================================================
' =============================================================================' Method: ExtensionSnapIn_AddTaskMenuItems' Type: Event' Description: Fired when a context menu is about to be displayed to give the' extension snap-in the opportunity to add items to MMC's "Task"' sub-menu.'' Parameters: DataObjects An MMCDataObject collection that contains the' current selection. The extension snap-in must' interpret the data exported by the extended' snap-ins (in this case FileExplorer exports the' data)' ContextMenu A ContextMenu object that allows adding the' snap-in's menus.' Output: None' Notes: Adds ViewerMenu containing the "View File..." item.' ============================================================================='Private Sub ExtensionSnapIn_AddTaskMenuItems(ByVal DataObjects As SnapInLib.IMMCDataObjects, _ ByVal ContextMenu As SnapInLib.IContextMenu) On Error GoTo ErrTrap_ExtensionSnapIn_AddTaskMenuItems
' If there is anything other than a single data object then we ignore it ' as FileExplorer exports one MMCDataObject with the format "File" when the ' selected item is a single file.
If DataObjects.Count <> 1 Then Exit Sub End If ' If the selected item exports the data format called "File" then it is a ' file and we add our Task menu
If Not DataObjects(1).GetFormat("File") Then Exit Sub End If ContextMenu.AddMenu ViewerMenu
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_AddTaskMenuItems: DisplayError "ExtensionSnapIn_AddTaskMenuItems"
End Sub
' =============================================================================' Method: ExtensionSnapIn_AddTasks' Type: Event' Description: Fired when a taskpad is about to be displayed to give the' extension snap-in the opportunity to add its tasks.'' Parameters: DataObject An MMCDataObject that contains the currently' selected scope item. The extension snap-in must' interpret the data exported by the extended' snap-in (in this case FileExplorer exports the' data)' GroupName The group name of the taskpad. For VB implemented' taskpads this is the taskpad name assigned in the' designer.' Tasks An empty collection of Task objects. The' extension snap-in must add its tasks to the' collection.' Output: None' Notes: Adds the "About FileViewer" task.' ============================================================================='Private Sub ExtensionSnapIn_AddTasks(ByVal DataObject As SnapInLib.IMMCDataObject, _ ByVal GroupName As String, _ ByVal Tasks As SnapInLib.ITasks) On Error GoTo ErrTrap_ExtensionSnapIn_AddTasks
' If FileExplorer is displaying its welcome taskpad then add our About task.
If GroupName = "StaticNodeTaskpad" Then
Dim ViewerTask As Task Set ViewerTask = Tasks.Add
ViewerTask.ActionType = siNotify ViewerTask.HelpString = "About the FileViewer Extension Sample..." ViewerTask.ImageType = siSymbol ViewerTask.FontFamily = "GLYPH 100" ViewerTask.EOTFile = "res://mmc.exe/glyph100.eot" ViewerTask.SymbolString = "T" ViewerTask.Text = "About FileViewer"
End If
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_AddTasks: DisplayError "ExtensionSnapIn_AddTasks"
End Sub
' =============================================================================' Method: ExtensionSnapIn_TaskClick' Type: Event' Description: Fired when the user clicks a task owned by the extension snap-in' in a default taskpad owned by the extended snap-in.'' Parameters: DataObject An MMCDataObject that contains the currently' selected scope item. The extension snap-in must' interpret the data exported by the extended' snap-in (in this case FileExplorer exports the' data)' Task The Task clicked'' Output: None' Notes: We only have one task that displays an "About" message box.' ============================================================================='Private Sub ExtensionSnapIn_TaskClick(ByVal DataObject As SnapInLib.IMMCDataObject, _ ByVal Task As SnapInLib.ITask)
On Error GoTo ErrTrap_ExtensionSnapIn_TaskClick
' Note that as an extension snap-in we do not have access to the ' ConsoleMsgBox method so we need to use a VB message box.
MsgBox "Snap-in Designer for Visual Basic 6.0" & Chr$(13) & Chr$(10) & _ "Sample Extension to the FileExplorer Sample" & Chr$(13) & Chr$(10) & _ "Adds taskpad, context menu, property page, and toolbar extensions.", _ vbOKOnly, "FileViewer"
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_TaskClick: DisplayError "ExtensionSnapIn_TaskClick"
End Sub
' =============================================================================' Method: ExtensionSnapIn_CreatePropertyPages' Type: Event' Description: Fired when the user requests properties for the selected item.' Gives the extension snap-in the opportunity to add its pages' to the property sheet being displayed' by MMC for the selected item.'' Parameters: DataObject An MMCDataObject that contains the currently' selected scope item. The extension snap-in must' interpret the data exported by the extended' snap-in (in this case FileExplorer exports the' data)' PropertySheet PropertySheet object used to add the snap-in's' property pages.'' Output: None' Notes: For files add the ppgViewFile page. For folders add the' ppgDirStats page.' An important difference between primary and extensions snap-ins' is that the extension does not receive a QueryPagesFor event.' The extension is not required to add pages in this event but' it will always be fired.' ============================================================================='Private Sub ExtensionSnapIn_CreatePropertyPages(ByVal DataObject As SnapInLib.MMCDataObject, _ ByVal PropertySheet As SnapInLib.MMCPropertySheet)
On Error GoTo ErrTrap_ExtensionSnapIn_CreatePropertyPages Dim Folders() As String Dim Folder As String Dim Files() As String Dim File As String Dim i As Integer
' Check the exported data formats to determine the nature of the selected ' items and display the appropriate property pages. For multiple selections pass ' the index of the folder or path as the InitData parameter. The property page will ' receive it in IMMCPropertyPage_Initialize and store it for use later in ' PropertyPage_SelectedControls.
' Use "Viewer: <file name>" as the caption. If DataObject.GetFormat("File") Then File = FormatData(DataObject.GetData("File"), 1, siString) PropertySheet.AddPage "ppgViewFile", "Viewer: " & File ElseIf DataObject.GetFormat("Files") Then ' Get the "Files" format that contains a string array. Files = FormatData(DataObject.GetData("Files"), 1, siMultiString) For i = 1 To UBound(Files) PropertySheet.AddPage "ppgViewFile", "Viewer: " & Files(i), _ True, False, Str(i) Next i End If ' For folders, there is only one piece of data - the folder's path. We pass that ' directly in the InitData parameter. ' Use "Viewer: <folder path>" as the caption. If DataObject.GetFormat("Folder") Then Folder = FormatData(DataObject.GetData("Folder"), 1, siString) PropertySheet.AddPage "ppgDirStats", "Viewer: " & Folder, True, False, Folder ElseIf DataObject.GetFormat("Folders") Then Folders = FormatData(DataObject.GetData("Folders"), 1, siMultiString) For i = 1 To UBound(Folders) PropertySheet.AddPage "ppgDirStats", "Viewer: " & Folders(i), _ True, False, Folders(i) Next i End If
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_CreatePropertyPages: DisplayError "ExtensionSnapIn_CreatePropertyPages"
End Sub
' =============================================================================' Method: ExtensionSnapIn_SetControlbar' Type: Event' Description: Fired before a view is displayed. It allows an extension snap-in' to add or remove its toolbars and menu buttons.' Parameters: Controlbar A reference to the controlling object that' manages the snap-in's toolbars and menu buttons' Output: None' Notes: Add our toolbar and menu button' ============================================================================='Private Sub ExtensionSnapIn_SetControlbar(ByVal Controlbar As SnapInLib.IMMCControlbar)
On Error GoTo ErrTrap_ExtensionSnapIn_SetControlbar
Controlbar.Attach tbrViewer Controlbar.Attach tbrMenuButton
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_SetControlbar: DisplayError "ExtensionSnapIn_SetControlbar"
End Sub
' =============================================================================' Method: ExtensionSnapIn_UpdateControlbar' Type: Event' Description: Called following a selection change to allow the snap-in to' update its toolbar(s) and menu buttons according to the' selected item(s).' Parameters: SelectionInScopePane Indicates whether the selection is in the' scope pane or in the result pane.' DataObjects An MMCDataObject collection that contains' the current selection. The extension snap-in' must interpret the data exported by the' extended snap-ins (in this case FileExplorer' exports the data)' Selected A boolean showing whether the items are' being selected or de-selected' Controlbar A reference to the controlling object that' manages the snap-in's toolbars and menu' buttons' Output: None' Notes: Examine the selection and determine whether to enable the toolbar' button. Always enable the menu button. If the user clicks' the menu button we will enable/disable the individual menu' items according to the selection. (See' tbrMenuButton_ButtonDropDown above).' ============================================================================='Private Sub ExtensionSnapIn_UpdateControlbar(ByVal SelectionInScopePane As Boolean, _ ByVal Selected As Boolean, _ ByVal DataObjects As SnapInLib.IMMCDataObjects, _ ByVal Controlbar As SnapInLib.IMMCControlbar)
On Error GoTo ErrTrap_ExtensionSnapIn_UpdateControlbar
Dim ButtonEnabled As Boolean
' If the selected item exports the data format called "File" then it is a ' file and we enable our "View File" toolbar button.
If SelectionInScopePane Or _ (Not Selected) Or _ (Not DataObjects(1).GetFormat("File")) Then ButtonEnabled = False Else ButtonEnabled = True End If tbrViewer.Buttons(1).Enabled = ButtonEnabled ' Always enable the menu button, but enable/disable the menu item in the drop-down ' based on the selection.
tbrMenuButton.Buttons(1).Enabled = True tbrMenuButton.Buttons(1).ButtonMenus(1).Grayed = Not ButtonEnabled
Exit Sub
' Error Handler for this methodErrTrap_ExtensionSnapIn_UpdateControlbar: DisplayError "ExtensionSnapIn_UpdateControlbar"
End Sub
' =============================================================================' Method: tbrMenuButton_ButtonMenuClick' Type: Event' Description: Fired when a Toolbar button is clicked'' Parameters: Selection A reference to an MMCClipboard object that is' holding a reference to the currently selected' item(s). Note that even though the selection is' held in an MMCClipboard object, its ScopeItems and' ListItems collection will always be empty in an' extension snap-in because the selected items(s)' belong to the extended snap-in (FileExplorer in' this case). The extension snap-in must interpret' the exported data in MMCClipboard.DataObjects.' ButtonMenu A reference to the MMCButtonMenu object attached to' the menu item selected.' Output: None' Notes: Calls DisplayFile to do the work.' ============================================================================='Private Sub tbrMenuButton_ButtonMenuClick(ByVal Selection As SnapInLib.IMMCClipboard, _ ByVal ButtonMenu As SnapInLib.IMMCButtonMenu) DisplayFile SelectionEnd Sub
' =============================================================================' Method: tbrViewer_ButtonClick' Type: Event' Description: Fired when a Toolbar button is clicked'' Parameters: Selection A reference to an MMCClipboard object that is' holding a reference to the currently selected' item(s). Note that even though the selection is' held in an MMCClipboard object, its ScopeItems and' ListItems collection will always be empty in an' extension snap-in because the selected items(s)' belong to the extended snap-in (FileExplorer in' this case). The extension snap-in must interpret' the exported data in MMCClipboard.DataObjects.' Button A reference to the MMCButton object attached to' the toolbar button clicked.' Output: None' Notes: Calls DisplayFile to do the work.' ============================================================================='Private Sub tbrViewer_ButtonClick(ByVal Selection As SnapInLib.IMMCClipboard, _ ByVal Button As SnapInLib.IMMCButton) DisplayFile SelectionEnd Sub
' =============================================================================' Method: ViewFile_Click' Type: Event' Description: Fired when the "View File..." context menu item is selected.'' Parameters: Index This will always be 1 as we are directly handling' the event on the individual menu item rather than' the event on its parent.' Selection A reference to an MMCClipboard object that is' holding a reference to the currently selected' item(s). Note that even though the selection is' held in an MMCClipboard object, its ScopeItems and' ListItems collection will always be empty in an' extension snap-in because the selected items(s)' belong to the extended snap-in (FileExplorer in' this case). The extension snap-in must interpret' the exported data in MMCClipboard.DataObjects.' Output: None' Notes: Calls DisplayFile to do the work.' ============================================================================='Private Sub ViewFile_Click(ByVal Index As Long, _ ByVal Selection As SnapInLib.IMMCClipboard) DisplayFile SelectionEnd Sub
' =============================================================================' Method: DisplayFile' Type: Event' Description: Fired when the "View File..." context menu item is selected.'' Parameters: Selection A reference to an MMCClipboard object that is' holding a reference to the currently selected' item(s). Note that even though the selection is' held in an MMCClipboard object, its ScopeItems and' ListItems collection will always be empty in an' extension snap-in because the selected items(s)' belong to the extended snap-in (FileExplorer in' this case). The extension snap-in must interpret' the exported data in MMCClipboard.DataObjects.' Output: None' Notes: Gets the file name from the exported data and displays the' file viewer form' ============================================================================='Private Sub DisplayFile(Selection As MMCClipboard) On Error GoTo ErrTrap_DisplayFile
Dim FileName As String Dim Path As String Dim ViewerForm As frmFileViewer
' If there is anything other than a single data object then we ignore it ' as FileExplorer exports one MMCDataObject with the format "File" when the ' selected item is a single file.
If Selection.DataObjects.Count <> 1 Then Exit Sub End If
' If the "File" format is present then extract the name display our form ' with the contents of the file.
If Not Selection.DataObjects(1).GetFormat("File") Then Exit Sub End If FileName = Selection.DataObjects(1).GetData("File") Path = Selection.DataObjects(1).GetData("Path") Set ViewerForm = New frmFileViewer ViewerForm.DisplayFile Path, FileName Unload ViewerForm
Exit Sub
' Error Handler for this methodErrTrap_DisplayFile: DisplayError "DisplayFile"
End Sub
' =============================================================================' Method: DisplayError' Type: Subroutine' Description: A method to format and display a runtime error' Parameters: szLocation A string identifying the source location' (i.e. method name) where the error occurred' Output: None' Notes: The error will be displayed in a messagebox formatted as the' following sample:'' Method: SomeMethodName' Source: MMCListSubItems' Error: 2527h (9511)' Description: There is already an item in the collection that has the specified key'' ============================================================================='Private Sub DisplayError(szLocation As String) ' Note that as an extension snap-in we do not have access to the ' ConsoleMsgBox method so we need to use a VB message box.
MsgBox "Method:" & vbTab & vbTab & szLocation & vbCrLf _ & "Source:" & vbTab & vbTab & Err.Source & vbCrLf _ & "Error:" & vbTab & vbTab & Hex(Err.Number) & "h (" & CStr(Err.Number) & ")" & vbCrLf _ & "Description:" & vbTab & Err.Description, _ vbCritical, "FileViewerExtension Runtime Error"End Sub
|
