I was trying something like this, but it is not working as the list.GroupsCount is zero?
Code: Select all
Dim nID As Integer = Me.docPreview.Inst.Str2ID("stampsView")
Dim view As PDFXEdit.IPXV_View = Me.docPreview.Frame.View.Panes.Active(nID)
If view IsNot Nothing Then
Dim outPtr As IntPtr
view.Obj.QueryImpl(GetType(PDFXEdit.IUIX_List).GUID, Nothing, outPtr)
Dim list As PDFXEdit.IUIX_List = CType(System.Runtime.InteropServices.Marshal.GetObjectForIUnknown(outPtr), PDFXEdit.IUIX_List)
If list IsNot Nothing Then
For i As Integer = 0 To list.GroupsCount
list.ExpandGroup(i, False)
Next
End If
End If
Simon