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(Items As String,Separator As String)
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 Command As String)
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(Items As String,Separator As String)
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 = Extra_Large_Icons
End With
33. Is it possible to specify the "Large Icons" view
With ExShellView1
.ViewMode = Large_Icons
End With
32. Is it possible to specify the "Medium Icons" view
With ExShellView1
.ViewMode = Medium_Icons
End With
31. How can I hide the file names
With ExShellView1 .HideFileNames = True .ViewMode = 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 = Thumbnail End With
29. Is it possible to set the Auto Arrange flag by code
With ExShellView1 .AutoArrange = True .ViewMode = 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 Object As EXSHELLVIEWLibCtl.IExShellObject)
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 Object As EXSHELLVIEWLibCtl.IExShellObject)
With ExShellView1
.CancelObjectSelect
End With
End Sub
23. Is it possible to list only files, no folders
With ExShellView1
.ModifyFolderFlags NoSubFolders,NoFlag
End With
22. How can I enable multiple selection
With ExShellView1 .ModifyFolderFlags NoFlag,SingleSel .Refresh End With
21. How can I select a file or a folder
With ExShellView1 .Objects.Get AllItems .Objects.Item(0).SelectItem Select End With
20. How can I get all files and folders as they are listed
With ExShellView1 .Objects.Get ObjectTypeEnum.AllItems Or ObjectTypeEnum.AsDisplayed Debug.Print(.Objects.Count) End With
19. How can I get all files and folders being displayed
With ExShellView1 .Objects.Get 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 ObjectTypeEnum.SelectedItems Or ObjectTypeEnum.AsDisplayed Debug.Print(.Objects.Count) End With
17. How do I get the selected files or folders
With ExShellView1 .Objects.Get 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 = PatternObjects .FilePattern = "*.exe *.lnk" End With
14. How can I include only files that match a pattern
With ExShellView1 .IncludeObjectType = PatternObjects .FilePattern = "*.bmp" End With
13. How can I list only folders in the view
With ExShellView1
.IncludeObjectType = FoldersOnly
End With
12. How do I specify what objects files or folders should be included in the list
With ExShellView1
.IncludeObjectType = FoldersOnly
End With
11. How do I browse a special folder
With ExShellView1 .BrowseFolder = .ShellFolder(.SpecialFolder(Programs)) End With
10. How can I go up to one level, so I can browse the parent folder
With ExShellView1 .BrowseFolder = .ShellFolder("C:\") .UpOneLevel End With
9. How do I browse a specified folder
With ExShellView1 .BrowseFolder = .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
With ExShellView1
Set f = CreateObject("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 = Thumbnail
End With
4. How can I change the view, so it displays as a a grid with details
With ExShellView1
.ViewMode = Details
End With
3. How can I change the view, so it displays as a list
With ExShellView1
.ViewMode = List
End With
2. How can I change the view, so it displays small icons
With ExShellView1
.ViewMode = SmallIcon
End With
1. How can I change the view, so it displays large icons
With ExShellView1
.ViewMode = LargeIcons
End With