48
|
Is there a way to change the header names

With Exshellview1
.ColumnNames = "Name(Ime),Date modified(Datum),Item type(Tip),Size(Velikost)"
End With
|
47
|
Disable or prevent the header's context-menu
With Exshellview1
.AllowContextMenu = exontrol.EXSHELLVIEWLib.AllowContextMenuEnum.exAllowListViewContextMenu
End With
|
46
|
Disable or prevent the list-view's context-menu
With Exshellview1
.AllowContextMenu = exontrol.EXSHELLVIEWLib.AllowContextMenuEnum.exAllowHeaderContextMenu
End With
|
45
|
Disable or prevent the control's context-menu
With Exshellview1
.AllowContextMenu = exontrol.EXSHELLVIEWLib.AllowContextMenuEnum.exDisableContextMenu
End With
|
44
|
How can I add my own items, without the default context menu

' 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 = "My First Item,My Second Item"
End With
End Sub
With Exshellview1
.DefaultMenuItems = False
.BrowseFolder = "c:\Temp"
End With
|
43
|
How can I add my own items

' 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 = ",My First Item,My Second Item"
End With
End Sub
With Exshellview1
.BrowseFolder = "c:\Temp"
End With
|
42
|
The InvokeCommand("open") will not work on a german. What can I do
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exshellview1_DblClick(ByVal sender As System.Object) Handles Exshellview1.DblClick
' Objects(0).InvokeCommand("Open")
With Exshellview1
.Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.SelectedItems)
End With
End Sub
' InvokeItemMenu event - Notifies the application once the user selects a command in the context menu.
Private Sub Exshellview1_InvokeItemMenu(ByVal sender As System.Object,ByVal Command As Integer) Handles Exshellview1.InvokeItemMenu
With Exshellview1
Debug.Print( Command )
End With
End Sub
With Exshellview1
.BrowseFolder = "c:\Temp"
End With
|
41
|
How can I open the file's properties when user double clicks it
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exshellview1_DblClick(ByVal sender As System.Object) Handles Exshellview1.DblClick
' Objects(0).InvokeCommand("Properties")
With Exshellview1
.Objects.Get(exontrol.EXSHELLVIEWLib.ObjectTypeEnum.SelectedItems)
End With
End Sub
With Exshellview1
.BrowseFolder = "c:\Temp"
End With
|
40
|
We're looking for a control to show files, just like the eXShellView, but than we would like to specify the files themselves. Is that possible using your control

With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.LargeIcons
.HeaderVisible = False
.BrowseFiles = "C:\Program Files\Microsoft Visual Studio 9.0\Common7\IDE\devenv.exe|C:\Program Files\Microsoft Visual FoxPro 9\vfp9.exe"
End With
|
39
|
How do I prevent pressing the Backspace, or go up to the parent

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub Exshellview1_KeyDown(ByVal sender As System.Object,ByRef KeyCode As Short,ByVal Shift As Short) Handles Exshellview1.KeyDown
With Exshellview1
Debug.Print( "Set the KeyCode = 0, if the KeyCode is 8 " )
KeyCode = 0
End With
End Sub
With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Details
.BrowseFolder = "c:\Temp"
.Refresh()
End With
|
38
|
How can I show grid lines around items

With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.Details
.DrawGridLines = True
.Refresh()
End With
|
37
|
How can I prevent shwoing the overlay icons (shortcut icons have a small arrow in lower-left corner, shared folders have a hand that shows that folder is shared, etc. )

With Exshellview1
.ViewMode = exontrol.EXSHELLVIEWLib.ViewModeType.LargeIcons
.OverlayIcons = False
.Refresh()
End With
|
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( Obj )
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.AsDisplayed Or exontrol.EXSHELLVIEWLib.ObjectTypeEnum.AllItems)
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.AsDisplayed Or exontrol.EXSHELLVIEWLib.ObjectTypeEnum.SelectedItems)
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
|