|
またまた自己レスです。 iTextSharpで階層しおりのあるpdfを開き、PdfReaderのSimpleBookmarkの中身を調べてみたら、 階層上位のしおりのDictionaryに、キーが"Kids"で値がIList(Of Dictionary(Of String, Object))のものがあったので、 試しに以下のようにしたらうまくいきました。
Dim pw As PdfWriter Dim lstOutlineTop As New List(Of Dictionary(Of String, Object)) Dim lstOutline As New List(Of Dictionary(Of String, Object)) Dim dic As Dictionary(Of String, Object)
(途中略)
dic = New Dictionary(Of String, Object) dic.Add("Title", "最初のページ") dic.Add("Action", "GoTo") dic.Add("Page", "1 FitH") lstOutline.Add(dic)
dic = New Dictionary(Of String, Object) dic.Add("Title", "分類1") dic.Add("Kids", lstOutline) lstOutlineTop.Add(dic)
pw.Outlines = lstOutlineTop
これにて解決とします。
|