-
Notifications
You must be signed in to change notification settings - Fork 2
/
INSWCBObject.cls
36 lines (33 loc) · 1.19 KB
/
INSWCBObject.cls
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "INSWCBObject"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
#If VBA7 Then
Public Property Get LpIShellFolder() As LongPtr
Attribute LpIShellFolder.VB_Description = "Interface method to return a pointer to an IShellFolder object."
#Else
Public Property Get LpIShellFolder() As Long
Attribute LpIShellFolder.VB_Description = "Interface method to return a pointer to an IShellFolder object."
#End If
End Property
#If VBA7 Then
Public Property Get LpIDList() As LongPtr
Attribute LpIDList.VB_Description = "Interface method to return a pointer to a PIDL object."
#Else
Public Property Get LpIDList() As Long
Attribute LpIDList.VB_Description = "Interface method to return a pointer to a PIDL object."
#End If
End Property
Public Function GetDisplayNameOf() As String
Attribute GetDisplayNameOf.VB_Description = "Support IShellFolder::GetDisplayNameOf"
End Function