36. I need to provide my own context menu but I am not able to find RClick event. What can be done
' QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu. Private Sub Exshellview1_QueryContextMenu(ByVal sender As System.Object,ByRef Items As String,ByRef Separator As String) Handles Exshellview1.QueryContextMenu With Exshellview1 Debug.Print("Show here your popup/context menu") End With End Sub With Exshellview1 .DefaultMenuItems = False End With
35. How can I provide my own context menu (RClick event is missing)
' InvokeMenuCommand event - Fired when the user selects an item context menu that has been added during QueryContextMenu event. Private Sub Exshellview1_InvokeMenuCommand(ByVal sender As System.Object,ByVal Command As String) Handles Exshellview1.InvokeMenuCommand With Exshellview1 Debug.Print(Command) End With End Sub ' QueryContextMenu event - Fired when the context menu is about to be active. You can supply new items to the context menu. Private Sub Exshellview1_QueryContextMenu(ByVal sender As System.Object,ByRef Items As String,ByRef Separator As String) Handles Exshellview1.QueryContextMenu With Exshellview1 Separator = "," Items = "First,Second,Third" End With End Sub With Exshellview1 .DefaultMenuItems = False End With
34. Is it possible to specify the "Extra Large Icons" view
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Extra_Large_Icons
End With
33. Is it possible to specify the "Large Icons" view
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Large_Icons
End With
32. Is it possible to specify the "Medium Icons" view
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Medium_Icons
End With
31. How can I hide the file names
With Exshellview1 .HideFileNames = True .ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Thumbnail End With
30. Is it possible to set the Auto Arrange and Align To Grid flags by code
With Exshellview1 .AutoArrange = True .AlignToGrid = True .ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Thumbnail End With
29. Is it possible to set the Auto Arrange flag by code
With Exshellview1 .AutoArrange = True .ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Thumbnail End With
28. How do I specify the current folder
With Exshellview1
.CurrentFolder = "c:\windows"
End With
27. Is it possible to disable showing tooltips for files and folders
With Exshellview1
.HideToolTips = True
End With
26. Is it possible to hide the control's header
With Exshellview1
.HeaderVisible = False
End With
25. How can I get the name of file being double clicked
' ObjectSelect event - Fired when the user selects a new object for browsing. Private Sub Exshellview1_ObjectSelect(ByVal sender As System.Object,ByVal Obj As exontrol.EXSHELLVIEWLib.ExShellObject) Handles Exshellview1.ObjectSelect With Exshellview1 .CancelObjectSelect() Debug.Print(0) End With End Sub
24. How can I prevent opening or selecting a folder or zip files when user double click it
' ObjectSelect event - Fired when the user selects a new object for browsing. Private Sub Exshellview1_ObjectSelect(ByVal sender As System.Object,ByVal Obj As exontrol.EXSHELLVIEWLib.ExShellObject) Handles Exshellview1.ObjectSelect With Exshellview1 .CancelObjectSelect() End With End Sub
23. Is it possible to list only files, no folders
With Exshellview1
.ModifyFolderFlags(exontrol.EXSHELLVIEWLib.FolderFlagsEnum.NoSubFolders,exontrol.EXSHELLVIEWLib.FolderFlagsEnum.NoFlag)
End With
22. How can I enable multiple selection
With Exshellview1 .ModifyFolderFlags(exontrol.EXSHELLVIEWLib.FolderFlagsEnum.NoFlag,exontrol.EXSHELLVIEWLib.FolderFlagsEnum.SingleSel) .Refresh() End With
21. How can I select a file or a folder
With Exshellview1 .Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AllItems) .Objects.Item(0).SelectItem(exontrol.EXSHELLVIEWLib.SelectItemFlagsEnum.Select) End With
20. How can I get all files and folders as they are listed
With Exshellview1 .Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AllItems Or exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AsDisplayed) Debug.Print(.Objects.Count) End With
19. How can I get all files and folders being displayed
With Exshellview1 .Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AllItems) Debug.Print(.Objects.Count) End With
18. How do I get the selected files or folders as they are displayed
With Exshellview1 .Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.SelectedItems Or exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AsDisplayed) Debug.Print(.Objects.Count) End With
17. How do I get the selected files or folders
With Exshellview1 .Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.SelectedItems) Debug.Print(.Objects.Count) End With
16. How can I disable or enable the control's context menu
With Exshellview1
.DefaultMenuItems = False
End With
15. How can I include only files that match a pattern
With Exshellview1 .IncludeObjectType = exontrol.EXSHELLVIEWLib.IncludeObjectEnum.PatternObjects .FilePattern = "*.exe *.lnk" End With
14. How can I include only files that match a pattern
With Exshellview1 .IncludeObjectType = exontrol.EXSHELLVIEWLib.IncludeObjectEnum.PatternObjects .FilePattern = "*.bmp" End With
13. How can I list only folders in the view
With Exshellview1
.IncludeObjectType = exontrol.EXSHELLVIEWLib.IncludeObjectEnum.FoldersOnly
End With
12. How do I specify what objects files or folders should be included in the list
With Exshellview1
.IncludeObjectType = exontrol.EXSHELLVIEWLib.IncludeObjectEnum.FoldersOnly
End With
11. How do I browse a special folder
With Exshellview1 .BrowseFolder = .get_ShellFolder(.get_SpecialFolder(exontrol.EXSHELLVIEWLib.SpecialFolderPathConstants.Programs)) End With
10. How can I go up to one level, so I can browse the parent folder
With Exshellview1 .BrowseFolder = .get_ShellFolder("C:\") .UpOneLevel() End With
9. How do I browse a specified folder
With Exshellview1 .BrowseFolder = .get_ShellFolder("C:\") End With
8. How can I disable or enable the entire control
With Exshellview1
.Enabled = False
End With
7. How do I refresh the control
With Exshellview1
.Refresh()
End With
6. How can I change the control's font
Dim f With Exshellview1 f = New stdole.StdFont() With f .Name = "Verdana" .Size = 12 End With .Font = f End With
5. How can I change the view, so it displays as THUMBNAIL
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Thumbnail
End With
4. How can I change the view, so it displays as a a grid with details
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Details
End With
3. How can I change the view, so it displays as a list
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.List
End With
2. How can I change the view, so it displays small icons
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.SmallIcon
End With
1. How can I change the view, so it displays large icons
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.LargeIcons
End With